excel - 如何在vba中获取wraptext单元格的行宽

Question

是否可以获得“行数组”或“wraptext = True”单元格中每一行的“断行标记（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)vbCrLfvbCr