Excel表格自动筛选时显示合并单元格中全部记录的方法 - Office办公助手
最专业的Office办公软件学习和原创Office教程网站！
Excel表格自动筛选时显示合并单元格中全部记录的方法
发布时间：06-22　来源：Office办公助手()
如果Excel表格的某列中包含合并的单元格，在对该列进行自动筛选时可能会出现只显示合并单元格所在区域第一行的问题，例如图中筛选&市场部&，就只会显示&孙力&一条记录。
出现这个问题的原因是合并单元格中除第一个单元格外，其他单元格都为空，自动筛选时自然不会显示对应行的数据了。要解决Excel表格自动筛选时显示合并单元格中全部记录的问题，可以采用下面的方法，假如数据区域为A2:C18：
1、复制合并单元格所在的A列到其他空白列，如本例中的列的E2:E18，这样做的目的是保留合并单元格的大小和样式。
2、选择A2:A18，单击工具栏或功能区中的&合并后居中&命令取消所有单元格合并。
3、保留A2:A18的选择状态，按F5键打开&定位&对话框，单击&定位条件&按钮，在弹出的对话框中选择&空值&后确定。
Excel将选择A2:A18区域中的所有空单元格。
4、在编辑栏中输入公式：=A2
也可先输入&=&号，再按上箭头键，Excel自动输入上述公式。
按Ctrl+Enter，将公式填充到所有空单元格。
5、复制A2:A18区域，在原区域将其选择性粘贴为值。
6、选择E2:E18区域，单击工具栏或功能区中的格式刷按钮，这时鼠标指针变成带刷子的粗十字形，再选择A2:A18区域，将原来的合并区域的格式复制到A2:A18，删除E列。
这时进行自动筛选就可以显示合并单元格所在行的全部记录。
鉴于部分网友留言，特制作了下面的动画展示主要操作步骤。
其中快速访问工具栏放置到了功能区的下方，并添加了&合并后居中&与&格式刷&两个命令。
上一篇： 下一篇：
专题教程推荐
(window.slotbydup=window.slotbydup || []).push({
id: '3577897',
container: s,
size: '300,450',
display: 'inlay-fix'
热门资源下载怎样合并单元格
你照图做吧!
其他答案（共5个回答）
单栏“合并及居中”图标；②点“格式/单元格/对齐”，在“文本控制”项下勾选“合并单元格”；③取消合并单元格，点“格式/单元格/对齐”，在“文本控制”项下去掉“合并单元格”选择。
　假设“很多学生”在A1,“在学校"在B1，"上课"在C1，合并后放在D1，则在D1中输入=A1&B1&C1,回车确定，再把D1的公式向下填充，那么D列就是合并...
打不开你的DOCX文件。
用EXCEL打开你的WORD表格，假设要把D、E、F三列合并，如第一行分别是D6、E6、F6，则在F列后再建一列，输入公式“=D...
如果你的PPT应该是版的，具体操作是：
菜单“设计”，在工具栏“主题”后面点下拉式标记，选“波形”，
先编码，后输入数据。不一定只用一个表格，可以分几个表格来完成。把问题简单化，不要急，相信自己会解决的。
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区查看: 1270|回复: 5
如何给已经合并的单元格增加或减少格数？
阅读权限10
在线时间 小时
本帖最后由 ll121121 于
11:22 编辑
捕获.PNG (19.21 KB, 下载次数: 1)
11:03 上传
诸位老师，请教一个问题，这是一个生产安排的表，每一个合并的单元格代表一个任务，现在想加一个调整时间的功能
比如选中一个已经合并了的单元格，长度是8小时，然后通过按钮可以让它增长5小时或者缩短5小时（5个格），同时它右边的所有格一起向前或向后移动(选中的那个单元格的起点不变）。
试了一天先解除合并然后用selection.insert 和selection.delete,不过之后怎么再合并起来一直选不到想选的单元格，请老师们指教T_T
阅读权限10
在线时间 小时
& & & & & & & &
自己顶一个。。求各位老师帮助啊！！
阅读权限100
在线时间 小时
建议上传表格附件来说明问题。
不要只上传图片。
阅读权限10
在线时间 小时
建议上传表格附件来说明问题。
不要只上传图片。
蓝桥老师，请看附件。感谢指导
16:54 上传
点击文件名下载附件
12.77 KB, 下载次数: 5
阅读权限100
在线时间 小时
Sub lqxs1()
Dim c%, i&, rng As Range
Dim m&, Myc%, n%, ad$, r%, col&, sz&, n1%
If Not Selection.MergeCells Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
sz = 5
Set rng = Selection
With rng
& & n = .Columns.Count
& & r = .Rows.Count
& & m = .Row
& & ad = .Address(ReferenceStyle:=xlR1C1)
End With
Myc = Cells(m, &iv&).End(xlToLeft).Column
col = Split(Split(ad, &:&)(1), &C&)(1)
& & For i = Myc To col + 1 Step -1
& && &&&If Cells(m, i).MergeCells Then
& && && && &Cells(m, i).Select
& && && && &ad = Selection.Address(ReferenceStyle:=xlR1C1)
& && && && &c = Split(Split(ad, &:&)(0), &C&)(1)
& && && && &n1 = Selection.Columns.Count
& && && && &Selection.Cut Destination:=Cells(m, c + sz).Resize(r, n1)
& && && && &If sz & n1 Then Cells(m, c + sz).Resize(r, n1).Merge
& && && && &i = Val(c)
& && &&&End If
& &
& & Next
& & rng.UnMerge
& & rng.Resize(r, n + sz).Select
& & Selection.Merge
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub复制代码
阅读权限100
在线时间 小时
请见附件。
11:57 上传
点击文件名下载附件
25.85 KB, 下载次数: 19
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}