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

在这里插入图片描述

版权声明：本文为qq_41865473原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。