Excel 直书（竖排文字）教程#

在 Excel 中，默认的文字排列方式是 横排（从左到右）。但在某些场景（例如中文竖排排版、表格标题、书籍目录等）中，需要把文字 竖直（从上到下）写在单元格里。本文将帮助你快速实现 “直书”——即 竖排文字，并给出三种常见的实现方法、原因分析以及常见问题解答。

小提示：如果你只是想在单元格里直接键入内容而不进入编辑模式（双击/键盘 F2），请先按 Ctrl + Enter 或 Alt + Enter。但本文重点讨论的是文字竖排。

原因分析#

1. 中文排版习惯
   传统书籍、报纸、标识牌常使用竖排文字，Excel 默认不支持。
2. 数据可视化
   某些数据表（如年级表、课表）在竖排时更易阅读，尤其是列数较多时。
3. 美观与对齐
   竖排文字可与表头、图表标题形成统一风格，提高文档整体美感。

方案一：直接使用单元格文字方向#

最直观、无需额外工具的方法。

小技巧：若想让文字在单元格中完全垂直，而不是横向旋转 90°，需在文字方向中选择 “从上到下” 或 “从下到上”。

方案二：使用文本框（Text Box）插入竖排文字#

适用于需要在单元格之外自由摆放文字，或者想让文字与单元格分离时。

1. 插入文本框
   插入 → 文本框 → 在工作表上绘制一个框。
2. 输入文字
   在文本框里键入需要的文字。
3. 旋转文字
   • 选中文本框，右键 → 设置文本框格式 → 文本框 → 文字方向 → 选择 竖排。
   • 或者直接右键单元格 → 设置文本框格式 → 文字方向 → 从上到下。
4. 调整大小与对齐
   根据需要调整文本框大小，拖拽到合适位置。

优点：文本框不受单元格尺寸限制，文字可以自由缩放。
缺点：文本框不随单元格自动调整，需手动同步。

方案三：使用 VBA 自动设置竖排文字#

当你需要批量处理大量单元格时，VBA 提供快速、可复用的方案。

Sub MakeVerticalText()
    Dim rng As Range
    Dim cell As Range
    
    ' 选择需要竖排的单元格范围
    Set rng = Application.Selection
    
    For Each cell In rng
        With cell
            .Orientation = xlVertical ' 竖排
            .VerticalAlignment = xlCenter
            .HorizontalAlignment = xlCenter
        End With
    Next cell
End Sub

使用方法：

1. 按 Alt + F11 打开 VBA 编辑器。
2. 插入新模块 Insert → Module。
3. 粘贴上述代码。
4. 回到工作表，选中你想要竖排的单元格，然后执行宏 MakeVerticalText（快捷键 Alt + F8 → 选择宏 → 运行）。

提示：你也可以将宏绑定到按钮或快捷键，进一步提高效率。

常见问题解答#

Q1：为什么文字在单元格中显示不完整？#

A：单元格宽度不足。
解决方案：

• 拖动列宽；
• 在“设置单元格格式”→“对齐”中勾选“自动换行”并调整行高；
• 结合方案二的文本框使用。

Q2：如何让竖排文字与其它单元格对齐？#

A：

• 在“设置单元格格式”→“对齐”中同时设置 垂直居中 和 水平居中；
• 对齐后，使用 “合并单元格” 或 “合并后居中” 让竖排文字与相邻单元格对齐。

Q3：竖排文字会影响公式计算吗？#

A：不会。
文字方向只影响显示，单元格内容（数值或公式）仍按原始方式计算。
但请注意：如果你在单元格里使用 =A1+B1 之类的公式，竖排后仍会显示为 =A1+B1，但结果会在单元格底部显示。

Q4：如何将竖排文字转换回横排？#

A：

• 选中单元格 → “文字方向” → 选择 横排（默认 0°）。
• 或者在 VBA 中改为 cell.Orientation = xlHorizontal。

Q5：竖排文字在打印时会出现问题吗？#

A：大多数打印机支持竖排文字，但有时可能导致排版错位。

• 在打印预览中检查；
• 若有问题，可将竖排文本框转为图片或使用方案一的“文字方向”并调整行高。

小结#

• 方案一（单元格文字方向）：最简单、无须额外工具。
• 方案二（文本框）：适用于需要自由摆放或更大尺寸的文字。
• 方案三（VBA）：批量处理、自动化最优选择。

根据你的具体需求，挑选合适的方法即可让 Excel 支持 直书（竖排文字），让表格更符合中文排版习惯或视觉效果。祝你使用愉快！