Excel総合相談所 140

[35 名無しさん＠そうだ選挙にいこう 2020/07/22(水) 05:41:52.68]

select Case cells(1,i).value
case"aaa","bbb"
columns(i).delete shift:=xlToleft
end select