怎样使用VBA选择奇数列？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 选择奇数列()

    Dim rng As Range, rang As Range, i As Long
    Application.ScreenUpdating=False         '关闭屏幕刷新
    i=ActiveSheet.UsedRange.Columns.Count     '计算已用列数
    Set rang=ActiveSheet.UsedRange
    With Range(Range("A1048576"), Cells(1048576, i))
'在最末行输入公式作为辅助区
      .Formula="=if(mod(column(),2),0/0,1)"
'列号为除以2余数为1时显示一个0/0的错误值,否则显示1
      Set rng=.SpecialCells(xlCellTypeFormulas, 16).EntireColumn
'参数16表示错误值
      Application.Intersect(rng, rang, rang.Offset(1, 0)).Select
'选择目标列与已用区域的交集
      .Value=""                        '清空输入区数据
    End With
    Application.ScreenUpdating=True        '恢复屏幕更新
End Sub

5、使用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，可以看到所有姓名已被选中