vba - 如何使用查找列索引功能同时删除多列

Question

我做了一些谷歌搜索，但不知道如何同时删除多个列。由于输入到该工具中的数据不一致，因此我必须使用查找函数来指示要删除哪一列。目前，只有第一个删除功能起作用，其余的都被忽略。我使用消息框来确保查找函数正确拉出正确的列索引。有人对如何删除多个有任何想法吗？谢谢!

Vertical = Worksheets("Target List").Rows("1").Find("Vertical").Column
DistID = Worksheets("Target List").Rows("1").Find("Distributor ID").Column
DistName = Worksheets("Target List").Rows("1").Find("Distributor Name").Column

Sheets("Target List").Select
Columns(Vertical).EntireColumn.Delete
Columns(DistID).EntireColumn.Delete
Columns(DistName).EntireColumn.Delete

Answer 1

尝试，

dim i as long, col as variant, c as variant

col = array("Vertical", "Distributor ID", "Distributor Name")

with Worksheets("Target List")
    for i=lbound(col) to ubound(col)
        c= application.match(col(i), .rows(1), 0)
        if not iserror(c) then .columns(c).entirecolumn.delete
    next i
end with

尝试一次删除所有列将需要重复的错误控制。最好一次删除一个。