计数行和副本号码
我有一个excel工作簿，其中有多张表，范围从A到L。 我想统计行数并将结果粘贴到汇总表中。
例如：
Sheet2有3行。 我想将行数复制到sheet1 C3中
Sheet3有9行。 我想将行数复制到sheet1 C4
Sheet4有5行。 我想将行数复制到sheet1 C5中
通过我所有的床单等等。 （我有超过3000张）
我是excel中的新手，所以我会欣赏任何帮助，非常感谢。
没有macros需要我们一个公式：
=COUNTA(Sheet2!A:A)将sheet2更改为C3，C4，C5中每个单元格的推荐表单
把简单…放
在C3中=COUNTA(Sheet2!A:A)
在C4中=COUNTA(Sheet3!A:A)
在C5中=COUNTA(Sheet4!A:A)
假设每个工作表中的列A有一个值，当你要计算行，否则使用不同的列！ （改变A：A到B：B或别的东西）
如果名称不是sheet1等…你可以….
创build此定义的名称：公式选项卡>名称pipe理器>新build
- 名称：SheetNames
- 范围：工作簿
- 指的是：= GET.WORKBOOK（1）＆T（NOW（））
- 单击确定
然后将此公式添加到B而不是数字
=INDEX(MID(SheetNames,FIND("]",SheetNames)+1,255),ROWS(A$1:A1))
填写下来，现在你有价值来填补你的C3和更多
希望这个简单的macros有助于：
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