Добрый день! подскажите пожалуйста, как написать макрос для удаления ненужных строк (около 700) в файле по критерию что в нужной ячейке стоит одно и то же число, вот кусок, необходимо чтобы остались строки с значением 1000 во втором столбце.
Добрый день! подскажите пожалуйста, как написать макрос для удаления ненужных строк (около 700) в файле по критерию что в нужной ячейке стоит одно и то же число, вот кусок, необходимо чтобы остались строки с значением 1000 во втором столбце.
Собственно, самый первый пример по ссылке для Вас подойдёт [vba]
Код
Sub example_01_1() Dim i As Long, r As Range Application.ScreenUpdating = False With ActiveSheet With .Range("C7", .Cells(.Rows.Count, 3).End(xlUp)) Set r = .Find("1000", lookat:=xlWhole) If Not r Is Nothing Then .ColumnDifferences(r).EntireRow.Delete End With End With Application.ScreenUpdating = True End Sub
[/vba]
Собственно, самый первый пример по ссылке для Вас подойдёт [vba]
Код
Sub example_01_1() Dim i As Long, r As Range Application.ScreenUpdating = False With ActiveSheet With .Range("C7", .Cells(.Rows.Count, 3).End(xlUp)) Set r = .Find("1000", lookat:=xlWhole) If Not r Is Nothing Then .ColumnDifferences(r).EntireRow.Delete End With End With Application.ScreenUpdating = True End Sub
Здравствуйте) Подскажите, а как задать не точное значение которое необходимо удалить, а, допустим, все числа начинающиеся с 123*****? Нет, не так. Оставить на листе все строки где числа в ячейках начинаются с 123 и 119. Косолапил. Выбивает ошибку. [vba]
Код
Sub mimimi() Dim i As Long, r As Range Application.ScreenUpdating = False With ActiveSheet With .Range("A1", .Cells(.Rows.Count, 0).End(xlUp)) Set r = .Find("219*"; "223*" lookat:=xlWhole) If Not r Is Nothing Then .ColumnDifferences(r).EntireRow.Delete End With End With Application.ScreenUpdating = True End Sub
[/vba]
Здравствуйте) Подскажите, а как задать не точное значение которое необходимо удалить, а, допустим, все числа начинающиеся с 123*****? Нет, не так. Оставить на листе все строки где числа в ячейках начинаются с 123 и 119. Косолапил. Выбивает ошибку. [vba]
Код
Sub mimimi() Dim i As Long, r As Range Application.ScreenUpdating = False With ActiveSheet With .Range("A1", .Cells(.Rows.Count, 0).End(xlUp)) Set r = .Find("219*"; "223*" lookat:=xlWhole) If Not r Is Nothing Then .ColumnDifferences(r).EntireRow.Delete End With End With Application.ScreenUpdating = True End Sub