多个excel电子表格怎么合并|excel电子表格合并方法-凯发app官方网站

多个excel电子表格怎么合并？不懂具体合并方法的用户，可以参考以下的教程来设置。

具体的解决方法：

01、新建一个文件夹，将所有要合并的电子表格放进去，然后在文件夹里新建一个电子表格。

02、打开新建的电子表格，在下方找到“sheet1”，鼠标右键点击，选择“查看代码”。这里需要注意的是，“查看代码”是只有excel才有，而wps是没有的。所以这个方法是并不适用于wps！

03、将下列代码复制到文本框中（通用代码）：

sub 合并当前目录下所有工作簿的全部工作表()
dim mypath, myname, awbname
dim wb as workbook, wbn as string
dim g as long
dim num as long
dim box as string
application.screenupdating = false
mypath = activeworkbook.path
myname = dir(mypath & "\" & "*.xls")
awbname = activeworkbook.name
num = 0
do while myname <> ""
if myname <> awbname then
set wb = workbooks.open(mypath & "\" & myname)
num = num 1
with workbooks(1).activesheet
.cells(.range("b65536").end(xlup).row 2, 1) = left(myname, len(myname) - 4)
for g = 1 to sheets.count
wb.sheets(g).usedrange.copy .cells(.range("b65536").end(xlup).row 1, 1)
next
wbn = wbn & chr(13) & wb.name
wb.close false
end with
end if
myname = dir
loop
range("b1").select
application.screenupdating = true
msgbox "共合并了" & num & "个工作薄下的全部工作表。如下：" & chr(13) & wbn, vbinformation, "提示"
end sub

04、点击上方的“运行”，在选择“运行子过程”。

05、在弹出框中选择“运行”，等待几分钟后就合并成功了（等待时长取决于数据的多少）。

06、点击新建的那个电子表格中，就会发现所有表格的数据已经全部合并到一起了。

现在对【多个excel电子表格怎么合并】的操作，大家都清楚了吧?还有其他的电脑程序的问题，或者需要自己凯发app官方网站-凯发体育app官网的话，欢迎上u教授凯发体育app官网查看相关的教程。