想将单元格中的每一个字变为直排的,可Chr(13)或Chr(10)都不行,不知怎样改才行。Function 横向为纵向(b As String) As String Dim bb As String, tempDim i As IntegerFor i = 1 To Len(b)bb = Mid(b, i, 1)temp = temp & bb & Chr(13)Next横向为纵向 = tempEnd Function

试了确实两个都不行，很有趣不知道什么原因　　按道理说代码是没什么问题的　愿有高手能解顶

用CHR（10），得出结果之后还得设置单元格格式，勾选自运换行。

原来如此,多谢两位大虾的热心回复.

轻舟---神！！怎么也没想到是这么回事。。