怎样使用VBA每隔三行选一行？

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次方的行已被选中