Excel - копировать данные в следующую пустую ячейку на новом листе

вопрос

Я пытаюсь сделать рабочую тетрадь на 2 листа, в которой есть данные для ввода в Sheet1

A1, и это меняется еженедельно, но информация в этой ячейке должна быть

вставлен в первую пустую ячейку в столбце А на листе 2.

Я пробовал этот код (ниже), но он не работает, и, возможно, я

делать что-то не так. Может ли кто-нибудь дать мне знать, если этот код должен работать

для этого или есть другой код, который я мог бы попробовать?

Код, используемый в настоящее время:

 Sub copytonextsheet () With Sheets ("Sheet2") n = .Cells (Rows.Count, "A"). End (xlUp) .Row + 1 .Cells (n, "A"). Resize (, 4) .Value = _ Ячейки (1, "A"). Изменение размера (, 4). Значение End End End Sub 

Решение

Попробуй это:

 Sub CopyRowsWithNumbersInG () Dim X As Long Dim LastRow Как Long Dim Source как рабочий стол Dim Destination As Worksheet Dim RowsWithNumbers как диапазон Установите Source = Worksheets ("name") Установите Destination = Worksheets ("name") с источником LastRow = .Cells (. Rows.Count, "E"). End (xlUp) .Row для X = 2 до LastRow, если IsNumeric (.Cells (X, "E"). Value) и .Cells (X, "E"). Value "" Тогда, если RowsWithNumbers - Ничто, Тогда Установите RowsWithNumbers = .Cells (X, "E") Иначе Установите RowsWithNumbers = Union (RowsWithNumbers, .Cells (X, "E")) .Copy Destination.Range ("A4") Конец, если заканчивается MsgBox "Данные были обновлены !!", vbExclamation + vbInformation, "Название компании" End Sub 

Спасибо Kioskea_1 за этот совет.