VBA 不连续的多行一次选中操作

本文介绍如何使用VBA在Excel中实现不连续多行的高效选择、复制和删除操作。通过将行号以逗号分隔的字符串转换为Range对象,可以方便地对不连续的行进行统一操作。例如,将行号字符串“1,3,9”转换后,可以执行Copy和Delete等操作,提高了工作效率。
摘要由CSDN通过智能技术生成

不连续的多行一次选中操作,比如复制或者删除。这个用法,还是与前面说到过的多行一次选中删除一样的原理。为了更好操作,将不连续的多行用个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

得到的结果如下:

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值