[已解决]多行多区域代码表示

白雪高山

想一次性删除几个区域行，代码不知怎么写，如我要删除1：3，8，15：20，23，28　行的代码怎么写
rows( "1：3，8，15：20，23，28 ").delete 这样写好象不写，求老师给段代码。

最佳答案

月排行榜 / 总排行榜

cbg2008

2014-6-13 19:47

range( "1：3，8，15：20，23，28 ").delete

跳转到最佳答案楼层

ghostjiao

1. Sub demo()
   
2.     Dim rng As Range
   
3.     Set rng = Union(Range("A1:A3"), Range("A8"), Range("A15:A20"), Range("A23"), Range("A28"))
   
4.     rng.EntireRow.Delete
   
5. End Sub
   

复制代码

白雪高山

ghostjiao 发表于 2014-6-13 19:28

有没有简单的表示方法，因为要删除的行我要用变量表示，变量很长。

ghostjiao

白雪高山 发表于 2014-6-13 19:30
有没有简单的表示方法，因为要删除的行我要用变量表示，变量很长。

你这个比如的也没啥规律啊，来个附件看看，看你的实际需求

cbg2008

range( "1：3，8，15：20，23，28 ").delete

白雪高山

经测试这种才行
range( "1：3，8：８，15：20，23：23，28：28 ").delete