计算行数和拷贝数答案

【问题标题】：Count rows and copy number计算行数和拷贝数
【发布时间】：2016-11-10 02:42:17
【问题描述】：

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

例如：

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

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

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

等到我所有的床单。（我有3000多张）

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

【问题讨论】：

欢迎来到 Stack Overflow。 SO 不是“为我编写代码”站点，也不是“教我编写代码”站点。它是一个致力于帮助发现现有代码中的错误并解决这些问题的网站。

标签： excel vba count macros paste

【解决方案1】：

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

=COUNTA(Sheet2!A:A) 将 sheet2 更改为 C3、C4、C5 中每个单元格的相应工作表

简单地说……放

=COUNTA(Sheet2!A:A) 在 C3 中

=COUNTA(Sheet3!A:A) 在 C4 中

=COUNTA(Sheet4!A:A) 在 C5 中

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

如果名称不是 sheet1 等......你可以......

创建这个定义的名称：公式选项卡 > 名称管理器 > 新建

名称：SheetNames
范围：工作簿
参考：=GET.WORKBOOK(1)&T(NOW())
点击确定

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

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

向下填写，现在您可以填写 c3 及以上的值

【讨论】：

(I have over 3000 sheets) 这需要一点时间。 :) 假设每个公式 10 秒 3000*10 / 60 = 500 分钟或 8 1/3 小时。我会得到一个工作表列表，有很多网站会展示如何使用命名范围来做到这一点。然后在将引用的 COUNTA 中使用 INDIRECT，以便可以填写公式。只是一个观察。我喜欢这种方法。
然后我会在 A 中使用一个公式，例如 ="=CountA(Sheet"&B3000&"!A:A)" 并在 B 中使用填充系列将 1-3000 .. 然后导出所有要粘贴的值...在几秒钟内完成；但你的观点说得很好。我的方法显然不是动态的。充满假设
如果工作表名称都是Sheet 和某个数字，那么这将起作用，并且重新计算速度更快。
该死...... Excel 专家我证明我不是......但我会继续学习@ScottCraner
感谢 cmets。我设法让它为第一个单元格工作： =COUNTIF('30146A000A'!A3:A2001,""&"") 因为工作表未命名为“Sheet1”等，所以我必须输入名称（在本例中为“30146A000A”）。关于如何简化流程的任何想法。我尝试使用 =COUNTIF(Sheet(2) !A3:A2001,""&"") 但这不起作用。

【解决方案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

【讨论】：