如何一次性选择不相连的列

buxiaodea

microyip 发表于 2020-2-11 16:34

大神，再请教一下，如果是想一次性选中4,5,9,12,13行的A列，B:E列，F列，这个有没有办法
谢谢

lss001

'使用Application.Goto 方法
Sub 选择多行或多列()
    ar = Array(4, 5, 9, 11, 12)
   
    x = "r" & Join(ar, ",r") '选择多行//r表示行
    Application.Goto reference:=x
     
    y = "c" & Join(ar, ",c") '选择多列//c表示列
    Application.Goto reference:=y
End Sub

microyip

buxiaodea 发表于 2020-2-11 18:23
大神，再请教一下，如果是想一次性选中4,5,9,12,13行的A列，B:E列，F列，这个有没有办法
谢谢

1.     Dim vData As Variant
   
2.     vData = Array(4, 5, 9, 11, 12)
   
3.     MsgBox "选择A：A列"
   
4.     Intersect(Range("A" & Join(vData, ",A")).EntireRow, [A:A]).Select
   
5.     MsgBox "选择B：E列"
   
6.     Intersect(Range("A" & Join(vData, ",A")).EntireRow, [B:E]).Select
   
7.     MsgBox "选择F：F列"
   
8.     Intersect(Range("A" & Join(vData, ",A")).EntireRow, [F:F]).Select
   
9.     MsgBox "选择A\C\F列"
   
10.     Intersect(Range("A" & Join(vData, ",A")).EntireRow, [A:A,C:C,F:F]).Select

复制代码

buxiaodea

microyip 发表于 2020-2-11 21:51

谢谢

buxiaodea

microyip 发表于 2020-2-11 21:51

多谢多谢，领教了！！

buxiaodea

lss001 发表于 2020-2-11 20:45
'使用Application.Goto 方法
Sub 选择多行或多列()
    ar = Array(4, 5, 9, 11, 12)

这个方法以前没用过，学习了，谢谢