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