Excel vba 如何依次选择不相交的单元格

jj_whwzj

Sub aaa()
Range("1:2,5:6,9:10").Select  '不相交的单元集合
For i = 1 To 6
   Range("1:2,5:6,9:10").Range("a" & i).Select   ' 如何依次选择不相交的单元集合 中的a列的6 个单元格。
Next i
End Sub

end sub

cflood

For Each c In Application.Intersect(Range("1:2,5:6,9:10"), Range("A:A"))
    MsgBox c.Address
Next c

蓝桥玄霜

建议上传Excel表格附件来说明问题。