尝试创建一个宏,该宏将在电子表格中每隔1000行插入一行,并将列的前1000行的串联插入到不同列中该第1000行的单个单元格中 .
我使用此代码每隔1000行插入一行:
Sub Insert1000()
Dim rng As Range
Set rng = Range("A2")
While rng.Value <> ""
rng.Offset(1000).EntireRow.Insert
'code insert csv of 1000 previous rows into a single cell
Set rng = rng.Offset(1001)
Wend
End Sub
如果我的描述不清楚,请道歉 . 这是我想要的结果的剪辑 .
任何帮助,将不胜感激 .
3 回答
编辑:在标记的行上添加缺少
.EntireRow
我建议使用Mod运算符:
在这里阅读Mod运算符:http://msdn.microsoft.com/en-us/library/se0w9esz.aspx
或更完整:
下面的代码应该提供您正在寻找的所需输出:
Sub pInsert1000()
结束子