Удалить скрытые строки в автофильтре в совместной таблице - PullRequest
0 голосов
/ 16 декабря 2018

Что я хочу сделать, это сбросить фильтр, а затем удалить все строки ниже строки 9.

Это должно быть легкой задачей, но это соавторская электронная таблица, я хочу избегать использования ActiveSheet.ShowAllDataтак как это потребует от всех людей обновить электронную таблицу.

Я пытался использовать keybd_event для имитации ALT + A + C, чтобы очистить фильтр, но это не совсем работает.

keybd_event VK_Alt, 0, 0, 0
keybd_event VK_A, 0, 0, 0
keybd_event VK_A, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_Alt, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_C, 0, 0, 0
keybd_event VK_C, 0, KEYEVENTF_KEYUP, 0

Worksheets(1).Rows(9 & ":" & Worksheets(1).Rows.Count).Delete

Я думаю, что когда marco имитирует alt + a + c, скрытые строки не отображаются, пока не завершится весь макрос.Таким образом, он удаляет только эти видимые строки, и после завершения макроса эти скрытые строки появляются.

Кто-нибудь знает, как лучше это сделать?Любая помощь будет оценена!Спасибо!

...