[Excel]如何让带回车换行字符的单元格自适应[转载]

某些时候我们希望单元格中的字符能够换行显示，比如下面的情况

这个在C#中的实现很简单，在拼接字符串时加上”/n”然后执行AutoFit()再将Rang.WrapText 设为True就OK了，

同样将这部分代码搬到VB这边就出现问题了，变成了以下这个样子

而且Rang.WrapText不作任何设置的话也将默认变为True。后来发现在VB中只要设置单元格的字符串中包含换行符单元格WrapText就会默认为True，

在这种情况下执行AutoFit就没有想要的效果了，解决方案很简单

objSheet.Range("A1").Value = strTest1 & vbCrLf & strTest2

objSheet.UsedRange.WrapText = False

    objSheet.Range("A1").Rows.AutoFit

    objSheet.Range("A1").Columns.AutoFit

    objSheet.UsedRange.WrapText = True

    objSheet.Range("A1").Rows.AutoFit

    objSheet.Range("A1").Columns.AutoFit