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

好吧，我有这个数据集，我需要删除从其他列的列开始。 所以我试图用VBA做到这一点，因为数据集相当大。 我试过，但它不会工作：

Sub Macro2() ' ' Macro2 Macro ' ' For clNumber = 4 To 500 clNumber.Select //doesn't work Selection.Delete Shift:=xlToLeft Next End Sub 

任何想法如何select其中的数字是clNumber列和删除？

Answer 1

将clNumber更改为Columns(clNumber) ，因为clNumber只是一个数字，而不是一个对象。

其实，最好只使用

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

因为Select是不必要的。

Answer 2

尝试

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

Answer 3

你要

 Columns(clNumber).Select