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

вопрос

У меня есть два листа в рабочей тетради. Лист1 предназначен для сводки, а Лист2 - для необработанных данных. Мне нужно обновить / вставить / скопировать данные из Sheet2 в Sheet1. Ниже приведен пример макроса кода:

 Sub Summarize () Range ("A6: AT6"). Select Selection.Copy Sheets ("ImprovementLog"). Select Range ("B283"). Select Selection.PasteSpecial Paste: = xlValues, Operation: = xlNone, SkipBlanks: = _ False, Transpose: = False Range ("B283"). Выберите End Sub 

Приведенный выше код работает, но каждый раз, когда я меняю данные в Sheet2, Sheet1 только заменяет свои данные. Мне нужно каждый раз, когда я меняю данные в Sheet2, они должны добавляться (добавляться) в Sheet1.

Решение

Вам нужно знать последний использованный ряд. Here Range ("B283"). Select находит последнюю использованную ячейку в столбце B, а затем выбирает одну ячейку под ней

 lMaxRows = Ячейки (Rows.Count, "B"). Конец (xlUp). Диапазон строк ("B" & lMaxRows +1) .select 

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