Excel每隔N行输入同一个字符

1、选择A1:A4单元格区域，按住【Ctrl】键，再向下拖动复制。

2、每间隔3行插入一个相同的字符完成。

1、点击【开发工具】、【visual basic】调出VBE编辑器。

2、在VBA工程项目下方双击“Sheet1”。

3、在Sheet1代码窗口里面输入以下VBA程序代码，确认无误后，按下【F5】键运行程序。

Sub InputN()

Dim i1

On Error Resume Next '忽略运行过程中可能出现的错误

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义Sheet1

i1 = 1

Do

 mysheet1.Cells(i1, 1) = "XXX" '输入字符

 i1 = i1 + 4 '数值累积

 If i1 > 10000 Then '如果超出10000行，则

  Exit Do '退出Do循环

 End If

Loop

End Sub

4、回到Excel工作表界面，将会看到执行的结果。