Excel 宏为单元格添加值

Question

我想请求一些有关 Excel 宏的帮助。

我有一个充满数据的列，我想创建一个宏，当我运行它时，它会向该列中的每个单元格添加“1”，而不必在所有 300 个单元格中键入“1”。有什么建议么？谢谢您的帮助。

Answer 1

要在单元格中放置“1” ：

Sub Place1()
    Range("A1:A300").Value = 1
End Sub

要将单元格中的当前值添加“1” ：

Sub Add1()
    For Each r In Range("A1:A300")
        r.Value = r.Value + 1
    Next r
End Sub