VBA 不连续的多行一次选中操作 |
您所在的位置：网站首页 › excel选中不相邻的行 › VBA 不连续的多行一次选中操作 |
VBA 不连续的多行一次选中操作
|
不连续的多行一次选中操作，比如复制或者删除。这个用法，还是与前面说到过的多行一次选中删除一样的原理。为了更好操作，将不连续的多行用个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得到的结果如下：
|
【本文地址】
今日新闻 |
推荐新闻 |