如图所示，想要每隔一栏就新增一个空白栏

原本形式

新增空白栏
Sub aa()
Dim a As Integer
For a = 1 To 504
a = a + 1
Columns("a:a").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Next a
End Sub
请问各位大大 该如何修改呢?
目前程式码执行后，只会把活页簿变成空白

for a= 504 to 1 step -1 试试

对要倒过来