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。可以尝试

Y