1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub 隔三行选一行() Dim rng As Range, i As Long Application.ScreenUpdating=False '关闭屏幕刷新 i=ActiveSheet.UsedRange.Rows.Count '计算已用行数 With Range("XFD1:XFD" & i) '在最末列输入公式作为辅助区 .Formula="=if(mod(row(),3),1,0/0)" '列号为除以3余数为1时显示1 '否则显示一个0/0的错误值 Set rng=.SpecialCells(xlCellTypeFormulas, 16).EntireRow '参数16表示错误值 rng.Select '选择目标行 .Value="" '清空输入区数据 End With Application.ScreenUpdating=True '恢复屏幕更新End Sub
5、使用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，可以看到行号为3的N次方的行已被选中
