Excel VBA技术需求：多工作表数据批量导入现有表格并保留格式

嘿，这个需求用VBA就能完美解决，我给你整了一段针对性的代码，还会把关键细节讲清楚，保证你能直接用或者按需调整：

核心思路 #

我们会遍历目标工作簿里的工作表（可以指定特定表），跳过每个表的前两行，提取从第3行开始的6列数据，然后追加到你已有的表格中——用Excel自带的表格对象（ListObject）来操作，能自动继承原表格的格式，完全不会破坏你之前设置好的样式。

实用VBA代码 #

Sub ImportDataToTable()
    Dim ws As Worksheet
    Dim targetTable As ListObject
    Dim sourceRange As Range
    Dim lastRow As Long
    Dim targetRow As Long
    
    ' 👉 这里要改成你自己的汇总工作表名和表格名
    Set targetTable = ThisWorkbook.Worksheets("汇总表").ListObjects("Table1")
    
    ' 遍历工作簿里的所有工作表（如果要指定特定表，看下面的注意事项）
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过汇总表本身，避免重复导入
        If ws.Name <> targetTable.Parent.Name Then
            ' 找到当前工作表6列数据的最后一行（从第3行开始算）
            lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            ' 确保当前表有可导入的数据（至少第3行有内容）
            If lastRow >= 3 Then
                ' 定义要复制的源区域：第3行到最后一行，A-F列（刚好6列）
                Set sourceRange = ws.Range("A3:F" & lastRow)
                
                ' 获取目标表格的下一个空行位置
                targetRow = targetTable.ListRows.Count + 1
                
                ' 给目标表格新增一行（自动继承格式）
                targetTable.ListRows.Add AlwaysInsert:=True
                ' 从B列开始粘贴数据，保留数值和原格式
                sourceRange.Copy
                targetTable.DataBodyRange.Cells(targetRow, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
                
                ' 清除剪贴板，避免弹出粘贴提示
                Application.CutCopyMode = False
            End If
        End If
    Next ws
    
    MsgBox "数据导入搞定啦！", vbInformation
End Sub

关键调整说明 #

1. 指定目标表格：把代码里的"汇总表"改成你存放表格的工作表名称，"Table1"改成你的表格真实名称（在Excel顶部的「表格设计」选项卡能看到表格名）。
2. 源数据列调整：如果你的源数据不是从A列开始，比如是B-G列，就把ws.Range("A3:F" & lastRow)改成ws.Range("B3:G" & lastRow)。
3. 指定导入的工作表：如果不需要遍历所有表，只想导入特定几个，把For Each ws In ThisWorkbook.Worksheets改成：

   For Each ws In ThisWorkbook.Sheets(Array("销售表1", "销售表2", "库存表"))
   

   把数组里的名称换成你要导入的工作表名就行。
4. 格式保留选项：如果需要保留更多格式（比如单元格底色、字体样式），可以把xlPasteValuesAndNumberFormats改成xlPasteAllUsingSourceTheme。

小提醒 #

运行代码前最好先备份一下文件，防止误操作～

备注：内容来源于stack exchange，提问作者Nev