除了遍历，还有别的更好方法吗？

raikthal

我明白了，非常感谢各位的指教！

chis3

chxw68 发表于 2018-9-23 11:09
用find也得循环，只是你看不见罢了。

find確實比一循環快
要是十萬條資料,循環找和find
find快多了

chxw68

chis3 发表于 2018-9-23 15:34
find確實比一循環快
要是十萬條資料,循環找和find
find快多了

我没说速度

佛山小老鼠

1. Sub find查找空单元格的行号()
   
2.     Dim Rg As Range, St$, SumRg As Range, arr1(), k
   
3.     Set Rg = Range("A1:A70").Find("", , , xlWhole)
   
4.     If Rg Is Nothing Then Exit Sub
   
5.     St = Rg.Address
   
6.     Set SumRg = Rg
   
7.      Do
   
8.      k = k + 1
   
9.      ReDim Preserve arr1(1 To k)
   
10.      arr1(k) = Rg.Row
    
11.     Set Rg = Range("A1:A70").Find("", Rg, , xlWhole)
    
12.       Loop While Rg.Address <> St
    
13. End Sub

复制代码

372C

简便办法，先选中列，定位到非空单元格，然后做选中单元格的循环，提取行号就可以了

raikthal

372C 发表于 2018-9-24 10:26
简便办法，先选中列，定位到非空单元格，然后做选中单元格的循环，提取行号就可以了

定义一个数组存放定位之后的单元格地址？然后在数组中遍历？这是个好办法哦，我马上去试试~

duquancai

raikthal 发表于 2018-9-24 11:50
定义一个数组存放定位之后的单元格地址？然后在数组中遍历？这是个好办法哦，我马上去试试~

根本没有搞明白你啥意思？？？我理解能力太差！

372C

raikthal 发表于 2018-9-24 11:50
定义一个数组存放定位之后的单元格地址？然后在数组中遍历？这是个好办法哦，我马上去试试~

看来没理解我的意思，不需要数组，也不需要遍历，都不需要
就是把这部分手动操作变成代码就可以了
第一步，选中A列，ctrl+g，定位到非空单元格，此时选择的单元格就是你要的单元格
第二步，做一个for each cel selection 做个循环，把cel中的row属性行号提出来就行了

Kaohsing

只是起了个名字，也许里面封装了c 语言的高级遍历方法。