【已解決】 Excel 求助，如何用VBA第一行標題行復制并批量插入對應每一行？
最佳答案 2024-11-18 09:00
要在 Excel 中使用 VBA 將第一行的標題復制并插入到每一行中，可以編寫一個簡單的宏。以下是一個示例代碼，幫助你實現這一功能：
Sub CopyHeadersToEachRow()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim headerRange As Range
' 設置要操作的工作表
Set ws = ThisWorkbook.Sheets("Sheet1") ' 請確保替換為你的工作表名稱
' 獲取最后一行的行號
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' 定義標題行的范圍
Set headerRange = ws.Rows(1)
' 循環遍歷每一行，將標題行復制到該行
For i = 2 To lastRow
headerRange.Copy
ws.Rows(i).Insert Shift:=xlDown
Next i
' 清除剪貼板
Application.CutCopyMode = False
MsgBox "標題行已成功插入到每一行。"
End Sub
使用步驟：
- 打開 Excel 文件，按?Alt + F11?打開 VBA 編輯器。
- 在 VBA 編輯器中，選擇?Insert?菜單，然后選擇?Module?插入一個新模塊。
- 將上述代碼復制并粘貼到模塊窗口中。
- 確保在代碼中將?Sheet1?替換為你的工作表名稱。
- 關閉 VBA 編輯器，返回 Excel。
- 按?Alt + F8?打開宏對話框，選擇?CopyHeadersToEachRow，然后點擊?Run。
該宏將會在每一行的上方插入第一行的標題行。請注意，這會改變你的數據結構，因此建議在操作之前備份數據。
掃碼關注微信公眾號
