如何让单元格里的文字自动换行-Excel VBA实现单元格或区域里的文字自动折行

Excel VBA教程：WrapText属性

如果让单元格或区域里的文字自动折行呢，这个手工操作，可以在右键单元格属性中设置

那如果使用VBA，如何实现呢？

Excel VBA教程：WrapText示例

本示例应用于 Range对象。对 sheet1 中的单元格 B2 进行格式设置，使其中的文字自动换行。

Worksheets("Sheet1").Range("B2").Value = _
    "This text should wrap in a cell."
Worksheets("Sheet1").Range("B2").WrapText = True

WrapText属性的其它更多说明

应用于 Style对象的 WrapText属性。

  如果使 Microsoft Excel 中对象的文本自动换行，则该值为 True。Boolean 类型，可读写。

  expression.WrapText

  expression   是必需的。该表达式返回上面的对象之一。

应用于 CellFormat 和 Range对象的 WrapText属性。

如果使 Microsoft Excel 中对象的文本自动换行，则该值为 True。如果指定区域中包含一些能进行文本换行的单元格和其他不能进行文本换行的单元格，则返回 Null。Variant 类型。可读写。

expression.WrapText

expression   必需。该表达式返回上面的对象之一。

说明

Microsoft Excel 会在必要的时候改变区域的行高以容纳其中的文字。