Получение полного скопированного набора строк в VBA и сохранение его в переменной

Question

Я задал этот вопрос немного назад, но задал его неправильно, и не смог получить лучший ответ.

У меня довольно простой синтаксический вопрос:

Япытаясь скопировать и вставить n строк из одного файла Excel в другой.Кроме того, я хотел бы сохранить все скопированные строки FILTERED в переменную.Может ли кто-нибудь помочь мне в этом?

Например:

'1) Активировать файл CSV, применить фильтр к столбцу B (заголовок страницы) и снять флажки «пробелы» («<>») filter

Windows («Test_Origin.xlsm»). Активируйте

ActiveSheet.Range («$ A $ 1: $ J $ 206»). АвтофильтрПоле: = 2, Критерии1: = "<>"

'2) Копировать отфильтрованные строки с данными (исключая строку 1)

Диапазон(«B2: F189»). Select

Selection.Copy

copiedRowTotal = Selection.Rows.Count <- это не дает мне отфильтрованные строки </strong>

Спасибо

Answer 1

dim i as long
i = Application.WorksheetFunction.Subtotal(2,worksheets("Sheet").Range("B2:F189"))

Дайте вам описание здесь Получение общего скопированного набора строк в VBA и сохранение его в переменной

Answer 2

Попробуйте:

copiedRowTotal  = Range("B2:B189").SpecialCells(xlCellTypeVisible).Count