将多个值分配给一个声明的string

我正在寻找方法获取多个值设置为一个variables声明为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将返回名称中他们匹配的位置。 所以，简单地告诉你的程序是Instr不等于0就删除你想要的东西