Excel VBA插入行-Java 学习之路

我的宏有点问题 . 我只想在特定行上方插入动态行数，这些行应该复制该特定行的所有内容 . 所以格式化，公式，文本，合并细胞基本上一切 .

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

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

Set ins = wsCopyTo.Range("A100")

Do While k > 0 = True


   ins.EntireRow.Insert

k = k - 1

Loop

现在，由于简单的原因，我们假设k为100，因为我说我插入的行数实际上是正确的 .

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命令 .

回复于 2024-04-30T02:57:38+08:00

Excel VBA插入行

1 回答

相关问题