几个VBA的小程序示例

1: 判断字符串中是否包含另一个字符串

Sub test1()
    Dim str As String
    str = "英属维尔京群岛持续发展控股有限公司、刘敦辉"
    If InStr(str, "、") Then
        MsgBox "包含"
    Else
        MsgBox "不包含"
    End If
End Sub

Sub test2()
    Dim str As