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

buxiaodea

群里的大神：
     有个比较基础的问题，已知需要复制粘贴的行号（比如想复制粘贴 4,5,9,11,12  5行），并且这些行号已组成一个数组array(4,5,9,11,12)，有没有办法直接一次性选中这些行（不通过循环），麻烦帮忙看一下，谢谢

缘之绘

Sub 多行选择()
    Worksheets("Sheet1").Activate
    Dim myUnion As Range
    Set myUnion = Union(Rows(4), Rows(5), Rows(9), Rows(11), Rows(12))
    myUnion.Select
End Sub

buxiaodea

缘之绘 发表于 2020-2-10 20:48
Sub 多行选择()
    Worksheets("Sheet1").Activate
    Dim myUnion As Range

嗯 ，如果要选择的行有很多，但是行号组成的数组已知，不能一个个去罗列，这个时候怎么办

gbgbxgb

buxiaodea 发表于 2020-2-11 16:14
嗯 ，如果要选择的行有很多，但是行号组成的数组已知，不能一个个去罗列，这个时候怎么办

哈哈，最终还是得用循环，可楼主特意指明不允许用循环。

microyip

1. Range("A4,A5,A9,A11,A12").EntireRow.Select

复制代码

microyip

1.     Dim sAddress As String
   
2.     sAddress = "4,5,9,11,12"
   
3.     Range("A" & Replace(sAddress, ",", ",A")).EntireRow.Select

复制代码

microyip

1.     Dim vData As Variant
   
2.     vData = Array(4, 5, 9, 11, 12)
   
3.     Range("A" & Join(vData, ",A")).EntireRow.Select

复制代码

chxw68

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

只有想不到，没有做不到！

buxiaodea

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

这个不错，谢谢

buxiaodea

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

这个厉害，学习了，谢谢