[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