本示例对 sheet1 中的单元格 A1 进行格式设置,使其中的文字自动换行。
Worksheets("Sheet1").Range("A1").WrapText = True