如何在2010excel一个界面显示多个表格
答案:2 悬赏:10 手机版
解决时间 2021-02-16 04:56
- 提问者网友：姑娘长的好罪过
- 2021-02-15 09:02
如何在2010excel一个界面显示多个表格
最佳答案
- 五星知识达人网友：长青诗
- 2021-02-15 10:41
方法1: 使用Office2010自带功能,不是很好用:
1.1 方法: 点击【文件】——【选项】——【高级】——【显示】,找到"在任务栏中显示所有窗口", 把钩去掉, 就可以多个excel文件在一个窗口里面了.
1.2 效果: 通过菜单栏的【视图】——【切换窗口】可以选择不同的窗口.
方法2: 使用Office Tab Enterprise插件,实现单窗口多标签文档浏览
1.1 方法: 点击【文件】——【选项】——【高级】——【显示】,找到"在任务栏中显示所有窗口", 把钩去掉, 就可以多个excel文件在一个窗口里面了.
1.2 效果: 通过菜单栏的【视图】——【切换窗口】可以选择不同的窗口.
方法2: 使用Office Tab Enterprise插件,实现单窗口多标签文档浏览
全部回答
- 1楼网友：封刀令
- 2021-02-15 12:12
1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击sheet1
2、选择查看代码（ps：excel有着一项，wps没有）
3、将下列代码复制到文本框中：
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
4、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