如何在excel表格每隔1万行插入一行相同的数据？

Question

excel表格是2007版本的，数据有两列，一共有100万行
表格数据示例
1 2
3 4
5 6
7 8
9 10
自动处理，变成这样
1 2
3 4
[email protected] 一万 比如这里是第一万行，插入数据
5 6
7 8
[email protected] 一万 比如这里是第一万行，插入数据
9 10
不是，是这个代码执行出来的效果，插入太多 。。 我要的是只在一万行插入的 。
没有财富值 追问不了。。。。。。。。。。。。。。。。。。。。。。。。。

Answer 1

复制代码，按ALT+F8执行，然后 按CTRL+G,定位空值，输入 [email protected]，同时按CTRL+回车键

Sub 插入行()
Dim i%, rng As Range
R = [a2000000].End(3).Row
Set rng = Rows(10001)
For i = 20001 To R Step 10000
Set rng = Union(rng, Rows(i))
Next
rng.Insert
End Sub追问

有100万行数据，有没有办法快速下拉？

追答

用代码，注意，先另存。

复制代码，按ALT+F8执行，

然后 选定AB列，

按CTRL+G,定位空值

在上方 编辑栏 输入 [email protected]，同时按CTRL+回车键

以每10行为例

追问

额 代码要怎么使用？ 要放到表格哪里？

追答

右键你的Sheet名
查看代码
复制进去
关闭代码窗口。
注意另存表格，以免出错。

Sub 插入行()
Dim i%, rng As Range
R = [a2000000].End(3).Row
Set rng = Rows(10001)
For i = 20001 To R Step 10000
Set rng = Union(rng, Rows(i))
Next
rng.Insert
Columns("A:B").Select

Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "[email protected]"
End Sub

追问

提示 宏 要求对象 ？

追答

Sub 插入行()

Dim i%, rng As Range

R = [a65536].End(3).Row

Set rng = Rows(10001)

For i = 20001 To R Step 10000

Set rng = Union(rng, Rows(i))

Next

rng.Insert

    Columns("A:B").Select

    Selection.SpecialCells(xlCellTypeBlanks).Select

    Selection.FormulaR1C1 = "[email protected]"

End Sub

我是03版本，最多 65536行，你试下。

追问

这个代码可以，但是不止在1万行的时候插入，1396行第二列就开始插入，然后每隔几百行就会在第二列插入

追答

你这个整复杂了。。。。
要不你分2次操作

把代码修改下。