如何使用VBA的With语句对单元格区域的值进行取整操作

要实现用With语句批量处理指定单元格区域，将每个单元格的值四舍五入到0位小数，需要结合For Each循环遍历区域内的单元格，具体代码如下：

With Range("A1:A2")
    Dim cell As Range
    For Each cell In .Cells
        cell.Value = Round(cell.Value, 0)
    Next cell
End With

说明： #

• With Range("A1:A2") 绑定目标单元格区域，块内使用.Cells即可指代该区域的所有单元格，无需重复书写完整的Range引用。
• 通过For Each循环逐个遍历区域内的单元格，对每个单元格的.Value执行Round函数后重新赋值，效果和逐单元格设置完全一致。
• 如果需要扩展到更大的区域（比如A1:A100），只需修改With语句中的Range参数即可，代码结构无需调整。

内容的提问来源于stack exchange，提问作者simpatak