博客

不连续的多行一次选中操作，比如复制或者删除。这个用法，还是与前面说到过的多行一次选中删除一样的原理。为了更好操作，将不连续的多行用个range对象装起来，即可方便操作。

原理：将不连续的多行使用字符串装起来，各行号间用逗号隔开。格式如：

myrow = "1,3,9"

然后使用这个轮子，把字符串代表的行给转换成单元格对象：

Function RowsSelect(ByVal Rowstr As String) As Range
    Dim cc As Variant, ran As Range
    cc = VBA.Split(Rowstr, ",")
    Set ran = Rows(cc(0))
    'union中必须是对象.所以这种写法必须先让一个变量定义为具体的对象
    For i = 1 To UBound(cc)
        If cc(i) <> "" Then
            Set ran = Application.Union(ran, Rows(cc(i)))
        End If
    Next i
    Set RowsSelect = ran
    Set ran = Nothing
End Function

接下来，就可以对这个range对象进行操作了。比如下面这个例子：

Sub test()
    myrow = "1,3,9"
    Dim myrng As Range
    Set myrng = RowsSelect(myrow)
    myrng.Copy Range("A15")
    Set myrng = Nothing
End Sub

得到的结果如下：