在EXCEL宏里怎么用循环写选中A1再选中B2直到D4

2025-03-12 20:05:07

推荐回答（3个）

回答1：

直接写呀，不需要用循环
选择A1，再选择B2到D4
Range("A1").Select
Range("B2:D4").Select
选择A1且选择B2到D4
Range("A1,B2:D4").Select

回答2：

如果仅你说的range选择,可以不用循环,直接用union成多个range,再select:
With ActiveSheet
Union(.Range("A1"), Range("B2:D4")).Select
End With

如果是有规则选择多个单元,可以在循环中union多个单元:
Dim mRange As Range
For i = 1 To 4
With Sheet2
If i = 1 Then
Set mRange = .Range(Chr(64 + i) & i)
Else
Set mRange = Union(mRange, .Range(Chr(64 + i) & i))
End If
End With
Next
mRange.Select

回答3：

for i=1 to 4
cells(i,i).select
next