利用文字旋转让宽度较窄的单元格容纳更多文字

当单元格在宽度较窄、高度足够的情况下，我们可以通过多种方式旋转文字方向来显示全部文字：

1、点击开始菜单下的文字竖排图标，可将文字由横排变成竖排，利用高度显示全部文字；

2、向上旋转文字，文字被逆时针旋转了90度，文字顺序由下向上排列；

3、向下旋转文字，文字被顺时针旋转了90度，文字顺序由上向下排列；

4、逆时针角度，将文字45度倾斜，注意，这种格式除了文字，单元格如果有边框或底色，也会随之改变，我们可以利用这个工具，对表格进行美化；

5、顺时针角度，此工具与逆时针角度一样，只是方向不同。

关注我们，接收每日更新，查看更多Excel小技巧：

Excel表格实用技巧01：将阿拉伯数字快速批量转换成中文小写或大写

Excel表格实用技巧02：单元格合并及取消合并的三种方式

Excel表格实用技巧03、粘贴如何去除格式？粘贴只保留内容的方法

Excel表格实用技巧04、巧用格式刷快速复制表格样式

Excel表格实用技巧05、快速给单元格添加边框，原来边框可以画出来

分享 Excel 批量图片导入功能，使单元格高度和宽度适应图片。

Excel 批量图片导入功能，很多插件有这个功能，大部分插件的导入功能都是使图片适应单元格的大小，

但是这点可能跟很多人的实际需求不一样，因此我单独写了一个图片导入功能，使单元格适应图片的大小。

代码缺点，需要手工替换代码中的 .png 图片格式为你 自己需要导入的 图片文件格式.

附上代码：

Sub 导入图片()

Dim wenjian_geshu

Dim lujin

Dim tupian_name

Dim zonghe_bi

Dim hanggao

Dim tishi_kuozhangming

tishi_kuozhangming = MsgBox(vbCrLf & "请确认是否需要 修改 程序代码的 文件扩展名 ？ " & vbCrLf & vbCrLf _

& "点击 “确定” 退出程序，并修改程序扩展名；" & vbCrLf & vbCrLf _

& "点击 “取消” 继续导入图片。" & vbCrLf & vbCrLf _

, vbOKCancel)

If tishi_kuozhangming = vbOK Then Exit Sub

wenjian_geshu = 0

lujin = InputBox("请输入图片文件夹路径，可以贴入路径")

If lujin = "" Then Exit Sub

tupian_name = Dir(lujin & "*.png", vbNormal)

'.png 格式可以更改为其他格式，用于显示其他格式的图片，

'.png 可以替换为 .* 任意文件格式，但是为了避免 ActiveSheet.Shapes.AddPicture(lujin & "" & ActiveSheet.Cells(wenjian_geshu, 1).Text & ".png", _ 程序出错，暂时不替换

'但是可以新建不同的工作簿，再导入不同格式的图片后，将表格合并为一张表格。

'不可以在同一工作簿的不同表格中重复执行 代码，即使将 新建分页表 的 名称改为 Sheet1 也不可以，因为本人水平有限不会修改测试了。希望能有大神优化下代码。

Do

If tupian_name = "" Then '输出图片名称 到 第 1 列

Exit Do

End If

wenjian_geshu = wenjian_geshu + 1

ActiveSheet.Cells(wenjian_geshu, 1).Select '方便查看执行到哪一行了

ActiveSheet.Cells(wenjian_geshu, 1) = tupian_name '输出图片名称

Rows(wenjian_geshu).RowHeight = 409 '设置行高为 Excel 的最大值 409

Columns(5).ColumnWidth = 255 '设置列宽为 Excel 的最大值 255

Dim tupian

Set tupian = ActiveSheet.Pictures.Insert(lujin & "" & ActiveSheet.Cells(wenjian_geshu, 1).Text)

With tupian

.ShapeRange.LockAspectRatio = msoTrue '锁定纵横比

.Placement = xlMoveAndSize '图片大小和位置随单元格的大小和位置而改变。

.Top = ActiveSheet.Cells(wenjian_geshu, 5).Top + 4

.Left = ActiveSheet.Cells(wenjian_geshu, 5).Left + 4 '两行代码设置图片左上角位置，对其单元格，距离单元格边距为 4

zonghe_bi = .Width / .Height '取得图片的 长宽比，以便后续图片的实际高度超过行高的时候，重新设置图片宽度，以保持图片缩小后的长宽比例

Cells(wenjian_geshu, 2) = Int(.Height) + 1

