Есть шарящие за макросы в экселе? [решено]
Привет! Пытаюсь облегчить себе работу и подготовить выданную таблицу, зачистив ненужные столбцы, но что-то не понимаю, в чем вылезает ошибка. Пробовала чисто интуитивно разные способы, но ни один не сработал — либо чистит неверно, либо выпадает в ошибку "данная команда неприменима для перекрывающихся диапазонов".
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Rows("1:1").Select
Selection.AutoFilter
Range("E:AH,AJ:AK,AN:AN,AP:AQ,AS:AX,AZ:BC,BE:BS").Select
Selection.Delete Shift:=xlToLeft
End Sub
Sub DeleteRowsAndColumns()
Dim ws As Worksheet
Set ws = ActiveSheet
ws.Rows("1:2").Delete Shift:=xlUp
ws.Rows("1:1").AutoFilter
ws.Range("E:AH,AJ:AK,AN:AN,AP:AQ,AS:AX,AZ:BC,BE:BS").Delete Shift:=xlToLeft
End Sub