如何复制几行并插入复制的单元格-宏代码

Posted 2023-02-25

【中文标题】如何复制几行并插入复制的单元格-宏代码

【英文标题】：How to copy few rows and insert copied cells -macro code

【发布时间】：2014-01-01 17:36:09

【问题描述】：

宏的新手，我需要一个代码来复制几行并将复制的单元格插入同一张工作表上，插入到下面的几行

---

也许我没有正确解释自己 插入的复制行需要推送第11、12和13行（3行并插入复制行）不替换 干杯银

---

我们快到了，我需要插入的复制行需要相应地推动第 10-13 行，即 10 以下的每一行都需要插入复制行 干杯银

【问题讨论】：

我改变了我的答案。是你需要的吗？

试试我的新答案。附言您可以在 comment box 中写下您的 cmets，而不是编辑您的问题。为我检测你的 cmets 会更容易。

发现错误并更新答案:)

【参考方案1】：

假设，我猜到了你需要什么:)

Sub Test()
   Dim rng As Range
   Dim height As Integer
   Dim startRowToPaste As Integer
   Dim countOfPaste As Integer
   Dim startIndex As Integer

   Set rng = Range("3:6")
   height = rng.Rows.Count
   startRowToPaste = 7 ' num of first row at witch need to paste
   countOfPaste = 8 ' count of times you want to paste

   For i = startRowToPaste To startRowToPaste + countOfPaste - 1
       'determining num of row where need to paste values
       startIndex = startRowToPaste + (i - startRowToPaste) * (height + 1) + 1
       'insert new rows
       Rows(startIndex & ":" & startIndex + height - 1).Insert Shift:=xlDown
       'paste values
       rng.Copy Destination:=Range(startIndex & ":" & startIndex + height - 1)
   Next i
End Sub

【讨论】：

有没有我可以加载一个excel文件来给你看场景前后

谢谢，这是dropbox.com/s/cggknxscb23bkf8/GOLF%20IL%201%20macro.csv 之前和dropbox.com/s/x8qjrllk2wj7u0y/GOLF%20IL%201%20macro%20after.csv 之后的文件 干杯

我找到了您的文件的解决方案并更新了我的答案：)

嗨 simoco 感谢您提供出色的代码，它完全符合我的需要 我在英国（韦克菲尔德）有一个汽车回收场，如果您需要汽车零件，请告诉我，我的电子邮件在手机中BE，会很乐意回报好姿态 Silver

不客气：）如果您觉得我的回答有帮助，请标记为正确答案）