【已解決】 按照某一數值插行并復制，VBA代碼，能不能給個格式正確的？
最佳答案 2024-11-18 09:00
當然可以幫助你。要在Excel中使用VBA根據某個數值插入行并復制數據，你可以使用以下格式的代碼。請確保代碼在VBA編輯器中正確粘貼，并且在適當的模塊中運行。
Sub InsertRowsAndCopyData()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim targetValue As Long
' 設置工作表
Set ws = ThisWorkbook.Sheets("Sheet1") ' 請根據需要更改工作表名稱
' 設置目標數值
targetValue = 10 ' 需要插入行的數值
' 找到最后一行
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' 從最后一行向上遍歷
For i = lastRow To 1 Step -1
' 檢查如果單元格值等于目標值
If ws.Cells(i, 1).Value = targetValue Then
' 插入一行
ws.Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
' 復制當前行的數據到新插入的行
ws.Rows(i).Copy
ws.Rows(i + 1).PasteSpecial Paste:=xlPasteAll
End If
Next i
' 清除剪貼板
Application.CutCopyMode = False
End Sub
請注意以下幾點：
- 確保工作表名稱正確替換為你需要操作的工作表名稱。
- targetValue?是你要查找的數值，代碼會在找到該數值的行后插入新行并復制數據。
- 如果語法錯誤仍然存在，請檢查是否在VBA編輯器中正確粘貼代碼，是否有遺漏的部分，或者是否有額外的字符導致錯誤。
如果你還有其他問題或者需要進一步的調整，請告訴我！
掃碼關注微信公眾號
