为声明的一个字符串分配多个值

Question

我正在寻找将多个值设置为声明为String的一个变量的方法。以下代码可能会让您一瞥我正在寻找的东西

Dim Name as string
Name = value1 or value2 or value3
If range("A1"). Value = Name then
    Activecell.entirecolumn.delete
End If

Answer 1

    Dim Name As String
    Dim value1 As String, value2 As String, value3 As String

    Name = value1 & "," & value2 & "," & value3

    If InStr(Name, Range("A1")) <> 0 Then
        ActiveCell.EntireColumn.Delete
    End If

程序循环通过A1查看其中一个值是否匹配。如果是这样，Instr将返回Name中匹配的位置。因此，只需告诉您的程序Instr不等于0即可删除您想要的内容