如何让Excel中的单元格自动调整高度以适应被包裹的文本内容？

来自 http://support.microsoft.com/kb/149663

要调整行的高度以适应单元格中的所有文本，请按照以下步骤进行操作：

选择该行。

在 Microsoft Office Excel 2003 和早期版本的 Excel 中，在 “格式 "菜单中指向 "行"，然后单击 "自动适配"。

在Microsoft Office Excel 2007中，单击 "主页 "选项卡，单击 "单元格 "组中的 "格式"，然后单击 "自动匹配行高度"。

尝试

选择列 -> 右键单击列 -> 格式化单元格 ->对齐标签 -> 包裹文本

请注意，autofit对合并后的单元格不起作用。

请看微软的回答： 您不能对Excel中包含合并单元格的行或列使用AutoFit功能

如果它没有自动完成，那么将光标放在行号之间的小行上（例如：1和2之间），然后双击，这将调整该行的大小（小行的正上方，在示例中：1），使所有的东西都能看到（从垂直方向）。

你知道宏吗？把下面的代码放在

Application.ActiveCell.WrapText = True

在你的 Worksheet_SelectionChange 子例程中。

我唯一能让它像预期的那样工作的方法是用CTRL-A突出显示整个工作表，取消点击工具栏中的 “Wrap Text "按钮，然后重新选择它。其他设置没有变化，但每一行都是 "适当 "的高度，适合它的内容。

一个VBA的解决方案是：

Call Application.ActiveCell.AutoFit

我创建了下面的VB代码来调整标题行的大小，当一个单元格在一个范围内（B2:B1500）时，因为日期值超过12/28/2014会导致标题显示一个警告，在时间表中，这些日期将进入2015年的第1周：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an Action when they are changed.
    Set KeyCells = Range("B2:B1500")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Change the height of the header row when one of the defined cdlls is changed
        Rows("1:1").EntireRow.AutoFit

    End If
End Sub