Excel - Копирайте данните в следващата празна клетка в новия лист

Проблем

Опитвам се да направя 2 листа работна книга, която има входни данни в Sheet1

A1 и това се променя седмично, но информацията в тази клетка трябва да бъде

вмъкната в първата празна клетка в колона А в лист 2.

Аз се опитах този код (по-долу), но тя не изглежда да работи и може би аз съм

правя нещо нередно. Може ли някой да ме уведомите, ако този код трябва да работи

за тази цел или има друг код, който мога да опитам?

Използваният понастоящем код:

 Подпрозорец () с листове ("Лист2") n = .Калинки (Редове.Стол, "А"). Край (xlUp) .Режим + 1 .Калички (п, "А") .Резортиране (, 4). = _ Клетки (1, "А") Преоразмеряване (, 4) 

Решение

Опитайте тази:

 Sub CopyRowsWithNumbersInG () Dim X Дълго Dim LastRow As Long Източник като работен лист Dim Destination Като работен лист Dim RowsWithNumbers As Range Задайте Source = Worksheets ("name") Задайте Destination = Worksheets ("name") С Source LastRow =. Rows.Count, "E") End (xlUp) .Row За X = 2 За LastRow Ако IsNumeric (.Cells (X, "E"). Стойност) И .Cells (X, "E"). Стойност "" Тогава, ако RowsWithNumbers не е нищо, тогава RowsWithNumbers = .Cells (X, "E") Else Set RowsWithNumbers = Union (RowsWithNumbers, .Cells (X, "E")) Край, ако е краен Ако следващите Ако не са редовеWithNumbers е нищо, RowsWithNumbers.EntireRow .Copy Destination.Range ("A4") Край, ако завършва с MsgBox "Данните са актуализирани !!", vbExclamation + vbInformation, "Company Name" End Sub 

Благодарение на Kioskea_1 за този съвет.