&　　本教程为Excel入门教程，详细介绍一般excel表格的制作过程。制作表格前需要你在心里先构思下表格的大致布局和样式，以便实际操作的顺利完成。
　　1.新建一个excel文件。
　　2.在草纸上画好草稿，将需要数据的表格样式及列数和行数确定。比如我需要建立一个五行六列的表格，最上面是标题行。
　　3.在新建excel中，用鼠标选中需要的表格行数列数，然后点右键，&设置单元格格式&&&&边框&，在&预置&中根据需要选择&外边框&、&内部&边框。
　　4.根据需要加边框。如果是标题处，可以取消外边框，合并横向或者纵向的表格。方法也是先选中需要设置的表格(第一行)，然后右键点击&设置单元格格式&&&&对齐&，然后选中&合并单元格&。
　　5.根据标题长度、宽度调整一下标题行。如我的标题是&XXXXXX公司表&题目比较长，将标题行拉宽，设置&自动换行&方法如上图，然后根据需要左右缩进，调整居中，然后设置字体大小等。
　　看调整前的图表：
　　根据字体调整表，如图：
　　6.其他空格内容填好后，同样根据内容调整一下就可以。
　　7.如果需要打印，就要设置页面了。我们这个表一看就是横向的，所以选择&文件&--&页面设置&，选择&横向&，然后打印预览一下。如果要求居中打印但是表格处于页面左上角，就调整一下页边距。调整好位置后打印即可。
　　8.如果需要将此表插入到word文档以便其他使用，也很简单。先将刚做好的Excel表格保存为一个文件名《设备表》到桌面上。将此页的页面 设置成横
向，否则表格会显示不全的。在Word文档中需要插入的地方，点击一下鼠标，然后选择上面&插入&---&对象&&&&由文件创建&，然后找到刚刚保存的
《设备表》，插入，确定，然后就插入到Word中了。效果图如下：
　　在使用Excel表格对数据求和时，只能对单元格内常规格式的数据进行计算，而不能对单元格中的文本格式的数据进行计算，特点就是在单元格的左上角有一个绿色的小三角，(如图：)(上边1234是常规格式数据、6789就是文本格式数据、下边的1234是数据求和时得到的结果。)
　　怎样才能讲这些文本格式的数据批量转换成常规的数字格式以便进行计算呢?
　　问题的解决：
　　把文本格式的转换成常规格式不就可以了吗，当然可以了，但是在把所有填写文本格式的数据单元格选中，然后右击选项中&设置单元格格式&设成常规(如下图)后，左上角并仍有绿色小三角，怎么办，不要急，按下面的步骤去做就行。
　　经过试验发现经过刚才的设置后还必须在每个单元格里双击一下，再回车就可以，但是这样做比较麻烦，只适合修改少量孤立单元格格式。如果文本格式的单元格较多批量的修改一个个双击就不合适了。那怎么办呢?接着往下看。
　　先选中所有要修改的文本数字单元格&选择Excel 菜单中&数据&菜单&&分列&(如下图)
　　接着出现下面的对话框：
　　一直选下一步&下一步&列数据格式选&常规&即可。(如下图)
　　以上方法，同样如果需要把数字格式转化成文本格式数字，操作中最后一步列数据格式选&文本&就可以了。
　　另外，我们在使用Excel时是否发现单击文本格式的单元格的时候，单元格的左上方都有一个感叹号，(如下图)
　　它也可以帮助我们将文本格式的数字转换为常规格式的数字啊?怎么应用它呢?接着看吧!
　　1.鼠标指向那个小框时，后出现一个向下的小三角，它是一个下拉菜单。
　　2.单击小三角，在下拉菜单里选择&转换了数字&就可以啦。
　　是不是很方便上面的方法更方便啊，注意也可以全部选中文本数字单元格后批量转化。快去试一试吧!
评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）查看: 5233|回复: 8
如何让A列有合并单元格的工作簿在打印的时候不将一个合并单元格打印到两页里
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴
署名作者: KevinChengCW
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 以前版本&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
Q: 我有一个工作表，在A列的分类项里采用了合并单元格的方式，打印的时候经常会遇到分页符在合并单元格中，造成一个单元格打印到了两页里，有没有什么办法可以避免这一问题出现呢？
A: 通过VBA的workbook_beforeprint事件我们完全可以实现在打印的时候将位于合并单元格中间的分页符调整到合并单元格上方，从而实现只打印完整的合并单元格的功能，代码如下（仅对A列合并单元格有效）：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Rng As Range
Dim R, N, I As Integer
ActiveWindow.View = xlPageBreakPreview&&'打开分页预览，这样会出现分页符
If ActiveSheet.HPageBreaks.Count & 0 Then&&'当大于一页时执行代码
& & For N = 1 To ActiveSheet.HPageBreaks.Count& &'循环列举各个水平分页符位置
& && &&&R = ActiveSheet.HPageBreaks(N).Location.Row& &'取得当前列举到的水平分布所在的行的值
& && &&&I = R&&'储存行值的备份
& && &&&Cells(R, 1).Select&&'选中当前行的第一列的单元格
& && &&&If Selection.MergeCells = True And I & Selection.Row Then I = Selection.Row&&'如果被选中的单元格是合并单元格，并且分页符所在的行值不是最顶部单元格的行值，则将最顶部的行值赋值给变量I
& && &&&If I && R Then ActiveSheet.HPageBreaks.Add before:=Cells(I, 1)&&'如果I的值与当前分页符所在的行值不等，则添加分页符到合并单元格顶部的行的位置（注：这样自动分页符会删除，并重新生成新的整页的分页符）
& & Next N&&'下一个水平分页符
End If
ActiveWindow.View = xlNormalView&&'处理完成，恢复到普通视图
End Sub复制代码
如果是其他列的单元格请调整cells(R,1).select里的1的值为对应的列值
学office，哪能不关注全网最大的Office类微博（新浪）
初级三, 积分 414, 距离下一级还需 86 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
收藏了,以后能用的到,谢谢!
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
这个功能实际工作中用得到
学office，哪能不关注全网最大的Office类微博（新浪）
新鲜人, 积分 2, 距离下一级还需 8 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
实用，顶了，找了好几天，先谢谢了
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
本帖最后由 kevinchengcw 于
23:01 编辑
再来个功能升级版,可以将合并单元格拆分到两页去.Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Rng As Range
Dim R, N, I, A As Integer
ActiveWindow.View = xlPageBreakPreview
If ActiveSheet.HPageBreaks.Count & 0 Then
& & For N = 1 To ActiveSheet.HPageBreaks.Count
& && &&&R = ActiveSheet.HPageBreaks(N).Location.Row
& && &&&I = R
& && &&&Cells(R, 1).Select
& && &&&If Selection.MergeCells = True And I & Selection.Row Then
& && && && &I = Selection.Row
& && && && &If I && R Then
& && && && && & A = Selection.Row + Selection.Rows.Count - 1
& && && && && & Selection.UnMerge
& && && && && & Range(Cells(I, 1), Cells(R - 1, 1)).Merge
& && && && && & Range(Cells(R, 1), Cells(A, 1)).Merge
& && && && && & 'Range(Cells(I, 1), Cells(A, 1)).Borders.LineStyle = 1& &'这句如果有边框就取消前面的注释单引号
& && && && && & Cells(R, 1) = Cells(I, 1).Value
& && && && &End If
& && &&&End If
& & Next N
End If
ActiveWindow.View = xlNormalView
End Sub复制代码
测试了一下，在Excel2003效果不错，但在Excel2010下没效果。&
我要这个。
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
用的到。如果可以根据页面的内容多寡来判断是要调整分页符位置还是把合并单元格拆分就更完美了，那我就全不用手工了
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 202, 距离下一级还需 48 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
测试了一下，在Excel2003下效果不错，但在Excel2010没有效果，好像触发不了事件？
测试环境：xp繁体系统+OFFICE2010繁体家庭版
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 215, 距离下一级还需 35 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by}