刪除特定的列在Excel

Question

我有以下格式的Excel表格：

我只是想刪除沒有在第一行中的值爲1的列（「A」 ）。我知道，刪除一列我可以使用類似的東西：

Columns("E:E").Select 
Selection.Delete Shift:=xlToLeft 

任何幫助它會很好。

一些解決方案，爲我的錯誤是：

Sub Delete_Column_Excel_VBA() 
    Dim Firstcolumn, fcol As Long 
    Dim Lastcolumn As Long 

    With ActiveSheet 
     .Select 
     Firstcolumn = .UsedRange.Cells(1).Column 
     Lastcolumn = .UsedRange.Columns(.UsedRange.Columns.Count).Column 
     For fcol = Firstcolumn To Lastcolumn 
      With .Cells(fcol, "1") 
       If .value <> 1 Then .EntireColumn.Delete 
      End With 
     Next fcol 
    End With 

如果我刪除不爲1的第一行中的值，我的表應該在年底這樣的那些列：

Answer 1

此修復您的錯誤，但我覺得還是有後留下了一個邏輯錯誤：

With .Cells(fcol, 1) 

Excel期望引用被表示爲數字，而不是像你所做的字符串。然後在你的if我認爲它應該是相反的。您應該比較「1」，否則它只會刪除所有內容（在我的計算機上嘗試過）。

Answer 2

試試這個

Sub Delete_Column_Excel_VBA() 
    Dim cl As Range, rng As Range 

    For Each cl In ActiveSheet.UsedRange.Rows(1).Cells 
     If cl <> 1 Then 
      If rng Is Nothing Then 
       Set rng = cl 
      Else 
       Set rng = Union(rng, cl) 
      End If 
     End If 
    Next 
    rng.EntireColumn.Delete 
End Sub