假设我有一个名为rng1的范围
Set rng1 = Worksheets("Sheet1").Range("A1","A5")
对于rng1中的所有单元格，是否有一种快速简便的方法来执行数学功能，比如说将所有这些单元格值除以2？
任何帮助表示赞赏！
最佳答案
这很容易，但是最终代码将取决于您要将新值存储在何处。例如，如果要在第二列中存储除以2的值：
Sub test()
Dim cell As Range
For Each cell In Range("A1:A5")
cell.Offset(, 1).Value = cell.Value / 2
Next
End Sub
请注意，如果您的范围较大，则比使用偏移更有效的方法，但是对于较小的范围，这是完全可以接受且快速的。
如果要覆盖值，可以简单地使用
cell.Value代替cell.Offset(,1).Value