hanggao = Cells(wenjian_geshu, 2) + 3

If hanggao > 409 Then '不超过 409 则就使用上一行代码图片的默认长度

.Height = 403 '超过 EXCEL 最大行高 409，则设置图片 高度为 403，并根据图片纵横比 重新设置图片的长度

.Width = zonghe_bi * .Height ' 根据图片综合比 重新设置图片的长度

Else '不超过 409 则就使用上一行代码图片的默认长度

Rows(wenjian_geshu).RowHeight = hanggao + 6

End If

Cells(wenjian_geshu, 6) = .Width '图片后面的第一列即表格的第六列存储

If wenjian_geshu > 1 Then

If Cells(wenjian_geshu, 6) < Cells(wenjian_geshu - 1, 6) Then Cells(wenjian_geshu, 6) = Cells(wenjian_geshu - 1, 6)

End If

'取得列宽最大值，以便循环结束后设置最大列宽

Cells(wenjian_geshu, 1) = Left(Cells(wenjian_geshu, 1), Len(Cells(wenjian_geshu, 1)) - 4) '重新输出图片名称，去掉扩展名。

Cells(wenjian_geshu, 7) = .Height '在执行 Delete 语句 删除 链接图片之前取得修改后的图片 宽 和 高的数据

Cells(wenjian_geshu, 8) = .Width

.Delete 'Pictures.Insert只能插入图片链接，不能将图片与表格一起保存，

'故 删除图片链接，改用 Shapes.AddPicture 导入图片，使图片与表格同时保存，以上全部代码用来设置行高和列宽，及 设置 取得 图片的 宽 和 高 ，使其适应单元格的 高 和 宽

'.png 格式可以更改为其他格式，用于显示其他格式的图片，

ActiveSheet.Shapes.AddPicture(lujin & "" & ActiveSheet.Cells(wenjian_geshu, 1).Text & ".png", _

False, _

True, _

ActiveSheet.Cells(wenjian_geshu, 5).Left + 4, _

ActiveSheet.Cells(wenjian_geshu, 5).Top + 4, _

Cells(wenjian_geshu, 8), _

Cells(wenjian_geshu, 7)).Select '在第五列导入图片

Selection.ShapeRange.LockAspectRatio = msoTrue '锁定纵横比

Selection.Placement = xlMoveAndSize '图片大小和位置随单元格的大小和位置而改变。

End With

tupian_name = Dir '再次调用 dir 执行下面的图片的循环操作，不可以有参数，

'此句为整个代码断 最重要的语句，虽然我看不懂，但是直接用吧，有用就好了，知其然而不知其所以然好了。

Loop

Columns("E:E").Select

Selection.ColumnWidth = Int(Cells(wenjian_geshu, 6) / 5.9) '设置列宽为最大图片的列宽，5.9 为图片宽度 与 Excel 表格的宽度比

Columns("A:A").Select

Columns("A:A").EntireColumn.AutoFit

Columns(6).Select

Selection.Delete Shift:=xlToLeft '设置完第 5 列的列宽后，删除存储最大列宽值的 第 6 列

Columns("F:XFD").Select

Selection.ColumnWidth = 8.11

Columns("B:D").Select

Selection.Delete Shift:=xlToLeft

Columns("C:D").Select

Selection.Delete Shift:=xlToLeft

Range("A1").Select

'可以通过删除和插入列 的代码，调整图片名称列 和 图片实际位置列 最终所在的位置列

ActiveSheet.UsedRange.Select '添加边框

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

MsgBox ("图片导入完成！")

Range("A1").Select

End Sub

程序执行完成以后，A列放置的数据为自己命名的图片名称，B列放置的为图片。

Excel 批量图片导入功能，使单元格高度和宽度适应图片

Excel中可以通过分别设置单元格列宽和行高为同一个数值的方式将格子调成一样大小的。

软件版本：Office2007

方法如下：

1.调整列宽大小：先选择A列，然后同时按下Ctrl+Shift+向右箭头，将全部列都选中，点击右键，选择“列宽”：

2.输入列宽数值（系统默认为8.38），点击确定：

3.这样所有单元格的宽度就变成一致了。

调整行的方法基本一致：先选择第一行，按下Ctrl+Shift+向下箭头键，点击右键，选择“行高”，输入行高数值即可。

（本文内容由百度知道网友鱼木混猪贡献）

选中需要打印的区域，选择：页面布局--打印区域--设置打印区域；

选择：页面布局--打开页面设置；

选择：页面，调整缩放比例，或者“调整为1页宽1页高”；

