ПК спрашивает:
У меня есть рабочий лист, в который я ввожу некоторые значения. После нажатия кнопки макроса я хочу, чтобы значения или их вычисленные результаты были добавлены к другому листу или файлу.
Хороший вопрос. Допустим, значения находятся в ячейках C10 и E12 листа Sheet1, и вы хотите, чтобы они были добавлены в следующую строку Sheet2.
Настоящая уловка здесь - это код для поиска следующей строки на 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
