列を削除して行きたい。

質問

すみません、誰か教えて頂けませんか。
1行目にタイトルが書いてあり、その下が空欄だと
列を削除しようと考えて下記の様に記述しましたが、
２列目しか削除されません。
何か、記述がおかしいのか、他にやり方があるのか
教えて頂けませんでしょうか。
宜しくお願いします。

Co = Cells(1, Columns.Count).End(xlToLeft).Column

For ii = 2 To Co

If Cells(1, ii).End(xlUp).Row = 1 Then

Cells(1, ii).EntireColumn.Delete
End If

Next ii

回答No.1

keithin · ベストアンサー

後ろから削除します。列なら右から。行なら下から。

sub macro1()
　dim co as long
　dim c as long

　co = cells(1, columns.count).end(xltoleft).column
　for c = co to 2 step -1
　　if cells(rows.count, c).end(xlup).row = 1 then
　　　columns(c).delete shift:=xlshifttoleft
　　end if
　next c
end sub

お礼

keithin様

ありがとうございます。
無事、解決する事が出来ました。