excel vba复制一行并插入到下面的行，然后重复

z6psavjg 于 2023-06-07 发布在其他

关注(0)|答案(1)|浏览(362)

我想复制并插入一行，即行10和插入到行11.然后，我想再次运行该代码（通过命令按钮），复制第11行并插入到第12行。我希望能够无限期地重复这一点，即行12至行13等。
我使用了record宏函数来复制和插入，但它只是复制第10行并插入到第11行。
应用程序。CutCopyMode = False

With Worksheets("SUMMARY")

Rows("11:11").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("10:10").Select
Selection.AutoFill Destination:=Rows("10:11"), Type:=xlFillDefault
Rows("10:11").Select

excel

来源：https://stackoverflow.com/questions/76407420/vba-to-copy-a-row-and-insert-to-row-below-and-then-repeat

1条答案

按热度按时间

t1rydlwq1#

使用下面的代码片段
Sub CopyAndInsertRow（）Dim rowToCopy As Long Dim insertRow As Long

rowToCopy = 10 ' Specify the row number to copy
insertRow = 11 ' Specify the row number to insert

Rows(rowToCopy).Copy
Rows(insertRow).Insert Shift:=xlDown

结束子

赞(0）回复(0）举报 2023-06-07

我来回答

excel vba复制一行并插入到下面的行，然后重复

1条答案

相关问题

热门标签

最新问答