Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Массовое удаление строк по заданному массиву слов, VBA, макрос
 
The_Prist,  :) УраЙ Работает. Скиньте свои банковские реквизиты в лс
Массовое удаление строк по заданному массиву слов, VBA, макрос
 
Цитата
The_Prist написал: Теперь понятно. Вы из тех, что читает до дна, но через строку...
Хорошо, что Вы поняли это. Но в самом начале я про это дал намёк. (что я далёк от VB)  вот Ваш код:
Код
Sub Del_Array_SubStr()
    Dim sSubStr As String    'искомое слово или фраза
    Dim lCol As Long    'номер столбца с просматриваемыми значениями
    Dim lLastRow As Long, li As Long
    Dim avArr, lr As Long

    lCol = Val(InputBox("Укажите номер столбца, в котором искать указанное значение", "Запрос параметра", 1))
    If lCol = 0 Then Exit Sub
    Application.ScreenUpdating = 0
    lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    'Получаем с Лист2 значения, которые надо удалить в активном листе
    With Sheets("Лист2") 'Имя листа с диапазоном значений на удаление
        avArr = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
    End With
    'удаляем
    Dim rr As Range
    For lr = 1 To UBound(avArr, 1)
        sSubStr = avArr(lr, 1)
        Set rr = Nothing
        For li = 1 To lLastRow
            If Cstr(Cells(li, lCol)) = sSubStr Then
                If rr Is Nothing Then
                    Set rr = Cells(li, 1)
                Else
                    Set rr = Union(rr, Cells(li, 1))
                End If
            End If
        Next li
        If Not rr Is Nothing Then rr.EntireRow.Delete
    Next lr
    Application.ScreenUpdating = 1
End Sub

Куда можно вставить несколько значений: "Тыква", "Груша", "Яблоки", "Илюша"?
Изменено: Сергеевич - 30.01.2016 16:15:51 (пук)
Массовое удаление строк по заданному массиву слов, VBA, макрос
 
The_Prist, Дочитано до дна, просто не представляю как он работает и поэтому он мне не пригодился.
Нужно видео, как минимум, если Вы хотите, чтобы Ваш макрос был полезен не только бывалым.
Массовое удаление строк по заданному массиву слов, VBA, макрос
 
Цитата
Kuzmich написал: А QwertyBoss мне коньяк обещал. Ставки падают.
Интерестно, за что?
Массовое удаление строк по заданному массиву слов, VBA, макрос
 
Цитата
МВТ написал:
 проще и быстрее через фильтр. Создаете именованный диапазон Брэнды, записываете туда названия и запускаете такой макрос
Слишком профессионально ответили. Сейчас перевариваю Ваш ответ. Когда переварится - сообщу о достижениях
Массовое удаление строк по заданному массиву слов, VBA, макрос
 
The_Prist, Вашу статью гугл любит и держит ее в топе и я там был, до прихода на этот сайт.  
Ваши макросы мне не подошли. Нужно, чтобы макрос искал "сразу" несколько слов (200 слов) и удалял строки в которых они есть :)
Массовое удаление строк по заданному массиву слов, VBA, макрос
 
QwertyBoss, по одному слову удалять - это долго. У меня есть список слов, который нужно запихнуть в "ТекстДляПоиска" например:
Код
ТекстДляПоиска = "Атитас","Мума","Рипак", "Снифегс" итд ` только как?
Массовое удаление строк по заданному массиву слов, VBA, макрос
 
Здравствуйте Гуру VBA!

Так уж случилось, что совсем недавно, открыл для себя этот увлекательный мир программирования. Начал самостоятельное знакомство с Liberty Basic. Все здорово, но есть задание, на выполнение которого отнимается много времени. Его выполняет программа "Macro Recorder" и это 30 минут "реального втыка". Вот бы кто подкинул макрос на VBA.
Скрытый текст

З.Ы.
Искал макрос по массовому удалению через массив и когда попал на этот сайт, то понял, что мне обязательно здесь помогут и поэтому я решил немедленно пройти регистрацию, чтобы создать эту актуальную тему, которая будет полезна не только мне, но и всем желающим находить ответы на вечные вопросы. Да, хочу сам научится писать скрипты, чтобы помогать себе и другим и такое будет. Спасибо planetaexcel за сервис. И всем тем, кто небезразличен к людям.
Изменено: Сергеевич - 12.07.2016 01:20:34 (ссылка не та, что нужно была)
Страницы: 1
Наверх