请求协助完善ContractorEntry宏：实现数据按行号粘贴或新增至数据库

需求说明 #

• 从「Contractor Entry Form」工作表的U5:AT5区域复制数据，粘贴到「CONTRACTOR DATABASE」工作表
• 编辑记录时：若「Contractor Entry Form」的L1单元格有值（对应数据库中的目标行号），则将数据粘贴到数据库的L1值-1行
• 新增记录时：若L1无值，则将数据粘贴到数据库的最后一行；操作完成后清空表单指定区域，并定位到D3准备新录入

原代码问题 #

1. 语法错误：Else未与If正确配对，Cells(R -1, 1)缺少调用方法，xlUpSelection.PasteSpecial.Row存在语法混乱
2. 范围错误：Range("D3:M1")的单元格范围写反，应为Range("M1:D3")
3. 冗余操作：过度使用Select和Selection，易引发错误且效率低下

修正后的代码 #

Sub ContractorEntry()
    Dim entryWs As Worksheet
    Dim dbWs As Worksheet
    Dim targetRow As Long
    Dim copyRange As Range
    
    ' 定义工作表对象，避免重复查找工作表
    Set entryWs = ThisWorkbook.Worksheets("Contractor Entry Form")
    Set dbWs = ThisWorkbook.Worksheets("CONTRACTOR DATABASE")
    ' 定义要复制的目标区域
    Set copyRange = entryWs.Range("U5:AT5")
    
    ' 获取L1单元格的值，判断操作类型
    targetRow = entryWs.Range("L1").Value
    
    If targetRow > 0 Then
        ' 编辑模式：粘贴到目标行号减1的位置
        copyRange.Copy
        dbWs.Cells(targetRow - 1, 1).PasteSpecial Paste:=xlPasteValues
    Else
        ' 新增模式：找到数据库最后一行，粘贴到下一行
        copyRange.Copy
        dbWs.Cells(dbWs.Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
        
        ' 清空表单指定区域并定位到D3
        entryWs.Range("M1:D3").ClearContents
        entryWs.Range("D3").Select
    End If
    
    ' 清除剪贴板残留状态
    Application.CutCopyMode = False
End Sub

关键优化点 #

• 使用工作表对象变量，减少重复查找操作，提升代码稳定性
• 移除不必要的Select和Selection操作，直接对单元格对象进行操作
• 修正单元格范围错误，确保清空区域符合需求
• 新增剪贴板状态清除，避免后续操作受影响

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