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工作表界面，将会看到执行的结果。
