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