怎样使用VBA选择奇数列

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

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

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

4、在模块当中输入如下代码，然后运行Sub 选择奇数列() Dim rng As Ra艘绒庳焰nge, 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调出运行宏窗口，然后单击“执行”按钮，可以看到所有姓名已被选中