你好，游客
快速合并Excel工作表的多个列
使用制作的在线调查问卷，可以将样本数据导出为Excel文件，便于进一步分析。但是其中的多选题数据会以多列的形式保存，题目标题是一个合并单元格，这样的格式需要调整才能使用Excel数据透视图进行分析。
调整方法：在多选题之前增加一列，合并多选题数据到新的列。每个多选题都调整完成后，排除原有的多选题数据，仅复制刚刚新增的列和其它需要分析的列的数据，粘贴到新的工作表。
下面以一个简单示例来说明详细步骤：
一、打开示例调查问卷。（）&
这个示例里有一个多选题（Office软件），分布在D、E、F列，标题是一个合并单元格。&
因数据较长，单元格的内容显示不完整，所以先调整E列、F列的宽度：&
现在显示得比较清楚，这个多选题分布在D、E、F列，标题是一个合并单元格：&
二、在这个多选题之前添加一个列。这时多选题向右移动，分布在E、F、G列。在新增列的第一行（D1单元格）添加标题。&
三、添加合并函数。
点击新增列的第二行（D2单元格），关闭汉字输入法或切换到英文半角状态，在表格上方的编辑栏输入 =con ，然后在弹出的函数列表中双击 CONCATENATE。&
四、编辑函数参数。
在函数左括号之后，依次输入下列图片标出的数据。
E2,& E2表示引用多选题第一列（E列）第二行的数据，后面的逗号用于和其它函数参数分隔
&,&,& 在不同列的数据之间加上逗号作为分隔，后面的逗号用于和其它函数参数分隔
再引用F2单元格
加上分隔符，再引用G2单元格数据，最后加上右括号，完成函数参数编辑
按Enter键回车，D2单元格就按指定格式合并显示了E2、F2、G2单元格的内容
五、填充公式到D列其它单元格。
六、配合使用Ctrl键，选中A列、B列、D列的数据。
七、粘贴到一个空白工作表。
八、调整列宽。
&完整显示数据
九、替换掉多余的分隔符。选中C列，用&查找和替换&对话框替换掉多余的逗号。
完成以上步骤后，选中工作表的全部数据，转到&插入&选项卡，点击&数据透视表&，再点击&数据透视图&就可以创建数据透视图进行进一步的分析了。
相关新闻 & & &
& (07月17日)
& (08/23/:08)
& (11/29/:46)
& (04月10日)
& (08/20/:39)
　　　同意评论声明
　　　发表
尊重网上道德，遵守中华人民共和国的各项有关法律法规
承担一切因您的行为而直接或间接导致的民事或刑事法律责任
本站管理人员有权保留或删除其管辖留言中的任意内容
本站有权在网站内转载或引用您的评论
参与本评论即表明您已经阅读并接受上述条款
标题内容作者Excel合并工作簿的两种方法
Excel合并工作簿的两种方法
平时工作，可能会因不同的文件创建多个excel工作簿，有些工作簿只包含一个单独的工作表，有些工作簿有多个工作表。时间久了，就想将有用的工作簿合并到一起，不至于每次都来来回回的打开多个工作表。如何实现合并多个工作簿呢?
　　能想到的有两种。第一，使用命令实现合并多个工作簿。第二，使用宏代码实现合并多个工作簿。
　　使用命令合并工作簿的方法是这样的：
　　打开全部工作簿，右键点击工作名，出现"移动或复制工作表"对话框，在“工作簿”下拉列表选择目标工作簿，在“下列选定工作表之前”选择相应的工作表，可以对工作簿进行移动或者复制，如果是复制，可以勾选“建立副本”。
　　使用宏代码实现合并多个工作簿的方法：
　　将下面代码复制到代码页面，然后运行宏就可以了。
　　Sub 合并工作薄()
　　Dim FilesToOpen
　　Dim x As Integer
　　On Error GoTo ErrHandler
　　Application.ScreenUpdating = False
　　FilesToOpen = Application.GetOpenFilename _
　　(FileFilter:="MicroSoft 文件(*.xls), *.xls", _
　　MultiSelect:=True, Title:="要合并的文件")
　　If TypeName(FilesToOpen) = "Boolean" Then
　　MsgBox "没有选中文件"
　　GoTo ExitHandler
　　End If
　　While x &= UBound(FilesToOpen)
　　Workbooks.Open Filename:=FilesToOpen(x)
　　Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
　　x = x + 1
　　ExitHandler:
　　Application.ScreenUpdating = True
　　Exit Sub
　　ErrHandler:
　　MsgBox Err.Description
　　Resume ExitHandler
　　End Sub
发表评论：
馆藏&18624
TA的推荐TA的最新馆藏系统专题栏目
最新系统下载
推荐系统下载
主题推荐下载
很多财务人员都有这样的困扰，到年底的时候要把很多同一个类型的财务表格合并到一个表格中汇总，一个一个表格合并的话实在太麻烦了，今天小编就教教大家如何利用vba代码快速将同一个excel文档中的多个工作表合并到一个工作表中。
首先我们打开格式相同拥有多个工作簿的excel文件，如下图：
接着回到该文件所在的文件夹，如下图所示建立两个工作表，一个是上面已经打开的原始数据表，再建一个合并工作表工具表格。
接着打开合并工作表工具表，如下图，建立两个不同名称的工作簿：
然后直接按住alt键和F11键调出vba代码编辑和调试框，如下图：
点击上方的插入命令，选择模块命令，如下图：
接下来这一步比较麻烦，就是在右侧空白页面输入模块代码，由于比较长，大家可以到下面的网址中去复制一下：
点击保存，回到合并工作表工具表格首页工作簿，如下图，选择开发工具选项卡，点击插入命令，在下拉菜单选择按钮命令。
将该窗体控件按钮指定为宏，并将它命名为下图所示的代码名称：
做好这些工作后，我们可以插入原始数据表格了，点击首页工作簿中的插入命令，根据提示如图找到指定表格打开。
在打开的表格中手动选择数据范围，如果比较多的话可以直接用输入命令框选择一个比较大的范围，等最后再删除多余的空白行。
选择好范围，然后点击确定，就会出现如下图所示的导入结果：
但是因为有的范围选的比较大，所以会出现很多空白行、列，这时候我们可以全选表格，点击自动筛选命令，如图，将筛选条件设置好，将空白行和标题列都选中：
筛选出来后，我们直接右键选择删除行，再选择删除列就行了。
最后完成就是下图所示的表格了，我们也就成功将多个表格合并到一个表格了。温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
新浪微博,零售创新
研究经理,数据分析师
希望和市场研究和零售业的同事共同进步!
本博客发表的都是免费或试用的资料,如果有版权问题请发邮件联系删除。
spss excel vba
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(1403)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
在LOFTER的更多文章
loftPermalink:'',
id:'fks_084070',
blogTitle:'把EXCEL的一个工作簿中多个工作表的内容合并到一个工作表',
blogAbstract:'把EXCEL的一个工作簿中多个工作表的内容合并到一个工作表
Sub 合并()&&& Dim tmpSht, srcSht As Worksheet&&& Dim i, cpyStartRow&&&&& As Integer&&& &&& cpyStartRow = 0&&& For i = 1 To Application.ActiveWorkbook.Worksheets.Count&&&&&&& If i & 1 Then&&&&&&&&&&& Set tmpSht = ActiveWorkbook.Worksheets(i)&&&&&&&&&&& ',
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:0,
publishTime:1,
permalink:'blog/static/',
commentCount:0,
mainCommentCount:0,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:true,
hostIntro:'新浪微博,零售创新\n\n研究经理,数据分析师\n希望和市场研究和零售业的同事共同进步!\n\n\n本博客发表的都是免费或试用的资料,如果有版权问题请发邮件联系删除。\nspss excel vba
hmcon:'1',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}苹果/安卓/wp
积分 127, 距离下一级还需 18 积分
权限: 自定义头衔
道具: 彩虹炫, 雷达卡, 热点灯, 雷鸣之声, 涂鸦板, 金钱卡, 显身卡下一级可获得
道具: 匿名卡
购买后可立即获得
权限: 隐身
道具: 金钱卡, 雷鸣之声, 彩虹炫, 雷达卡, 涂鸦板, 热点灯
开心签到天数: 7 天连续签到: 1 天[LV.3]偶尔看看II
工具名称：多簿单表数据合并专家1.0
工具功能：快速合并大量Excel工作簿中某一指定工作表的数据
界面预览：
文件（夹）选取窗口：
15:58:50 上传
文件选取窗口
参数设置界面：
15:58:50 上传
参数设置面板
合并进度提示：
15:58:51 上传
合并进度提示
操作演示：（单击可以放大观看）
15:58:48 上传
多簿单表合并——小千办公
工具文件：
(689.76 KB)
16:01:32 上传
多簿单表数据合并专家1.0
载入中......
奖励积极上传好的资料
总评分:&经验 + 20&
论坛币 + 5&
学术水平 + 1&
热心指数 + 1&
信用等级 + 1&
顶一个，好东东。
qinjian 发表于
顶一个，好东东。谢谢夸奖！
好东西，找了好多天终于找到这个东西了，非常感谢
好东西，正是我需要的，谢谢了
无限扩大经管职场人脉圈！每天抽选50位免费名额，现在就扫
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
&nbsp&nbsp|
如有投资本站或合作意向，请联系（010-）；
邮箱：service@pinggu.org
投诉或不良信息处理：（010-）
京ICP证090565号
京公网安备号
论坛法律顾问：王进律师