Excel：如何在点击时展开单元格以显示所有内容

在某些情况下，如果单元格内容比单元格的宽度长，并且下一列单元格中有值，则只会显示部分内容，如下方截图所示。为了避免更改单元格的宽度和高度，您可以点击单元格并在编辑栏中查看全部内容。但如果编辑栏被隐藏或比内容短，该怎么办呢？这里介绍两种方法，可以在点击单元格时将其内容显示在一个文本框中。

通过插入ActiveX控件文本框来展开单元格以显示所有内容

使用Kutools for Excel的更大编辑栏展开单元格以显示所有内容

注意：本教程中提供的方法已在Excel 2021中测试过，不同版本的Excel可能会有一些差异。

1. 激活您要展开单元格的工作表，点击 开发工具 > 插入 > 文本框（ActiveX控件）.

如果功能区中没有“开发工具”选项卡，请先显示它，请查看此教程 如何在Excel功能区中显示/打开开发工具选项卡

2. 然后拖动光标绘制一个文本框，其宽度和高度可以显示单元格中最长的内容。记住这个文本框的名称，这里是TextBox1。

3. 右键单击文本框，然后点击 属性 从上下文菜单中选择。然后在 属性 窗格中，从 能 下拉列表中选择 多行 和 自动换行 部分。然后关闭 属性 窗格。
  >>>  

或者，您可以从属性窗格中的自动调整大小部分的下拉列表中选择“能”，文本框将根据您点击的单元格内容长度自动调整大小。

4. 右键单击状态栏中的工作表名称标签，然后从上下文菜单中点击 查看代码。

5. 在Microsoft Visual Basic for Applications窗口中，复制并粘贴以下代码到空白脚本中。

VBA：展开单元格以显示内容

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
xRgAddress = "A1:B4" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub

请注意，TextBox1是您绘制的文本框的名称，A1:B4是此代码工作的区域，请根据需要进行更改。

6. 返回工作表，点击 开发工具 > 设计模式 退出设计模式。

现在，当您点击单元格时，文本框会出现在其旁边，并显示单元格的全部内容。

如果您已安装Kutools for Excel，只要您通过点击 Kutools > 更大编辑栏 来激活它，它提供的更大编辑栏会在弹出框中显示单元格的所有内容。

提示：

1. 使用更大编辑栏，除了可以查看活动单元格的内容外，还可以在更大编辑栏中编辑单元格内容。

2. 您可以通过拖动编辑栏右下角来调整更大编辑栏的大小。

3. 如果选择了多个单元格，则只有所选区域中第一个单元格的内容会显示在更大编辑栏中。

有关更大编辑栏的更多详细信息，请访问其教程。