Как скопировать значения (например, LT0123) из ячейки A1 в ячейку A2, используя VBA?

Question

Короче говоря, я хочу создать макрос и назначить его фигуре, чтобы при каждом щелчке заполнять одну и ту же информацию в каждой новой / пустой строке.

Например: у A1 есть «LT0123xx», а когданажмите кнопку, я хочу, чтобы она скопировала «LT0123xx» в A2, затем следующим щелчком мыши в A3 и так далее.Затем я вручную изменяю поле А1 на то, что мне нужно.

Answer 1

Sub CopyToLastCell()
Dim xValue As Variant
    xValue = Range("A1")
    Cells(Rows.Count, "A").End(xlUp).Offset(1) = xValue
End Sub

Answer 2

@ BigBen - спасибо, что указали мне правильное направление :) Я нашел то, что мне было нужно. Это было действительно тяжело, так как я никогда в своей жизни не занимался программированием, а только 5 часов онлайн-обучения VBA! Спасибо, ниже приведен скрипт для всех, кому он может понадобиться:

Range("A" & Rows.Count).End(xlUp).Offset(1).Select
ActiveCell.FormulaR1C1 = "PCxxx"
'this is inputting data into the last row with no data in the table in column A

Range("D" & Rows.Count).End(xlUp).Offset(0).Select
ActiveCell.FormulaR1C1 = "Userxxx"
'this is inputting data into the last row with no data in the table in column D

Range("F" & Rows.Count).End(xlUp).Offset(0).Select
ActiveCell.FormulaR1C1 = "ServiceCodexxx"
'this is inputting data into the last row with no data in the table in column F