Добрый день.
Скажите пожалуйста как модифицировать макрос, чтобы он находил в каждой строчке четкое значение и выводил его в файл, то есть мне нужно найти в первой строчке все значения которые = 8, потом во второй строчке и так далее, данный макрос почему то не оставляет такие значения, в чем тут ошибка?
Скажите пожалуйста как модифицировать макрос, чтобы он находил в каждой строчке четкое значение и выводил его в файл, то есть мне нужно найти в первой строчке все значения которые = 8, потом во второй строчке и так далее, данный макрос почему то не оставляет такие значения, в чем тут ошибка?
Код |
---|
Sub FilterFrom2To8() Dim i As Long With ActiveSheet If .AutoFilterMode = True Then .AutoFilterMode = False .Rows(1).AutoFilter For i = 1 To .UsedRange.Columns.Count .UsedRange.AutoFilter Field:=i, Criteria1:=">=8", Operator:=xlAnd, Criteria2:="<=9" Next i End With End Sub |