嘿，作为VBA新手遇到这个问题太正常了，我来帮你调整代码～你的核心需求是每次导入新文件的数据时，自动追加到目标工作表的新行，而不是覆盖原有内容，问题出在你没有正确定位目标表的最后一行位置。

原代码的问题 #

你初始把PasteStart固定设为[Dominoes_Excel!A1]，这意味着每次运行宏时，都会从A1开始粘贴，自然会覆盖之前的数据；即便循环内做了偏移，也只针对当前打开文件的多个工作表，下次运行宏还是会回到A1位置。

修改后的代码 #

Private Sub CommandButton1_Click()
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim Sheet As Worksheet
    Dim PasteStart As Range
    Dim FileToOpen As Variant ' 改成Variant更稳妥，兼容GetOpenFilename的不同返回值
    
    Set wb1 = ActiveWorkbook
    FileToOpen = Application.GetOpenFilename
    
    If FileToOpen = False Then
        MsgBox "No File Specified."
        Exit Sub
    Else
        Set wb2 = Workbooks.Open(Filename:=FileToOpen)
        
        ' 遍历源文件的每个工作表
        For Each Sheet In wb2.Sheets
            ' 关键：每次粘贴前，精准定位目标表的最后一行下侧
            With wb1.Sheets("Dominoes_Excel")
                Set PasteStart = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
                ' 如果目标表是空表，自动回到A1开始粘贴
                If PasteStart.Row < 2 Then Set PasteStart = .Range("A1")
            End With
            
            ' 复制并粘贴数据
            Sheet.UsedRange.Copy PasteStart
        Next Sheet
        
        wb2.Close SaveChanges:=False ' 关闭源文件时不保存，避免弹窗
    End If
End Sub

关键改动说明 #

• 精准定位新行：用Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)可以快速找到目标表A列最后有数据的行，偏移1行就是全新的粘贴起点，彻底避免覆盖。
• 兼容空表场景：如果目标表还没有任何数据，会自动切换到A1开始粘贴，不会出现跳过第一行的问题。
• 优化细节：把FileToOpen改成Variant类型，兼容用户取消选择时返回的布尔值；加上SaveChanges:=False，关闭源文件时不会弹出保存提示，操作更流畅。

这样修改后，每次你导入新文件的数据，都会自动追加到目标表的末尾，再也不会覆盖之前的内容啦～

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