使用循环复制和粘贴行
使用循环复制和粘贴行
提问于 2019-03-11 23:14:57
我的任务是尝试复制和粘贴整个工作表的每一行下的4行(4-7行)，可能使用循环。我已经粘贴了第8行和第13行下的复制行，作为一个例子(我希望能够对其余的工作表这样做，直到行为空)。非常感谢您的专业知识。
回答 1
Stack Overflow用户
回答已采纳
发布于 2019-03-12 00:22:48
执行：
- 创建第二个工作表(在我的代码中，引用为
Sheet2) - 粘贴要插入第一个工作表的工作表上的行。
- 运行宏
Option Explicit
Sub EnterRows()
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") '<-- Update
Dim i As Long, LR As Long, myRange As Range
LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
Set myRange = ThisWorkbook.Sheets("Sheet2").Range("1:4")
Application.ScreenUpdating = False
For i = LR To 2 Step -1
myRange.Copy
ws.Range("A" & i + 1).Insert xlDown
Next i
Application.ScreenUpdating = True
End Sub
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/55111769
复制相关文章
相似问题
腾讯云开发者
