VBAを調整して基準に合うすべての列を削除する - Excel、Excel

2行目を移動してaを削除するマクロがあります。 Column セルが blank.

部品削除は機能しますが、実行する必要がありますN隣接する空白セルがN個ある場合にすべての列を削除する回数は、何個の空白セルが隣同士になるのかわからないので、1回のパスですべての列を削除することは可能です。

ありがとう

Sub delete-columns()
For Each cell In Range(Cells(2, 1), Cells(2, ActiveSheet.UsedRange.Columns.count))
If cell.Value = "" Then cell.EntireColumn.Delete xlToRight
Next cell
End Sub

回答：

これにより、アクティブシートの2行目が空白の列がすべて削除されます。

Sub DeleteColsWithBlanks()
Dim ws As Excel.Worksheet

Set ws = ActiveSheet
With ws
.Range(.Cells(2, 1), .Cells(2, .Columns.Count)).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End With
End Sub