Question

VBA如何把很多EXCEL文件合并一个大表

Answer 1

问：VBA如何把很多EXCEL文件合并一个大表

问：这些文件里面内容格式是一样的，需要把它们合并到一个大的EXCEL文件表

答：VBA如何把很多EXCEL文件合并一个大表您好亲，用VBA代码也是可以的.新建一个excel,在sheet1,2,3其中一个sheet中建一个按钮,把下面的代码复制到按钮里面去,在建按钮的这个sheet里面A列输入文件路径和名称,B列输入文件名称希望我的回答能够帮助到您哦！如果我的解答对您有所帮助，还请给个赞(在左下角进行评价哦），期待您的赞，您的举手之劳对我很重要，您的支持也是我进步的动力，最后再次祝您身体健康心情愉快!

问：怎么弄

问：VBA程序呢

问：有很多EXCEL文件如何合并到一个文件

答：您好亲，1、新建一个工作薄，将其命名为合并后的名字，例如叫做：汇总工作簿。2、打开此工作簿：“汇总工作簿”3、在“汇总工作簿”下任意一个工作表标签上点击右键，选择“查看代码”。4、在打开的VBA编辑窗口中粘贴代码：5、关闭该VBA编辑窗口6、在Excel中，开发工具---宏,选“工作薄间工作表合并”,然后“执行”。7、在打开的对话窗口中，选择你要合并的多个工作薄。8、等待运行，就OK了。希望我的回答能够帮助到您哦！如果我的解答对您有所帮助，还请给个赞(在左下角进行评价哦），期待您的赞，您的举手之劳对我很重要，您的支持也是我进步的动力，最后再次祝您身体健康心情愉快!

问：代码呢

答：您好亲，Option Explicit　　Sub hbgzb()　　Dim sh As Worksheet， flag As Boolean， i As Integer， hrow As Integer， hrowc As Integerflag = False 　　For i = 1 To Sheets.Count　　If Sheets(i).Name = "合并数据" Then flag = True　　Next　　If flag = False Then　　Set sh = Worksheets.Add　　sh.Name = "合并数据"　　Sheets("合并数据").Move after:=Sheets(Sheets.Count)　　End If　　For i = 1 To Sheets.Count　　If Sheets(i).Name > "合并数据" Then　　hrow = Sheets("合并数据").UsedRange.Row　　hrowc = Sheets("合并数据").UsedRange.Rows.Count　　If hrowc = 1 Then　　Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow， 1).End(xlUp)　　Else　　Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow + hrowc - 1， 1).Offset(1， 0)　　End If　　End If　　Next i　　End Sub　　　　按ALT+F8打开宏对话框窗口，鼠标单击执行hbgzb宏。　　希望我的回答能够帮助到您哦！如果我的解答对您有所帮助，还请给个赞(在左下角进行评价哦），期待您的赞，您的举手之劳对我很重要，您的支持也是我进步的动力，最后再次祝您身体健康心情愉快!