Excel宏为单元格添加值

【问题标题】：Excel Macro adding value to cellsExcel宏为单元格添加值
【发布时间】：2014-07-26 14:31:21
【问题描述】：

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

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

【问题讨论】：

【解决方案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

【讨论】：