选择：页边距，调整四个方向的页边距，或者选择：居中方式，勾选“水平居中”、“垂直居中”；

以上操作，需要适当调整行高、列宽，并点击打印预览，查看打印效果，确保行高列宽选择适当，布局称体。

（本文内容由百度知道网友505548375贡献）

一、Word表格整体大小的调整：

通过将鼠标移动到表格右下角，然后按住右健不放拖动即可调整表格整体的大小。此方法调整的结果使表格中所有单元格的高度和宽度均进行等比例的缩放。

二、某一行行高的调整：

将光标移动到要调整其高度的行的下边框，当鼠标指针变为双箭头进，上下拖动即可调整行高。

三、某一列列宽的调整：

对于列宽的调整，将光标移动到要调整其列宽的列的右边框，当鼠标指针变为左右双箭头时，左右拖动即可调整列宽。

四、精确的调整表格大小：

1、选中表格；

2、在表格工具布局选项卡上的高度、宽度输入框中输入所需要的数值即可，如图所示。

（本文内容由百度知道网友nicellccyy64贡献）

好比打包东西时，我们需要给物品一个大小最合适的包装，在WPSExcel表格中填充数据后，也需要设置最合适的单元格大小，使之看起来更美观。有三种方法可以调整单元格大小，前两种方法很常见，最后一种用得人不多，但在填写简历和调查表上也很实用。

方法1：列号行号上拖动、双击。

选中需要调整大小的列，将鼠标移动到两列交界线处，变成双向箭头后，按住鼠标左键拖动，可以将这些列的宽度调整成一样的。变成双向箭头后双击一下，可以调整最适合内容的列宽。行的处理方法也相同哦。

方法2：最适合的列宽和行高。

点击“开始”菜单下的“行高”或“列宽”，直接输入数字，可以调整单元格大小。不过一般很少这样操作，因为你可能不知道应该设置成多少。

所以，建议选中表格，点击“最适合的行高”或“最适合的列宽”。这样可以将单元格的大小调整成适应内容长度。但需要注意的是，如果你的单元格内容很长，设置“最合适的列宽”将会是整个单元格变得很长，如果你希望这样，就要使用自动换行。

方法3：缩小字体填充。

选中单元格，在单元格的格式设置窗口中，点击“对齐”，选中“缩小字体填充”。不少朋友在Excel中填写表格后，表格大小发生了变化，以至于打印时超出了界限，这个问题可以通过这个办法完美解决。

直接选择其他字号也可以调整单元格的大小，这和“缩小字体填充”有什么区别呢？如图，设置缩小字体填充之后，单元格大小就是固定的，其中的文字大小会根据文字长度自动调整。下次，你填写公司发的调查表时，就不用担心文字太多导致表格变形啦。

有朋友说了， 这哪里是调整单元格大小的操作呢？我觉得这是反向思维，调整单元格大小目的也是为了让其中的文字和单元格相得益彰，“缩小字体填充”操作可以达到这一目的，当然也算调整表格大小的操作啦，你说呢？

谢谢阅读，欢迎点赞、评论、关注和点击头像。

如果Excel单元格中的文字较多，单元格的大小又不够完全显示其中的文字，默认情况下就会出现只显示出单元格中部分文字的情况。

这种情况虽然可以通过调整单元格的宽度来解决，但如果对单元格的宽度有要求，不想调整其宽度，就只能通过调整字体大小来解决，这时如果是手动输入字号进行调整，可能需要进行多次尝试才能找到最适合单元格宽度的字号。其实Excel中有按单元格大小自动调整文字大小的功能，下面介绍以Excel2007为例如何设置：

●先在要自动调整文字大小的单元格上点击鼠标右键。

●弹出右键菜单后，点击菜单中的“设置单元格格式”选项。

●点击后会打开设置单元格格式对话框，点击打开其中的“对齐”选项卡。

●鼠标点击勾选对齐选项卡中的“缩小字体填充”选项。

●设置好后点击“确定”按钮。

●这时所点击单元格中的文字就会根据单元格的大小自动调整大小了。

●而且之后再调整单元格的宽度时，该单元格中的文字大小仍会自动进行调整。

注意事项：

●“缩小字体填充”和“自动换行”选项只能二选一，如果“缩小字体填充”选项上方的“自动换行”选项被勾选，则“缩小字体填充”选项会呈灰色状态，不能被勾选。

●如果有多个单元格都要设置“缩小字体填充”，可以先用鼠标框选或者用鼠标配合键盘的Shift键选择要设置的单元格区域，再在选择区域上点击鼠标右键后按上述方法进行设置。

