Excel 计算行数和拷贝数
我有一个excel工作簿，其中有多张表格，表格范围从A到L。我想计算行数并将结果粘贴到摘要表中 例如： 表2有3行。我想将行数复制到sheet1 C3中 表3有9行。我想将行数复制到sheet1 C4中 表4有5行。我想将行数复制到sheet1 C5中 我所有的床单都是如此。（我有3000多张）Excel 计算行数和拷贝数,excel,vba,count,macros,paste,Excel,Vba,Count,Macros,Paste,我有一个excel工作簿，其中有多张表格，表格范围从A到L。我想计算行数并将结果粘贴到摘要表中 例如： 表2有3行。我想将行数复制到sheet1 C3中 表3有9行。我想将行数复制到sheet1 C4中 表4有5行。我想将行数复制到sheet1 C5中 我所有的床单都是如此。（我有3000多张） 我不熟悉excel中的宏，因此非常感谢您的帮助。不需要宏，只需要我们一个公式： =COUNTA（Sheet2！A:A）将Sheet2更改为C3、C4、C5中每个单元格的相应表格 简单地说……简单地说 =
我不熟悉excel中的宏，因此非常感谢您的帮助。不需要宏，只需要我们一个公式：
=COUNTA（Sheet2！A:A）=C3中的COUNTA（Sheet2！A:A）=C4中的COUNTA（表3！A:A）=C5中的COUNTA（表4！A:A）- 姓名：姓名
- 范围：工作簿
- 引用：=GET.WORKBOOK（1）和T（NOW（））
- 单击“确定”
=索引（中间（SheetNames，FIND（“]），SheetNames）+1255），行（A$1:A1））向下填充，现在您可以在c3和c3之外填充值了无需宏，只需一个公式：
=COUNTA（Sheet2！A:A）=C3中的COUNTA（Sheet2！A:A）=C4中的COUNTA（表3！A:A）=C5中的COUNTA（表4！A:A）- 姓名：姓名
- 范围：工作簿
- 引用：=GET.WORKBOOK（1）和T（NOW（））
- 单击“确定”
=索引（中间（SheetNames，FIND（“]），SheetNames）+1255），行（A$1:A1））“向下填充”，现在您可以在c3和更高版本中填充值了。希望这个简单的宏有助于：
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
希望这个简单的宏有助于：
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
欢迎来到堆栈溢出。所以这不是一个“为我编写代码”的网站，也不是一个“教我编写代码”的网站。这是一个致力于帮助查找现有代码中的错误并克服这些问题的网站。欢迎使用堆栈溢出。所以这不是一个“为我编写代码”的网站，也不是一个“教我编写代码”的网站。这是一个专门帮助查找现有代码中的错误并克服这些问题的网站。
（我有3000多张）sheet（我有3000多张）sheet