如何使用VBA使用通配符截断单词的一部分

Question

我在专栏AJ中有很多文本字符串（类别用;＃分隔）的例子是Cell AJ2在每行中有（会计：和一些文字; #Business：和一些文字）。我想删除特定的类别字符串以及以“业务：”或“：#Business：

开头的AJ列中的任何类别

Answer 1

试试这段代码。

Sub test()
    Dim vDB, vSplit, s As String
    Dim n As Long, i As Long
    vDB = Range("aj2", Range("aj" & Rows.Count).End(xlUp))
    n = UBound(vDB, 1)
    For i = 1 To n
        s = vDB(i, 1)
        If InStr(s, "Business") Then
            vSplit = Split(s, "Business")
            s = Replace(s, "Business" & vSplit(UBound(vSplit)), "")
            If Right(s, 1) = "#" Then
                s = Left(s, Len(s) - 2)
            End If
            vDB(i, 1) = s
        End If
    Next i
    Range("ak2").Resize(n) = vDB
End Sub