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

你错过了一个fullrow.copy命令。

Excel VBA插入行

1 个答案: