VBA代码对行数进行计数（在过滤后的数据中）并对过滤后的源文件中的相关列求和

Question

我想获得有关VBA代码的帮助：

• 计算源文件的行数（可以过滤），我已经打开该文件并将其报告在主文件中。

• 在源文件中具有相关列的总和，并在主文件中报告该值。

出现这些问题的原因是要确保输入的源文件已完全复制到主文件中。

任何帮助将不胜感激。

Answer 1

dim endRow as integer
Range("a1").select
selection.End(xlDown).Select
endRow = activecell.row

这是假定该列中的所有字段都具有值。 只要每个单元格中都有值，这对xlToRight和xlToLeft也适用。

Answer 2

要计算工作表Sheet1的A列中的非空白非隐藏单元格，可以使用以下代码：

WorksheetFunctions.Subtotal(103, Sheet1.Columns(1))

在一个单元格中这样做非常相似：

=SUBTOTAL(103, Sheet1!$A:$A)

（当然，此 会包含您的标题行）

（{SUBTOTAL(3, Sheet1!A:A)与COUNTA(Sheet1!A:A)相同-而是使用103忽略了隐藏/过滤出的行）