怎样把几张字段一样的表合并成一张表

看了之后很兴奋，随手写了点 ，你把需要导入的文件先选择，再导入不就完了。如下

  Dim a
  Dim b
  Dim i
   With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
            If .Show = True Then
             a = .SelectedItems.Count
             For i = 1 To a
             b = .SelectedItems(i)
           '  加入你要操作的内容
             Next i
              Else
            Exit Sub
        End If
    End With