[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