Как использовать переменную nextRow (следующая открытая строка в электронной таблице) в качестве переменной, а затем ".copy" что-то в нее?

Question

У меня есть ERP-система, которая копирует информацию из накладной в архив.Моя проблема в том, что я не могу найти способ объявить код, чтобы найти следующую доступную строку (где будут храниться данные) как переменную, а затем скопировать данные, я могу сделать это только без переменных.

Я попытался затемнить, а не затемнить код для следующей доступной строки, и попытался с ячейкой, из которой копируются данные в качестве переменной, а не с нее.

Я также попытался объявить ячейкугде данные копируются как переменная (shipFrom), а затем копируются shipFrom в следующую доступную строку, не объявляя ее как переменную, по-прежнему ничего не делая.

Код:

Dim nextRow As Range
Dim shipFrom As String
shipFrom = Sheets("DN").Range("D9").value
Set nextRow = Sheets("Arkiv").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)

shipFrom.Copy nextRow

Нет сообщения об ошибке, просто нет результата при запуске кода ... Я ожидаю, что значение из D9, которое объявлено как shipFrom, будет скопировано в nextRow, который является переменной, которую я использовал для следующей доступной строки.

Answer 1

1. Вам нужно объявить shipFrom As Range
2. и используйте Set shipFrom для установки диапазона.

Потому что вы не можете использовать .Copy в строке. Работает только на объекте диапазона.

Dim shipFrom As Range
Set shipFrom = Sheets("DN").Range("D9")

Dim nextRow As Range
Set nextRow = Sheets("Arkiv").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)

shipFrom.Copy nextRow 'copy the whole cell shipFrom to nextRow 

Обратите внимание, что .Copy копирует всю ячейку со всеми ее форматированием. Альтернативой для копирования только значения будет

Dim shipFrom As String
shipFrom = Sheets("DN").Range("D9").Value

Dim nextRow As Range
Set nextRow = Sheets("Arkiv").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)

nextRow.Value = shipFrom 'set the value of nextRow equal to the value shipFrom