如何用VBA将Product File数据复制到FileMaster的下一行空行？

原代码存在的问题 #

• LastRow定义为String类型，行号是数值，应使用Long类型
• 粘贴目标区域错误：原代码用Range("C2:N" & LastRow)是从C2开始覆盖已有数据的最后一行，而非下一行空行
• 复制源区域的Range("A" & Rows.Count)未指定工作表，会默认当前激活表，易引发错误
• 不必要的Activate操作，会降低代码稳定性和效率

修正后的代码 #

Dim sourceWB As Workbook
Dim sourceWS As Worksheet
Dim targetWB As Workbook
Dim targetWS As Worksheet
Dim sourceLastRow As Long
Dim targetNextRow As Long

' 直接定义工作簿和工作表对象，避免Activate/Select操作
Set sourceWB = Workbooks("Product File.xlsx")
Set sourceWS = sourceWB.Worksheets("data")
Set targetWB = Workbooks("FileMaster.xlsx")
Set targetWS = targetWB.Worksheets("new_template")

' 获取源表A列最后一行非空行号
sourceLastRow = sourceWS.Cells(sourceWS.Rows.Count, "A").End(xlUp).Row
' 获取目标表C列的下一个空行行号（已有数据到C50时，返回51）
targetNextRow = targetWS.Cells(targetWS.Rows.Count, "C").End(xlUp).Row + 1

' 复制源数据到目标表的空行起始位置
sourceWS.Range("A2:N" & sourceLastRow).Copy targetWS.Range("C" & targetNextRow)

Application.CutCopyMode = False

关键修改说明 #

• 使用对象变量直接引用工作簿/工作表，避免依赖激活状态，代码更稳定高效
• 通过End(xlUp).Row + 1精准定位目标表的下一行空行，确保数据追加而非覆盖
• 复制时仅指定目标起始单元格，Excel会自动匹配复制的列数，无需手动指定N列范围

内容的提问来源于stack exchange，提问作者Quynh Trang Pham Do