用VBA数组改写最简 不要用find

laoau138

用VBA数组改写最简   不要用find

选择单元格区域

一沫昔阳虹w

想不出来怎么用什么数组

1. Sub Test_001()
   
2. '    Sheet3.UsedRange.Select
   
3.         'A1单元格的当前有区域
   
4.         Range("a1").CurrentRegion.Select
   
5. End Sub
   
6. 
   
7. Sub Test_002()
   
8.         '这样可以灵活些，Find应该更灵活
   
9.         Set endRng = Cells(Rows.Count, "D").End(xlUp)
   
10.         Range([a1], endRng).Select
    
11. End Sub

复制代码

laoau138

一沫昔阳虹w 发表于 2017-2-9 17:55
想不出来怎么用什么数组

大侠如何搞定这几条


http://www.excelpx.com/thread-427406-1-1.html
用VBA数组把这个改写一下 这个计算单


http://www.excelpx.com/thread-427650-1-1.html

VBA计算等距离间隔循环相同数字

laoau138

一沫昔阳虹w 发表于 2017-2-9 17:55
想不出来怎么用什么数组

大侠如何搞定这几条


http://www.excelpx.com/thread-427406-1-1.html
用VBA数组把这个改写一下 这个计算单


http://www.excelpx.com/thread-427650-1-1.html

VBA计算等距离间隔循环相同数字