Sub sheets2one()'定义对话框变量Dim cc As FileDialogSet cc = Application.FileDialog(msoFileDialogFilePicker)Dim newwork As WorkbookSet newwork = Workbooks.AddWith ccIf .Show = -1 ThenDim vrtSelectedItem As VariantDim i As Integeri = 1For Each vrtSelectedItem In .SelectedItemsDim tempwb As WorkbookSet tempwb = Workbooks.Open(vrtSelectedItem)tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")tempwb.Close SaveChanges:=Falsei = i + 1Next vrtSelectedItemEnd IfEnd WithSet cc = NothingEnd Sub
    
    4、点击运行选项运行宏命令。
    
    5、之后弹出选择对话框，选择要批量合并的Excel名，确定即可。
    
    6、程序运行完毕后，会自动生成一个工作簿，工作簿内包含所有需合并的Excel文件，将工作簿另存为即可。
    
    
    以上步骤便是，合并后的Excel文档会献出多个Sheet页，我们可以很方便的切换了解。
        如何将多个Excel文件合并成一个且保留原有数据？风吹雾千辛万舌战群儒苦散12. 我昂首而行，黑暗中没有人能看见我的笑容。白色的芦荻在夜色中点染着凉意——这是深秋了，我们的日子在不知不觉中临近了。我遂觉得我的心像一张新帆，其中每一个角落都被大风吹得那样饱满。我学习努力，与老师同学相处融洽。196.正是江南好风景，落花时节又逢君。《江南逢李龟年》    绿头鸭　晁元礼千秋万岁名，寂寞身后事。如何将excel文件合并,多个excel合并成一个,excel合并单元格保留内容In any event, the advertisement provides no justification for the mutually exclusive choice that it imposes on the writer.