Добрый день!
Написал небольшой макрос, необходимо из файла удалить строки по условию, но т.к. строк в файле ооочень много сижу уже пол часа жду когда закончится. как можно ускорить? или есть другие способы?
Написал небольшой макрос, необходимо из файла удалить строки по условию, но т.к. строк в файле ооочень много сижу уже пол часа жду когда закончится. как можно ускорить? или есть другие способы?
Код |
---|
Sub udalenie() ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate k = ActiveCell.Row Cells(1, 1).Select Response = MsgBox("удалить?", vbYesNo) If Response = vbYes Then s = 2 For a = 2 To k Cells(s, 1).Select Select Case Cells(s, 9) Case "ооо пупкин": s = s + 1 Case "ЧП дерево": s = s + 1 Case "Т2": s = s + 1 Case "ФГУП мамба": Case Else Rows(s & ":" & s).Select Selection.Delete Shift:=xlUp End Select Next a End If End Sub |