请教 我这段代码哪儿有问题？

皮诺曹

sub test
    arr=array("AU","CN","CH","HK")

    for each cell in selection

        flag=true

        for i=0 to 4 step 1

            if cell.text = arr(i) then

                flag = false

                exit for

          end if

    next
    if flag  then columns(cell.column).delete

    next

end sub

为什么要运行好几次才能筛选出结果，而且不知道结果对不对

就是不含数组中数据的列，都删除

thuzap

这段代码运行的结果是只要列中的某单元格不是数组中的数据，那么该列就会被删掉。
我理解你的意思应该是：如果某列所有单元格都不是数组中的数据，那么删掉该列。如果是这个意思，最好按照column来控制循环了，而不是按照cell来控制循环了。
不知道说得对不对。

hehex

你的代码二处有问题，
arr=array("AU","CN","CH","HK")
说明数组共4个元素，下标号是从0-3
   for i=0 to 4 step 1
当内层循环执行到最后一定会出现下标越界错误，你没发现多半是selection 的最后一列有符合的记录
执行exit for 退出了。但是这个问题还是客观存在的，而且是语法错误。
这是你程序的第一处问题。应该改成 ifor =0 to 3, 或者直接用for i=0 to ubound(arr)。

第二个问题，有逻辑错误，当你找到某单元格包含数组数据时，就应跳过该列。而你目前的代码没有实现这点，因为是单元格遍历整个区域，有可能会循环回该列，而该列下一行的单元格数据如果不在数组内，则该列被误删。因为你的代码不是固定区域只是Selection, 如果手动选取一行或者整个选定区域的列内容都一样，则这逻辑勉强可以通过。
再有，你的选中区域是被不停的进行删除，你的删除列语句放在循环内，有可能造成遍历代码的逻辑错误，因为你的区域有不确定性。不停的删一列，后面左移一列这种情况。
我想到的算法是另外做一个和列数等长的布尔型数组，当循环到某列时，如果该删除，就在该数组位置设定为true，不该删就设false。在遍历过程中不进行删除，确保遍历区域的稳定。
最后针对该数组的记录一次性删除所需要删的列，这样就不会出现多次运行的问题了。

最后，一般删除单元格所在的列最常用的方法是 cell.EntireColumn.Delete。