每3行插入一行
每3行插入一行
提问于 2022-07-27 20:20:16
我正在尝试每3行创建一个重复行。目前，数据如下所示，我正在尝试添加另一行，以使每个块4而不是3。
AAA
AAA
AAA
BBB
BBB
BBB
CCC
CCC
CCC我对vba还不熟悉，所以我仍然在努力弄清楚如何避免使用.select，并将方法应用于变量。我的原始代码是超级简单的循环通过偏移，复制和粘贴。我的数据集有11000行，因此这需要相当长的时间。会喜欢任何建议的，谢谢！
回答 1
Stack Overflow用户
回答已采纳
发布于 2022-07-27 20:30:56
试试这个(编辑的)
Sub AddEvery3()
Dim LR As Long, r As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row
r = 1
Do
Rows(r).Insert
Cells(r, 1) = Cells(r + 1, 1)
LR = LR + 1
r = r + 4
Loop While r <= LR
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/73144181
复制相关文章
相似问题
腾讯云开发者
