如何使用VBA刪除除特定標題外的所有空列？

Question

我想刪除其中符合以下條件的工作表中的所有列：

• 第1行=「foobar的」
• 行2-1000是空

這聽起來很簡單但我還沒有設法讓它充分發揮作用。任何幫助將大規模讚賞。

謝謝！

Answer 1

約

dim col as Long, lastCol as Long, r as range 
lastCol = ActiveSheet.Usedrange.columns(Activesheet.Usedrange.columns.count).column 
for c=lastCol to 1 Step -1 
    set r = Range(Cells(1, c), Cells(1000, c)) 
    if r.Rows(1) = "foobar" Then 
     if WorksheetFunction.CountA(Range(r.Rows(2), r.Rows(r.Rows.Count))) = 0 then 
      Columns(c).delete 
     end if 
    end If 
next 

如何[編輯由OP：添加缺少空間]刪除行按照您的要求（久經考驗）

Answer 2

最快的方法。

我假設ROW1有列標題

Option Explicit 

Sub Sample() 
    Dim aCell As Range, rng As Range 
    Dim LastCol As Long, LastRow As Long, i As Long 

    With Sheets("Sheet1") 
     Set aCell = .Rows(2).Find(What:="foobar", LookIn:=xlValues, _ 
     Lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
     MatchCase:=False, SearchFormat:=False) 

     If Not aCell Is Nothing Then .Rows(2).Delete 

     LastRow = .Cells.Find(What:="*", _ 
        After:=.Range("A1"), _ 
        Lookat:=xlPart, _ 
        LookIn:=xlFormulas, _ 
        SearchOrder:=xlByRows, _ 
        SearchDirection:=xlPrevious, _ 
        MatchCase:=False).Row 

     LastCol = .Cells.Find(What:="*", _ 
        After:=.Range("A1"), _ 
        Lookat:=xlPart, _ 
        LookIn:=xlFormulas, _ 
        SearchOrder:=xlByColumns, _ 
        SearchDirection:=xlPrevious, _ 
        MatchCase:=False).Column 

     Set rng = Range("A1:" & Split(Cells(, LastCol).Address, "$")(1) _ 
        & LastRow) 

     ActiveSheet.AutoFilterMode = False 

     For i = 1 To LastCol 
      rng.AutoFilter Field:=i, Criteria1:="" 
     Next i 

     rng.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete 

     ActiveSheet.AutoFilterMode = False 
    End With 
End Sub