Excel VBA - выделение ячеек, содержащих определенные тексты в указанной строке, и смещение ячеек вниз

Question

Я новичок в Excel VBA, я попытался создать код для поиска по различным форумам, в котором будут выделены ячейки, содержащие текстовые строки "NNN", "MG", "FS", "N", "IG" и т. Д.Строка 7 и сдвиньте эти клетки вниз.Но я застрял посередине и получил ошибку, также я не понял, как использовать несколько критериев ("NNN", "MG", "FS") для выбора.

Sub select_text_and_shiftdown()
Dim r As Range, v As Variant
Dim w1 As Worksheet
Set w1 = Sheets("Input")
w1.Activate
For Each r In Intersect(Range("7:7"), ActiveSheet.UsedRange)
    v = r.Value
    If InStr(v, "NNN") > 0 Then
        r.Application.Selection.inset shift = xlDown

   End If
   Next r 
   End Sub

Буду очень признателен за помощь.Спасибо !С Новым Годом 2019.

Answer 1

Добро пожаловать на SO.Может попробовать

Sub select_text_and_shiftdown()
Dim r As Range, v As Variant
Dim w1 As Worksheet
Dim Chk As Variant
Dim i As Integer
Chk = Array("NNN", "MG", "FS", "N", "IG")
Set w1 = Sheets("Input")
w1.Activate
For Each r In Intersect(Range("7:7"), ActiveSheet.UsedRange)
    v = r.Value
        For i = LBound(Chk) To UBound(Chk)
            If InStr(v, Chk(i)) > 0 Then
            'r.Application.Selection.inset shift = xlDown
            r.Insert xlShiftDown
            Exit For
            End If
        Next i
   Next r
End Sub