0

我有一个非常大的 excel 文件，其中包含每周结束的总和。我想删除周结束列。我正在尝试在 VBA 中编写此代码，以便我可以将其应用于多个工作表，因为我必须经常这样做。

所有周末列在第 3 行都有“W/E”，我想编写代码来删除第 3 行中包含“W/E”的任何列。

我知道已经有删除包含列中值的行的答案，但我无法将这些代码转换为相反的方式（根据某一行中的值删除列）。

在此先感谢您的帮助！

4

2 回答 2

0 
dim c as range, rngDel as range

for each c in activesheet.range("A3:Z3").cells
    if instr(c.value, "W/E")>0 then
         if rngDel is nothing then
            set rngDel = c
         else
            set rngDel = application.union(rngDel, c)
         end if
    end if
next c

if not rngDel is nothing then rngDel.entirecolumn.delete
于 2013-11-05T20:47:16.560 回答
0

相当粗糙，但这可以工作

Columns(WorksheetFunction.match("W/E", rows(3), 0)).Delete
于 2013-11-05T23:53:18.980 回答