読者です 読者をやめる 読者になる 読者になる

不要な列を削除する

DimAs Integer 
Dim a As Integer= Cells(1, Columns.Count).End(xlToLeft).Column 
For a =+ 1 To 1 Step -1 
If Cells(1, a) = Empty Then Cells(1, a).EntireColumn.Delete Shift:=xlToLeft 
Next