excel_VBA中对不连续单元格区域进行操作

Dim op_range
Dim cell As Range
'用union函数将区域连接起来
Set op_range = Union(Range("a1:d3"), Range("a7:d7"))
For Each cell In op_range
    '操作语句填写在这里
    'cell.Value = Left(cell.Value, Len(cell.Value) - 3)
Next cell