Mamontoza
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть такой макрос, что к нему дописать чтоб он удалял строчки у которых начало пустая клетка и ----.
Sub Макрос4()
'
' Макрос4 Макрос
' Макрос записан 28.01.2008 (mamont)
'
'
Range("H23").Select
Columns("G:G").ColumnWidth = 18.14
Columns("A:G").Select
Range("G1").Activate
Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Key2:=Range("F1") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("H:H,I:I,J:J").Select
Range("J1").Activate
Selection.Delete Shift:=xlToLeft
Range("D6").Select
ActiveWindow.SmallScroll Down:=117
With Application.ReplaceFormat.Font
.Subscript = False
.ColorIndex = 11
End With
With Application.ReplaceFormat.Font
.FontStyle = "полужирный"
.Subscript = False
.ColorIndex = 11
End With
Cells.Replace What:="O", Replacement:="Исходящий ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Range("F174").Select
ActiveWindow.SmallScroll Down:=-42
Windows("temp").Activate
Cells.Replace What:="T", Replacement:="Исходящий ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
With Application.ReplaceFormat.Font
.FontStyle = "полужирный"
.Subscript = False
.ColorIndex = 9
End With
Cells.Replace What:="I", Replacement:="Входящий ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Cells.Replace What:="t", Replacement:="Входящий ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
ActiveCell.Replace What:="t", Replacement:="Входящий ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Range("H149").Select
ActiveWindow.SmallScroll Down:=279
Columns("G:G").ColumnWidth = 27.71
ActiveWindow.SmallScroll Down:=12
End Sub
Заранее спасибо |
ошибся Application.Quit в в середине макроса, получается он сам себя закроет и прервёт выполнение? ну это корректно так писать просто примеров не нашёл... работает вроде нормально. 
типа: "Compile error Expected:=" 
