如何獲得vba

Question

中的wraptext單元格的行寬是否可以在「wraptext = True」單元格中獲得「行的數組」或每行的「break row mark（vbCrLf？）」的位置其「.Text」是一個很長的字符串，並自動分成多行？

Answer 1

是的，有可能考慮部分解決手動換行符。該代碼將看起來（爲Activecell）如下：

Sub Solution() 

    Dim myArray 
    myArray = Split(ActiveCell, Chr(10)) 

    'return to range cells below activecell 
    ActiveCell.Offset(1, 0).Resize(UBound(myArray) + 1, 1) = Application.Transpose(myArray) 
End Sub 

之前和之後都在下面的圖片：

附加提示：而不是Chr(10)你可以嘗試使用Chr(13)如果你沒有得到預期的結果（其他可能的稀釋劑是：vbCrLf和vbCr）。