0

私は、各週の週末の合計を含むかなり大きな Excel ファイルを持っています。週末の列を削除したい。これをかなり頻繁に行う必要があるため、これを複数のワークシートに適用できるように、これを VBA で記述しようとしています。

すべての週末の列には 3 行目に "W/E" があり、3 行目に "W/E" を含む列を削除するコードを書きたいと思います。

列に値を含む行を削除することに対する回答があることは知っていますが、それらのコードを逆に変換することはできませんでした (特定の行の値に基づいて列を削除する)。

助けてくれてありがとう！

4

2 に答える 2

0

かなり粗雑ですが、これはうまくいく可能性があります

Columns(WorksheetFunction.match("W/E", rows(3), 0)).Delete
于 2013-11-05T23:53:18.980 に答える
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 に答える