Заповніть наступний порожній рядок на аркуші - Поради Excel

ПК запитує:

У мене є аркуш, де я ввожу деякі значення. Після натискання кнопки макросу я хочу, щоб значення або його обчислені результати додавалися до іншого аркуша або файлу.

Гарне питання. Скажімо, значення знаходяться в клітинках C10 та E12 аркуша1, і ви хочете, щоб вони були додані до наступного рядка в аркуші2.

Справжній фокус тут - код для пошуку наступного рядка на Sheet2. Починаючи з останнього рядка в Sheet2 (A65536), а потім використовуючи .End (xlup), ви знайдете останній рядок із даними у стовпці A. Додавання 1 до цього рядка вкаже на наступний рядок для даних на Sheet2. Використовуйте цей код:

Sub CopyThem() NextRow = Worksheets("Sheet2").Range("A65536").End(xlUp).Row + 1 Worksheets("Sheet2").Cells(NextRow, 1).Resize(1, 2).Value = Array( _ Worksheets("Sheet1").Range("C10").value, _ Worksheets("Sheet1").Range("E12").value) End Sub