将宏适应于任何范围,可以通过使用命名范围和变量来实现。 代码示例:
Sub MyMacro() '将范围命名为'MyRange” Dim MyRange As Range Set MyRange = Range("A1:B10") '使用 For Each 循环遍历 MyRange 中每个单元格 For Each cell In MyRange '执行你的宏操作 '可以使用 cell.Value 访问当前单元格的值 Next cell End Sub
此代码允许您自定义 MyRange 作为您需要的任何范围,并在该范围内执行您的宏操作。