Excel VBA复制单元格值到工作表列表时J列粘贴覆盖问题

嘿，先帮你定位核心问题：你复制H16到J列（第10列）时出现覆盖，是因为这段代码写错了：

pasteSheet.Cells(Rows.Count, 10).End(xlUp).Offset(1, 0).Row.PasteSpecial

这里多了个.Row——End(xlUp).Offset(1,0)已经精准定位到目标空单元格，加上.Row会把它变成一个纯数字行号，而数字没有PasteSpecial方法，VBA会默认用当前活动单元格粘贴，自然就覆盖了已有数据。

修复核心代码行 #

把那一行改成下面这样，同时注意你写错的SkipBlanks:=xlCopy，这个参数应该是布尔值（True/False）：

copySheet.Range("H16").Copy
pasteSheet.Cells(Rows.Count, 10).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

代码大幅优化建议 #

你的原代码重复操作太多（反复开关屏幕更新、多次调用剪贴板清空），不仅冗余还影响性能，我帮你重构得更简洁高效：

优化后的完整代码 #

Sub TestCopyToDB()
    Application.ScreenUpdating = False
    Dim copySheet As Worksheet
    Dim pasteSheet As Worksheet
    Dim nextRow As Long ' 统一获取目标表的下一行，避免每列单独查找导致行号不一致
    
    Set copySheet = Worksheets("PIT Training Request Form")
    Set pasteSheet = Worksheets("Output")
    
    ' 统一获取Output表第一列的下一行，保证所有数据粘贴到同一行
    nextRow = pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    
    ' 直接赋值替代Copy/Paste，更高效且避免剪贴板问题
    pasteSheet.Cells(nextRow, 1).Resize(1, 2).Value = copySheet.Range("C2:D2").Value
    pasteSheet.Cells(nextRow, 2).Value = copySheet.Range("C3").Value
    pasteSheet.Cells(nextRow, 3).Value = copySheet.Range("C4").Value
    pasteSheet.Cells(nextRow, 4).Value = copySheet.Range("C5").Value
    pasteSheet.Cells(nextRow, 5).Value = copySheet.Range("C6").Value
    pasteSheet.Cells(nextRow, 6).Value = copySheet.Range("C7").Value
    pasteSheet.Cells(nextRow, 7).Value = copySheet.Range("C8").Value
    pasteSheet.Cells(nextRow, 8).Value = copySheet.Range("E8").Value
    pasteSheet.Cells(nextRow, 9).Resize(1, 2).Value = copySheet.Range("C11:D11").Value
    pasteSheet.Cells(nextRow, 10).Value = copySheet.Range("H16").Value
    
    ' 批量清空源表内容，不用逐个单元格操作
    With copySheet
        .Range("C3:C8, C11:D11, E8, D9:D10, D14:D16").ClearContents
    End With
    
    Application.ScreenUpdating = True
    copySheet.Select
    MsgBox "Submission Complete.", vbInformation
End Sub

优化点说明 #

• 统一行号：原来每列单独找最后一行，可能因为某列空值导致行号错位，现在统一用第一列的下一行，确保所有数据在同一行。
• 直接赋值：Range.Value = Range.Value比Copy/PasteSpecial快得多，还能避免剪贴板冲突。
• 批量操作：把所有要清空的单元格合并成一个Range，一次完成清空，简化代码。
• 减少屏幕更新操作：只在开头关闭、结尾开启，减少Excel的刷新消耗。

额外小提醒 #

原代码里有个多余的End With（没有对应的With语句），我在优化代码里已经删掉了，不然会触发编译错误。

内容的提问来源于stack exchange，提问作者Gilbert Maserati