汇总每个表中的数据行数

zhuzhu19830

大家好，有一个工作表，里面有5个sheet，我想汇总每个表中的数据行数：
用了下面的宏，但是计算出来不对，不知道哪位有空帮忙看一下嘛？多谢！




Sub 计算数据行数()
    Dim m

    Dim i

    Dim o

    Dim p

    Dim q

    i = Worksheets.Count

        For m = 1 To i - 1

            o = Sheets("data").Range("A1048576").End(xlUp).Row

            p = Sheets("data").Range("b1048576").End(xlUp).Row

            q = Worksheets(m).Range("a1048576").End(xlUp).Row

            Sheets("data").Cells(o + 1, 1) = Worksheets(m).Name

            Sheets("data").Cells(p + 1, 2) = q

        Next

            Sheets("data").Select

End Sub



比如这个表中的数据实际是3431行，去掉标题行，应该是3430.


但是，出来的结果是3417. 不知道为什么？

ykcbf1100

你不上传附件谁能帮你。

zhuzhu19830

ykcbf1100 发表于 2022-12-5 13:36
你不上传附件谁能帮你。

谢谢！我重新编辑了一次。

shiruiqiang

zhuzhu19830 发表于 2022-12-5 14:14
谢谢！我重新编辑了一次。

Worksheets(m).Range("a1048576").End(xlUp).Row,a列部分是空白

lushang2018

Dim sht As Worksheet, 总行数     For i = 1 To Worksheets.Count         Set sht = Sheets(i)         Sheets("data").Cells(i, 1) = sht.Name         Sheets("data").Cells(i, 2) = sht.Cells(Rows.Count, "E").End(xlUp).Row     Next

lushang2018

Dim sht As Worksheet
    For i = 1 To Worksheets.Count
        Set sht = Sheets(i)
        Sheets("data").Cells(i, 1) = sht.Name
        Sheets("data").Cells(i, 2) = sht.Cells(Rows.Count, "E").End(xlUp).Row
    Next

zhuzhu19830

shiruiqiang 发表于 2022-12-5 17:53
Worksheets(m).Range("a1048576").End(xlUp).Row,a列部分是空白

谢谢答复，了解了。

chzsh

Sub 计算数据行数()
    Dim i
    Dim sht As Worksheet
    For i = 1 To Worksheets.Count
        Set sht = Sheets(i)
        Sheets("data").Cells(i, 1) = sht.Name
        Sheets("data").Cells(i, 2) = sht.Cells(Rows.Count, "e").End(xlUp).Row - 1
    Next
            Sheets("data").Select

End Sub

chzsh

Sub 计算数据行数()
    Dim i
    Dim sht As Worksheet
    For i = 1 To Worksheets.Count
        If Sheets(i).Name <> "data" Then
        Set sht = Sheets(i)
        Sheets("data").Cells(i, 1) = sht.Name
        Sheets("data").Cells(i, 2) = sht.Cells(Rows.Count, "e").End(xlUp).Row - 1
    End If
    Next
    Sheets("data").Select

End Sub