Как удалить числа в Excel Filter
В редакторе решений щелкните правой кнопкой мыши по проекту (а не по решению), на вкладке сборки выберите Платформа цели: «Любой процессор».
0
задан Pᴇʜ 17 January 2019 в 13:14
поделиться
1 ответ
Вы можете использовать Criteria1:=">=0", чтобы найти все числа.
rng1.AutoFilter Field:=5, Criteria1:=">=0", Operator:=xlAnd
Dim RowsToDelete As Range
On Error Resume Next
Set RowsToDelete = rng1.Resize(RowSize:=rng1.Rows.Count - 1).Offset(RowOffset:=1).SpecialCells(xlCellTypeVisible).EntireRow
On Error GoTo 0
If Not RowsToDelete Is Nothing Then RowsToDelete.Delete
Примечание:
-
rng1.Resize(RowSize:=rng1.Rows.Count - 1).Offset(RowOffset:=1)
удаляет заголовок из выбора rng1 -
.SpecialCells(xlCellTypeVisible).EntireRow
выбирает только видимые ячейки отфильтрованного диапазона.
0
ответ дан Pᴇʜ 17 January 2019 в 13:14
поделиться
Другие вопросы по тегам: