返回目录：excel表格制作
在 Excel 表格行右边或列下边输入文字回车后，通常会默认用它们的单元格背景和边框填充当前单元格；所填充的单元格会出现无边框或少边框的情况，这需做相应的调整才能使单元格正常；另外，在给单元格填充背景时，会出现背景颜色把边框遮挡的情况，这也需要调整。此外，有时还要把单元格的行高单位由磅改为厘米，Excel没有提供这方面的功能，需要用 VBA 实现。以下是Excel单元格自动填充无边框、少边框与边距的调整及把单元格行高单位改为厘米的具体操作方法，实例中操作所用版本均为 Excel 2016。
（一）单元格自动填充无边框
1、某些时候，当在某列下面输入文字按回车后，当前单元格会自动用上面的颜色填充，并且导致单元格无边框，如图1所示：
图1
2、再把背景颜色改为白色也是一样，如图2所示：
图2
3、若想要单元格边框重新出现，只需把单元格样式设为“常规”；方法为：选中单元格，选择“开始”选项卡，单击“单元格条件”，在弹出的选项中选择“常规”，如图3所示：
图3
（二）单元格自动填充少边框
在表格最后一列右边输入文字，按回车，则自动用左边的单元格颜色填充，但只填充了单元格的左右边框，下边框没有填充，需补上下边框；按 Ctrl + 1 组合键，打开“设置单元格格式”窗口，选择“边框”选项卡，单击“外边框”上的图标，单击“确定”，则单元格四边都有了边框，操作过程步骤，如图4所示：
图4
（三）单元格背景颜色与边框颜色相近或相同
若单元格背影颜色与边框颜色相近或相同，好像背景颜色把边框遮挡了，此时，只需把单元格背景颜色换一种即可。选中背景颜色与边框颜色相同的单元格，选择“开始”选项卡，单击“填充颜色”图标，在弹出的色板中选择一种与边框不同的颜色，则单元格背景与边框区别开，操作过程步骤，如图5所示：
图5
二、Excel单元格边距调整
在 Excel 中，不能像 Word 一样调整单元格边距，只能通过调整对齐方式来调边距；另外，单元格边距也不会随字号的增大而增加。Excel对齐方式分为水平对齐和垂直对齐，其中水平对齐分为：左对齐、居中和右对齐，垂直对齐分为：顶端对齐、垂直对齐和底端对齐；通过选择这六种对齐方式就可以改变单元格边距，操作演示如图6所示：
图6
三、Excel把单元格行高单位改为厘米（cm）
1、选中要把行高单位改为厘米的单元格，按 Alt + F11 组合键，打开 VBA 编辑窗口，单击“插入”菜单，在弹出的选项中选择“模块”新建一个空白模块窗口，把以下代码：
Sub SetRowHeightInCm()
Dim cm As Single
cm = Application.InputBox("输入行高（厘米)", _
"行高设置", Type:=1)
If cm > 15 Then
MsgBox ("单元格行高最大值不能超过15厘米！")
复制到空白模块窗口，切换到 Excel 窗口，按住 Alt，按一次 W，按一次 M，按一次 V，打开“宏”窗口，选中“宏名”SetRowHeightInCm，单击“执行”，则弹出“行高设置”窗口，输入 2，单击“确定”，则选中单元格行高变为 2 厘米；再按住 Alt，按一次 W，按一次 M，按一次 V，打开“宏”窗口，执行 SetRowHeightInCm，在弹出的“行高设置”窗口，输入16，单击“确定”，则弹出提示“单元格行高最大值不能超过15厘米！”，单击“确定”，再次弹出“行高设置”窗口，输入 1，则单元格行高变为 1 厘米；操作过程步骤，如图7所示：
提示：在 VBA 代码编辑窗口按 F5 可直接执行代码，只是执行看不到效果，但切换到 Excel 窗口后，行高已经变为所设置的值。
2、VBA 代码说明
A、InputBox()语法为：
expression.InputBox(Prompt, [Title], [Default], [Left], [Top], [HelpFile],[HelpContextID], [Type])
Prompt 为提示，[Title] 窗口标题，[Default] 为默认值, [Left] 为窗口距离屏幕左边的距离, [Top] 为窗口距离屏幕上边的距离, [HelpFile] 为帮助文件名称,[HelpContextID] 为帮助内容主题, [Type] 为返回的数据类型（0表示公式；1表示数字；2表示字符串（文本）；4表示逻辑值（True 或 False）；8表示单元格引用，作为一个 Range 对象；16表示错误值；64表示数组）。
3、代码执行过程
首先用 InputBox() 函数弹出一个输入框，然后判断用户输入数值是否大于 15 厘米，如果大于，则弹出一个提示窗口（因为 Excel 中行高不能超过 15 厘米），用户单击确定后，再次弹出一个输入框；接着用 If cm Then 判断用户输入值是否为真（即正常的数值），如果为真，再用 Selection.Cells.Count > 0 判断是否选中了单元格，如果选中了，把用户输入的值设置为选中单元格的行高；如果没有选中，则弹出“请选择单元格！”的提示。