VBA：找出不在数组内的元素，删除对应的列

Question

比如表头（A行)单元格对应张三，李四，王五，钱六，赵九……
实际只需保留张三、王五、钱六。
打算声明一个数组[张三、王五、钱六]，然后如果不在数组里面，就把对应的列删除掉。
用VBA代码如何删除了？

Answer 1

Sub test()
Dim arr
Dim i, j As Integer
Dim flag As Boolean
arr = Array("张三", "王五", "钱六")
flag = True
i = 1
Do While Cells(1, i) <> ""
    For j = 0 To UBound(arr)
        If Cells(1, i) = arr(j) Then
            flag = False
            Exit For
        End If
    Next j
    If flag Then
        Columns(i).Delete
        i = i - 1
    End If
    flag = True
    i = i + 1
Loop
End Sub