万分紧急！！！如何将非空单元格的行号写入数组？？

新诺司机-沃克灵

请教一下大家：
如何将第3列非空单元格的行号写入数组？？？代码是怎么样的？？？（然后我有其他需求）

新诺司机-沃克灵

这是表格，在压缩包里面

cnmlgb9998

1. Sub 空行行号()
   
2. Dim brr()
   
3. arr = Range("C1:C" & Cells(Rows.Count, 3).End(xlUp).Row)
   
4. For i = 3 To UBound(arr)
   
5.     If arr(i, 1) = "" Then
   
6.         n = n + 1
   
7.         ReDim Preserve brr(1 To n)
   
8.         brr(n) = i
   
9.     End If
   
10. Next
    
11. 
    
12. [j1].Resize(UBound(brr), 1) = Application.Transpose(brr)
    
13. 
    
14. End Sub
    

复制代码

新诺司机-沃克灵

cnmlgb9998 发表于 2019-10-10 18:35

谢啦~

新诺司机-沃克灵

请问大家能有更精简的代码吗？

yaozong

新诺司机-沃克灵 发表于 2019-10-10 18:56
请问大家能有更精简的代码吗？

少了几行代码不等于是精简了。
Sub test()
  For Each Rng In Range("c3", Cells(Rows.Count, 3).End(3)).SpecialCells(4)
     m = m + 1
     Cells(m, "k") = Rng.Row
  Next
End Sub

astupig

Sub test()
    Dim arr(1 To 100)
    For i = 3 To 13
        If Cells(i, "c") <> "" Then n = n + 1: arr(n) = Cells(i, "C")
    Next i
End Sub

新诺司机-沃克灵

yaozong 发表于 2019-10-11 07:58
少了几行代码不等于是精简了。
Sub test()
  For Each Rng In Range("c3", Cells(Rows.Count, 3).End(3 ...

感谢您，费心啦