Как мне дать команду vba начать вставку с определенной ячейки?

Question

Недавно я получил отличный код от одного из наших коллег-пользователей для моей проблемы с копированием и вставкой ранее.

Эта помощь предоставляется после того, как я добавил свои номера ячеек.

Dim sht1 As Worksheet, sht2 As Worksheet

Set sht1 = Worksheets("Calculation")
Set sht2 = Worksheets("Current")

With sh2

sht2.Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = sht1.Range("A1448").Value

End With

End Sub

В настоящее время я пытаюсь использовать его для другого листа, но проблема в том, что я хотел бы, чтобы он начинался со строки 5 и далее, так как это таблица. Первоначально я думал использовать:

Sheets("Current").Select
Range("A5").Select

но не повезло. Любой совет поможет вам в этом, поскольку код для копирования и вставки позволяет моему сбору данных работать намного быстрее, чем раньше.

Answer 1

JvdV,

Это скриншот моего теста с предложенным кодом.

Тест кода в таблице

Моя цель состоит в том, чтобыцифры наклеены в оранжевом ряду, но таблица пропущена и вставлена ​​в желтый ряд.

Answer 2

Небольшой пример на .Offset

Представьте себе следующую настройку:

Вы получиликонкретная строка кода в вашем вопросе, которая будет ссылаться на последнюю использованную строку в столбце: sht2.Cells(Rows.Count, 1).End(xlUp), за которой обычно следует .Row для ссылки на позицию. Теперь то, что делает .Offset, смотрит на эту позицию и использует Index для смещения Row и Column (см. Документацию), вы можете сослаться на другую ячейку относительно найденной ячейки. (Надеюсь, это понятно)

Так что в приведенном выше случае я могу поместить значение в A7, написав:

sht2.Cells(Rows.Count, 1).End(xlUp).Offset(2).Value = "TestValue"

То есть, для записи значения в A10 мне нужно было бы использовать (если бы A7 было еще пусто):

sht2.Cells(Rows.Count, 1).End(xlUp).Offset(5).Value = "TestValue"