Excel单元格，内容过多，怎样自动换行？
Excel单元格里面的内容过多，无法完全显示，怎么用VBA实现自动换行操作？注：表格里面有成千上万条记录
[解决办法]
使用vbNewLine 可以把字符串换行
string1 + vbNewLine +string2
[解决办法]
WrapText 属性
如果使 Microsoft Excel 中对象的文本自动换行，则该值为 True。Boolean 类型，可读写。
expression.WrapText
expression 必需。该表达式返回上面的对象之一。
应用于 CellFormat 和 Range 对象的 WrapText 属性。
如果使 Microsoft Excel 中对象的文本自动换行，则该值为 True。如果指定区域中包含一些能进行文本换行的单元格和其他不能进行文本换行的单元格，则返回 Null。Variant 类型。可读写。
expression.WrapText
expression 必需。该表达式返回上面的对象之一。
说明
Microsoft Excel 会在必要的时候改变区域的行高以容纳其中的文字。
示例
应用于 Range 对象。
本示例对 sheet1 中的单元格 B2 进行格式设置，使其中的文字自动换行。
Worksheets("Sheet1").Range("B2").Value = _
"This text should wrap in a cell."
Worksheets("Sheet1").Range("B2").WrapText = True
