VBA小问题 如何统计行数。。谢谢！！

来源：百度知道 编辑：UC知道 时间：2024/05/26 10:41:02
Dim Sh As Worksheet, Rng As Range
For Each Sh In Worksheets
If (Sh.Name <> ActiveSheet.Name) And Sh.Name <> "整理する" Then
Set Rng = Range("a:a").Find(Sh.Name, LookIn:=xlValues, lookat:=1)
If Rng Is Nothing Then
Range("a65536").End(xlUp).Offset(1) = Sh.Name
End If
End If
Next

上方代码实现的功能是：将除了当前sheet（假设叫"X"）和名为"整理する"的sheet之外的其他sheet的名字列在"X"的A列。

现在 同样是这些符合条件的sheets，我想将他们各自的非空行数都输出到"X"的B列，即和A列的名字相对应，请教如何实现~~~~谢谢！！！
加分！！

可以改成：
Dim Sh As Worksheet, Rng As Range
For Each Sh In Worksheets
If (Sh.Name <> ActiveSheet.Name) And Sh.Name <> "整理する" Then
Set Rng = Range("a:a").Find(Sh.Name, LookIn:=xlValues, lookat:=1)
If Rng Is Nothing Then
Range("a65536").End(xlUp).Offset(1) = Sh.Name
Range("a65536").End(xlUp).Offset(0, 1) = Application.WorksheetFunction.CountA(Sh.Range("A:A")) '增加的部分
End If
End If
Next