Как удалить нечетные столбцы в файле Excel с VBA (или без)

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 и удалить его?

Answer 1

Измените clNumber на Columns(clNumber), поскольку clNumber - это просто число, а не объект.

На самом деле, лучше просто использовать

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

какSelect не требуется.

Answer 2

1001 * попробовать *

For clNumber = 4 To 500

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

Answer 3

Вы хотите

Columns(clNumber).Select