如何使用VBA刪除Excel文件中的奇數列（或不使用）

好吧，我有這個數據集，我需要從列中刪除每個其他列的startin。所以我試圖用VBA做到這一點，因爲數據集非常大。我試過這個，但它不會工作：如何使用VBA刪除Excel文件中的奇數列（或不使用）

Sub Macro2() 
' 
' Macro2 Macro 
' 

' 
    For clNumber = 4 To 500 

    clNumber.Select      //doesn't work 
    Selection.Delete Shift:=xlToLeft 
    Next 

End Sub

任何想法如何選擇其中的數字是clNumber列和刪除？

來源

2011-03-05 Javaaaa

變化clNumber到Columns(clNumber)，如clNumber只是一個數字，而不是一個對象。

其實，這是隻是爲了更好地使用

For clNumber = 4 To 500 
    Columns(clNumber).Delete Shift:=xlToLeft 
Next

爲Select是不必要的。

來源

2011-03-05 14:50:09

謝謝，那工作，你最好！ – Javaaaa

你想

Columns(clNumber).Select

來源

2011-03-05 14:49:09 Dave

不需要「步驟2」。由於1列已被刪除，因此只需_default_「步驟1」。 –

好吧，歡呼Dante！ – Dave

嘗試

For clNumber = 4 To 500 

Columns(clNumber).Select    
Selection.Delete Shift:=xlToLeft 
Next

來源

2011-03-05 14:49:49

'步驟2'不需要。由於1列已被刪除，因此只需_default_「步驟1」。 –

@丹特好點！ –

如何使用VBA刪除Excel文件中的奇數列（或不使用）

回答

相關問題