【已解決】 Excel宏如何插入多行并復制首行？
最佳答案 2024-11-18 09:00
在 Excel 中使用宏插入多行并復制首行的操作可以通過 VBA（Visual Basic for Applications）來實現(xiàn)。以下是一個簡單的 VBA 宏示例，它會在指定位置插入多行并復制第一行的數(shù)據(jù)到新插入的行中。
假設(shè)你想在第2行開始插入多行，并復制第1行的數(shù)據(jù)到新行中。以下是實現(xiàn)這個操作的 VBA 代碼：
- 打開 Excel 工作簿。
- 按?Alt + F11?打開 VBA 編輯器。
- 在菜單中選擇?插入?>?模塊，插入一個新的模塊。
- 在模塊中粘貼以下代碼：
Sub InsertAndCopyRows()
Dim ws As Worksheet
Dim insertRow As Long
Dim numberOfRows As Long
Dim i As Long
' 設(shè)置工作表
Set ws = ThisWorkbook.Sheets("Sheet1") ' 請根據(jù)需要修改工作表名稱
' 設(shè)置插入行的位置
insertRow = 2
' 設(shè)置要插入的行數(shù)
numberOfRows = 5 ' 請根據(jù)需要修改插入的行數(shù)
' 插入行
For i = 1 To numberOfRows
ws.Rows(insertRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ws.Rows(1).Copy ws.Rows(insertRow)
Next i
End Sub
- 根據(jù)需要修改代碼中的工作表名稱（例如 "Sheet1"）、插入行的位置（例如?insertRow = 2）以及插入的行數(shù)（例如?numberOfRows = 5）。
- 關(guān)閉 VBA 編輯器。
- 回到 Excel，按?Alt + F8，選擇?InsertAndCopyRows?宏，然后點擊?運行。
這個宏會在指定的行位置插入多行，并將第一行的數(shù)據(jù)復制到新插入的行中。請根據(jù)自己的需求調(diào)整參數(shù)。
掃碼關(guān)注微信公眾號
