我有一个非常大的 excel 文件,其中包含每周结束的总和。我想删除周结束列。我正在尝试在 VBA 中编写此代码,以便我可以将其应用于多个工作表,因为我必须经常这样做。
所有周末列在第 3 行都有“W/E”,我想编写代码来删除第 3 行中包含“W/E”的任何列。
我知道已经有删除包含列中值的行的答案,但我无法将这些代码转换为相反的方式(根据某一行中的值删除列)。
在此先感谢您的帮助!
我有一个非常大的 excel 文件,其中包含每周结束的总和。我想删除周结束列。我正在尝试在 VBA 中编写此代码,以便我可以将其应用于多个工作表,因为我必须经常这样做。
所有周末列在第 3 行都有“W/E”,我想编写代码来删除第 3 行中包含“W/E”的任何列。
我知道已经有删除包含列中值的行的答案,但我无法将这些代码转换为相反的方式(根据某一行中的值删除列)。
在此先感谢您的帮助!
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
相当粗糙,但这可以工作
Columns(WorksheetFunction.match("W/E", rows(3), 0)).Delete