在WPS中使用表格时插入的表格并不一定符合我们的要求，经常需要对表格进行调整，尤其是表格的大小，调整好表格的大小可以使文档更加美观，页面更加清晰。

（1）调整行高与列宽

首先打开插入的表格文档，我们可以通过鼠标的拖动来调整大小，包括表格的高度以及宽度。将鼠标放在表格的行或列上，鼠标变成双箭头形状后按住鼠标拖动即可改变表格的行高或者列宽，如下图所示。

直接拖动表格调整的大小不是很精确，如果对表格尺寸要求不是很严格的话，这样简单的拖动方法是很便捷的。

当然如果对表格的行高与列宽要求很严格的话，我们可以精确调整。方法也很简单，首先选中需要设置的行或列，右击鼠标，在弹出的快捷菜单中选择“表格属性”命令，会弹出“表格属性”对话框，在“行”或“列”选项卡中输入行高或列宽的数值，如下图所示。

提示：如果是想要设置整个表格的行高与宽度可以直接将鼠标移至表格的左上方，单击左上角的图形，可以直接选中整个表格。

（2）调整整个表格大小

在“表格属性”对话框中选择“表格”选项卡，在“指定宽度”中输入数值，可以直接设置整个表格的宽度，例如输入“10”，表格的整体宽度就会变为10，每列的列宽将自动调整，如下图所示。

提示：当我们调整某一行或某一列时，其相邻的行或列会有变化，使表格显示很不美观，例如“彩电”一列向左调整后右侧的列变得很宽，怎样使调整富余出来的大小能够均匀地分配到右侧的每列中呢，这里有一个小技巧，大家可以按住Ctrl+Shift键，然后再向左拖动列，这样在不改变整个表格宽度的情况下，右侧所有的列都会自动调整列宽。

CSS中宽度和高度分别可以通过width和height实现，那么对于单元格的宽度和高度，则可以通过如下样式来设置

td{ width:100px; height:50px;} /*设置单元格宽度100px，高度50px*/

示例如下：

1. 给出HTML元素

   
   \x09
   \x09
   1
   2
   345
   6789
   10
   11

2. 设置单元格高度和宽度样式

   table{border-collapse:collapse;}
   td{
   \x09border: 1px solid green; /*边框*/
   \x09width:100px;             /*单元格宽度*/
   \x09height:50px;             /*单元格高度*/
   \x09text-align:center;       /*单元格文字居中对齐*/
   }

3. 效果如下

（本文内容由百度知道网友learneroner贡献）

在使用Excel时，有时需要将单元格宽度和高度的单位设置成厘米，例如在用Excel排版制作档案盒、文件夹等的标签时。但在调整Excel单元格宽度和高度时，默认是以磅和像素为单位的。这里以Excel2007为例介绍一下如何将Excel单元格高度和宽度的单位设置成厘米，供大家参考。

●先点击Excel2007的Office按钮菜单中的“Excel选项”按钮，打开Excel选项对话框。（注：其他版本的Excel打开Excel选项对话框的方式可能不同，例如Excel2010应点击“文件”菜单中的“选项”。）

●点击打开Excel选项对话框中的“高级”选项卡。

●打开“高级”选项卡后，Excel2007中需将右侧的滑块拖至下图所示的位置。

●此时在高级选项卡中的“显示”处可以看见“标尺单位”下拉框，点击该下拉框。

●点击后会弹出下拉菜单，在下拉菜单中点击“厘米”选项。

●设置好后点击下方的“确定”按钮确认。（注：到这里可能还不能使用厘米单位，还应继续看下一步。）

●虽然设置好了以厘米为单位，但如果Excel当前的视图方式仍为默认的普通视图，则列宽和行高仍然会是以磅和像素为单位。要想使用设置好的厘米单位，需要点击Excel下方图示的“页面布局”按钮，将视图方式转换为“页面布局”视图。

●在“页面布局”视图中调整列宽或者行高，就会发现显示的单位是厘米了。

●如果觉得拖动鼠标更改行高和列宽不容易进行精确的设置，可以手动输入行高和列宽的具体数值，方法是：在行号或者列标上点击鼠标右键，再用鼠标左键点击弹出菜单中的“列宽”或者“行高”。

●点击后就会弹出“列宽”或者“行高”的设置对话框，其中的单位就是之前设置的厘米（cm），在“cm”前输入想要设置的数值，再点击“确定”按钮即可。