Excel批量导入数据可通过以下两种高效方法实现，具体选择取决于数据来源和操作需求：

一、使用Power Query合并多份工作簿

Power Query是Excel强大的数据处理工具，支持快速合并多个相同格式的Excel文件，适用于数据源为文件夹内多个Excel文件的情况。

1. 操作步骤

   • 将所有待合并文件放入同一文件夹，按统一命名规则（如“销售报表-区域-日期.xlsx”）。

   • 在新Excel中点击“数据”→“获取数据”→“从文件夹”，选择目标文件夹后进入Power Query编辑器。

   • 使用“合并文件”功能选择表格，设置数据类型并添加“来源文件”列追踪来源。

2. 注意事项

   • 确保所有文件格式、列名和数据类型一致，避免合并错误。

二、利用VBA实现自动化批量导入

适用于固定格式文件或需频繁处理的情况，通过编写VBA代码实现文件遍历、数据复制和粘贴自动化。

1. 基础代码示例

   Sub ImportMultipleFiles()
       Dim sourceFolder As String
       Dim fileName As String
       Dim wb As Workbook
       Dim lastRow As Long
       sourceFolder = "C:\数据文件" ' 修改为实际路径
       lastRow = ThisWorkbook.Sheets("汇总表").Cells(Rows.Count, "A").End(xlUp).Row + 1
       fileName = Dir(sourceFolder & "*.xlsx")
       Do While fileName <> ""
           If fileName <> ThisWorkbook.Name Then
               Set wb = Workbooks.Open(sourceFolder & fileName)
               wb.Sheets(1).UsedRange.Copy
               ThisWorkbook.Sheets("汇总表").Range("A" & lastRow).PasteSpecial Paste:=xlPasteValues
               wb.Close SaveChanges:=False
           End If
           fileName = Dir
       Loop
   End Sub
   

   • 代码功能：遍历指定文件夹中的所有Excel文件，将数据复制到“汇总表”中。

2. 优化建议

   • 关闭系统警告和屏幕刷新（Application.DisplayAlerts = False）以提高运行速度。

   • 根据数据量调整分批处理逻辑（如5万条数据拆分为5个1万条）。

三、其他辅助方法

• 记录单功能 ：通过Excel“文件”→“选项”→“快速访问工具栏”添加“记录单”，实现数据录入自动化。

• 文本文件导入 ：使用“数据”→“从文本获取数据”，设置分隔符后直接导入。

以上方法可根据实际需求选择，Power Query适合复杂合并场景，VBA适合批量处理和自动化任务。