VBAを使用してExcelファイル内の奇数列を削除する方法

Question

このデータセットでは、他の列ごとにstartinを削除する必要があります。だから私はデータセットがかなり大きいのでVBAでこれをやろうとしました。私はこれを試してみましたが、それは動作しません。

Sub Macro2() 
' 
' Macro2 Macro 
' 

' 
    For clNumber = 4 To 500 

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

End Sub 

数がclNumberとなっている列を選択して、それを削除する方法上の任意のアイデアを？ clNumberだけの数ではなくオブジェクトであるよう

Answer 1

を試してみてください。

実際には、Selectが不要であるだけで

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

を使用することをお勧めします。

Answer 2

あなたは

Columns(clNumber).Select 

Answer 3

をしたいが、Columns(clNumber)に変更clNumber

For clNumber = 4 To 500 

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