Excel VBA - 对范围内的每个单元格执行函数

Question

假设我有一个名为 rng1 的范围

Set rng1 = Worksheets("Sheet1").Range("A1","A5")

是否有一种快速、简单的方法来执行数学函数，比如将 rng1 中的所有单元格的所有单元格值除以 2？

感谢任何帮助!

Answer 1

这非常简单，但最终的代码将取决于您想要存储新值的位置。例如，如果您想在下一列中存储除以 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