Excel VBA插入行

Question

我的宏有点问题。 我只想在特定行上方插入动态行数，该行应复制该特定行中的所有内容。 因此，格式，公式，文本，合并的单元格基本上都是一切。

现在，我的代码实际上插入了我需要的行数，并且确实复制了格式。 我所缺少的是单元格中的文本/公式，并且这些单元格根本没有合并（如下面的行中所示）。

我到目前为止所拥有的是：

Set ins = wsCopyTo.Range("A100")

Do While k > 0 = True


   ins.EntireRow.Insert

k = k - 1

Loop

现在出于简单的原因，我们只假设k为100，因为正如我所说，我插入的行数实际上是正确的。

Answer 1

这有效：

Sub copyXrows()
Dim ins As Range
Dim k As Integer
Set ins = Tabelle1.Range("A10")

ins.Select
k = 2
Do While k > 0 = True

ins.EntireRow.Copy
ins.EntireRow.Insert

k = k - 1

Loop

End Sub

您错过了一个wholerow.copy命令。