Excel-防止单元格文本溢出到下一个（空）单元格

如果Excel单元格中的文本太长而无法在该单元格的可见区域中显示，并且右侧的下一个单元格为空，则Excel会在该下一个单元格（以及下一个，接下来，根据需要）。我想改变这个；我想避免此文本溢出。

我知道我可以通过启用“自动换行”并调整行高来避免这种情况。但这不是我想要的。

我想更改Excel的默认行为，以便它仅在该单元格的可见区域中显示每个单元格的值。没有溢出，没有自动换行。

这可能吗？（顺便说一下，我正在使用Excel2010。）

并非所有人都可以选择此选项，但是如果您将文档导入Google表格，则默认情况下支持此功能。在顶部菜单栏上，支持三种类型的自动换行。溢出，包装和修剪。您正在寻找剪辑。

根据要求，这对于某些人来说可能是一个可行的选择。

是的，您可以更改此行为，但您可能不希望由此引起的副作用。

无论相邻单元格是否包含数据，将单元格内容限制在单元格边界的关键是文本对齐方式Fill。选择您不想溢出的单元格，然后右键单击它们>设置单元格格式... > 对齐选项卡 > 水平对齐 > 填充

此方法的问题在于，当它足够短以适合单元格多次时，它将通过重复其内容来实际填充单元格。请参阅以下屏幕截图，这意味着什么。（请注意，B7是充满与“短文本”。）

看来您会被Benedikt帖子中的解决方法所困扰

请注意，您还可以'使用Benedikt的第一种非常聪明的方法，在相邻的单元格中打上勾号（）。这样，您不必隐藏任何内容，可以防止单元格溢出，并且如果您将单元格复制为文本（假设在记事本中），您仍然会得到空文本，而不是空格或刻度。

这是我的方法。

1. 选项1：用“ N / A”填充所有空白单元格，然后使用“条件格式设置”使文本不可见。
2. 或选项2：使用0填充所有空白单元格，然后使用Excel设置隐藏零值。

填充所有空单元格：（在Mac上测试）

• 编辑→转到...→特殊...（在Windows上：主页→编辑→查找和选择→转到特殊...）
• 选择“空白”，然后单击“确定”。
• 现在选择了所有空白单元格。不要点击任何东西。
• 输入“ N / A”或0，然后按Ctrl+ Enter^†。这会将值插入所有选定的单元格。

隐藏“ N / A”的条件格式

• 格式→条件格式。
• 创建新规则。
• 样式：经典，然后使用公式来确定要格式化的单元格。
• 式： =A1="N/A"
• 格式使用：自定义格式：字体颜色为白色，无填充。

隐藏零

• Excel→设置→视图。
• 取消勾选“显示零值”。

_________________
^†   是Ctrl+ Enter， 不是 Ctrl+ Shift+Enter。

尝试在不希望看到溢出的相邻单元格中输入公式=“”（两个双引号）。结果为“ null”，不显示任何内容，不会影响数学。

对单元格使用水平文本对齐方式“填充”。您可以在其他应该解决您问题的Alignment选项中找到它

扩展'用于阻止Excel向右溢出文本到相邻空白单元格的解决方案时，有时您不想通过在其中插入该值来修改/破坏数据列。

无需'在实际数据值中插入，而是可以为此目的创建一个新的专用垂直列，并完全填充'所有字符。

1.屏障栏

2.在要保护的列的左侧插入“屏障”列。

3.通过将屏障列的列宽度设置为较小的值来折叠它们

将列宽度设置为.1，例如，或者将障碍列保持更宽以充当页边空白或列间空白。

请注意，您必须将宽度设置为大于零；将垂直势垒列宽度设置为零将还原为有害的单元溢出行为。

4.瞧！

在Excel中，将列调整为所需的宽度，然后对该列启用字变形（这将导致所有行高增加），然后最终选择所有行并将行高调整为所需的高度。瞧！现在，在单元格中不会溢出到相邻单元格中的文本。

（注意：我找到了它，并将其作为注释发布在所选答案中，但也将其作为答案发布，因此对于其他人来说更容易找到。）

出于同样的思路，Google表格可能并不适合所有人，该宏可能并不适合所有人，但可能适合某人。

它会在选定范围内运行，并用截断的文本替换溢出的单元格。

标志确定是否：

• 有问题的文本将被复制到新工作表中的相同相对地址，或者被丢弃。

• 截断的文本通过工作表公式进行了硬编码或链接 =LEFT()

• 截断的文本将超链接到新工作表中的完整字符串。

默认为保留数据并使用两个链接。

Option Explicit

Sub LinkTruncatedCells()
    Dim rng As Range: Set rng = Selection
    Dim preserveValues As Boolean: preserveValues = True
    Dim linkAsFormula As Boolean: linkAsFormula = True
    Dim linkAsHyperlink As Boolean: linkAsHyperlink = True
    Dim w As Single
    Dim c As Range
    Dim r As Range
    Dim t As Long
    Dim l As Long
    Dim s As String
    Dim ws As Worksheet
    Dim ns As Worksheet
    Application.ScreenUpdating = False
    Set ws = rng.Parent
    For Each c In rng.Columns
        w = c.ColumnWidth
        t = 0
        l = 0
        For Each r In c.Rows
            If Len(r) > l Then
                s = r
                If CBool(l) Then r = Left(s, l)
                Do
                    r.Columns.AutoFit
                    If r.ColumnWidth > w And Len(s) > t Then
                        t = t + 1
                        r = Left(s, Len(s) - t)
                        l = Len(r)
                    End If
                Loop Until t = Len(s) Or r.ColumnWidth <= w
                r.ColumnWidth = w
                If r <> s And preserveValues Then
                    If ns Is Nothing Then
                        Set ns = ws.Parent.Worksheets.Add(after:=ws)
                    End If
                    ns.Range(r.Address) = s
                    If linkAsFormula Then r.Formula = "=LEFT(" & ns.Name & "!" & r.Address & "," & l & ")"
                    If linkAsHyperlink Then ws.Hyperlinks.Add Anchor:=r, Address:="", SubAddress:= _
                            ns.Range(r.Address).Address(external:=True)
                End If
            End If
        Next r
    Next c
    ws.Activate
    Application.ScreenUpdating = True
End Sub

最后说明：我已将其用于个人项目，并发现它可靠，但是在尝试任何不熟悉的宏之前，请保存并备份您的工作。