Код VBA для подсчета количества строк (в отфильтрованных данных) и суммирования соответствующего столбца в отфильтрованном исходном файле

Question

Я хотел бы получить справку по кодам VBA для:

• подсчета количества строк (которые можно отфильтровать) из исходного файла, который я открыл, и сообщил о количестве вмастер-файл.

• имеют сумму соответствующего столбца в исходном файле и сообщают значение в мастер-файле.

Причина этих вопросов заключается в том, чтобы убедиться, что исходный файл полностью скопирован в основной файл.

Любая помощь будет высоко ценится.

Answer 1

Чтобы подсчитать непустые не скрытые ячейки в столбце А рабочего листа Sheet1, вы можете использовать этот код:

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

Для этого в ячейке очень похоже:

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

(Конечно, это будет включать строку заголовка)

(SUBTOTAL(3, Sheet1!A:A) совпадает с COUNTA(Sheet1!A:A) - вместо этого используется 103игнорировать скрытые / отфильтрованные строки)

Answer 2

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

Предполагается, что все поля в этом столбце будут иметь значения.Это также работает с xlToRight и xlToLeft, если в каждой ячейке есть значения.