Копирование на разные вкладки на основе Autofilter

Я искал ответ на свой вопрос, но не мог найти ничего, что сработало бы для меня.

То, что я пытаюсь сделать в качестве первого шага, – это отфильтровать «основной» лист на основе конкретного пользователя из столбца A и скопировать диапазон Autofilter Range на конкретную вкладку. Проблема, которую я имею до сих пор, заключается в том, что данные из скрытых столбцов также копируются. Я был бы очень признателен вам за вашу помощь!

Sub PopulateTabs() Dim ws_pre As Worksheet Set ws_pre = Sheets("main") ws_pre.Range("E:G,K:K,N:N,AF:AH,AK:AK,AN:AS").EntireColumn.Hidden = True With ws_pre.Range("A1:AX4000") .AutoFilter Field:=1, Criteria1:="User1" End With ws_pre.AutoFilter.Range.Offset(1, 0).Resize(Rows.Count - 1).SpecialCells(xlCellTypeVisible).copy Sheets("User1").Range("B9").Paste End Sub 

Как я уже упоминал, это только первый шаг, поскольку в конечном итоге я хочу скопировать ячейки для 20 разных пользователей на соответствующие 20 разных вкладок. У вас есть идея, как с этим бороться?

Interesting Posts

Продолжайте получать ошибки во время выполнения VBA

Добавить событие для другого WB из модуля

Настройка данных, используемых линейным графиком с использованием EPPlus

Объект VBA требует ошибки в зависимости от расположения кода

Найдите строку в столбце и скопируйте значения следующего столбца при успешном совпадении

Excel 2013 FILTERXML () возвращает неправильное значение?

Пять самых больших значений в столбце

Index ALWAYS Вне диапазона в VBA после использования WorksheetFunction.Frequency

Заполнение листов

Excel VBA .AddChart Метод 'SetSource Data' объекта '_chart' не выполнен

Манипуляция данными Excel

Excel Macro для получения случайных данных из столбца A

Получение уникальных значений в Excel только с использованием формул

Добавление строки между ячейкой с тем же значением с использованием кода VBA

Shell.namespace не принимает строковую переменную, но принимает собственно строку

Давайте будем гением компьютера.