將多個值分配給一個聲明的字符串

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將返回它們匹配的名稱中的位置。所以，只是告訴你的程序，Instr不等於0，刪除你想要的東西