excel - 调整 VBA 以删除所有符合条件的列

Question

我有一个宏，它在第 2 行移动并删除 aColumn如果单元格是blank.

删除部分有效，但是如果有 N 个相邻的空白单元格，我必须运行它 N 次以删除所有列，是否可以一次删除所有列，因为我不知道可能有多少空白单元格一个挨着一个。

谢谢

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

Answer 1

这将删除活动工作表中第 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