VBA使用通配符進行搜索

Question

如果可能的話，我想創建一個VBA宏以在整個A列中搜索任何包含字母RU的單詞（區分大小寫，如果可能）。 然后，我希望它能夠復制這些單詞並將它們粘貼到從A1，然后A2等開始的新表格上。我知道如何設置范圍，但我什至不知道如何開始編寫休息。 任何幫助將不勝感激。

最好的祝福。

Answer 1

考慮：

Sub RUthere()
    Dim RU As String, N As Long, K As Long, _
        s1 As Worksheet, s2 As Worksheet, r As Range, _
        v As Variant
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    RU = "RU"
    K = 1
    N = s1.Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To N
        Set r = s1.Cells(i, "A")
        v = r.Value
        If InStr(1, v, RU) > 0 Then
            r.Copy s2.Cells(K, "A")
            K = K + 1
        End If
    Next i
End Sub