Question

我有一个excel工作簿，其中包含多个工作表，其中的表格范围为从A到L 。我想计算行并将结果粘贴到摘要表中。

例如：

Sheet2有3行。我想将行数复制到sheet1 C3

Sheet3有9行。我想将行数复制到sheet1 C4

Sheet4有5行。我想将行数复制到sheet1 C5

以及我的所有表格。（我有超过3000张）

我是excel中的新手，所以我很感激任何帮助，非常感谢。

Answer 1

没有宏只需要我们一个公式：

=COUNTA(Sheet2!A:A)将sheet2更改为C3，C4，C5中每个单元格的approrpiate表格

简单地说......放

C3中的

=COUNTA(Sheet2!A:A)

C4中的

=COUNTA(Sheet3!A:A)

C5中的

=COUNTA(Sheet4!A:A)

假设每个工作表中的列A在您想要计算行时都有一个值，否则使用不同的列！（将A：A改为B：B或其他）

如果名字不是表1等......你可以......

创建此定义的名称： “公式”标签＆gt;名称管理员＆gt;新

名称：SheetNames
范围：工作簿
指：= GET.WORKBOOK（1）＆amp; T（NOW（））
点击确定

然后将此公式添加到B而不是数字

=INDEX(MID(SheetNames,FIND("]",SheetNames)+1,255),ROWS(A$1:A1))

填写下来，现在你有了填写c3及以上的值

Answer 2

希望这个简单的宏有帮助：

Sub coutndisplay()

    Dim count As Integer

    ' Create an object for sheet 1
    Set sh1 = ThisWorkbook.Sheets(1)

    ' Get the number of sheets in the workbook
    count = ThisWorkbook.Sheets.count

    For i = 2 To count

        ' Populate the number of rows in sheet 1 starting from C3
        ' C3 populate the number of rows in sheet 2 and it goes on
        sh1.Cells(i + 1, 3) = ThisWorkbook.Sheets(i).UsedRange.Rows.count
    Next i

End Sub

计算行数和副本数

2 个答案: