QUOTE:

原帖由 wx_10175681 于 2019-7-8 16:21:42 发表
人本遇到要转换的文本，请求大神多多指教，多列转换一列

复制，然后右键选择转置，然后用A2&","&B2&","&C2。。。相连接，

QUOTE:

原帖由 青春以逝 于 2019-7-8 16:47:59 发表

复制，然后右键选择转置，然后用A2&","&B2&","&C2。。。相连接，

WIN 10 系统下个office2019  新增了 TEXTJOIN 这函数 应该符合你的需求

QUOTE:

原帖由 wx_10175681 于 2019-7-8 16:21:42 发表
人本遇到要转换的文本，请求大神多多指教，多列转换一列

了解下这个函数：PHONETIC；

或者自定义函数：

Public Function 合并内容(rng As Range, strfh As String)

Dim StrMerge As String

Dim irng As Range

    If TypeName(rng) = "Range" Then

        For Each irng In rng

            If Trim(irng.Value) <> "" Then

            StrMerge = StrMerge & irng.Value & strfh

            End If

        Next irng

        合并内容 = Left(StrMerge, Len(StrMerge) - 1)

    End If

End Function

QUOTE:

原帖由 青春以逝 于 2019-7-8 08:47:59 发表

复制，然后右键选择转置，然后用A2&","&B2&","&C2。。。相连接，

这个方式我试过，太麻烦，如果更多的话，输入公式就要10几分钟了

QUOTE:

原帖由 luhaiyang1988 于 2019-7-8 09:30:21 发表

WIN 10 系统下个office2019  新增了 TEXTJOIN 这函数 应该符合你的需求

谢谢你的指点，你以后有用的地方就保存一下吧

QUOTE:

原帖由 往北向南丶再见 于 2019-7-8 14:55:08 发表

了解下这个函数：PHONETIC；或者自定义函数：Public Function 合并内容(rng As Range, strfh As String)Dim StrMerge As StringDim irng As RangeIf TypeName(rng) = "Range" Then...

大哥，小弟学识浅薄，完全看不懂啊

QUOTE:

原帖由 wx_10175681 于 2019-7-8 16:21:42 发表
人本遇到要转换的文本，请求大神多多指教，多列转换一列

大上饶的地方都是

QUOTE:

原帖由 wx_10175681 于 2019-7-8 16:21:42 发表
人本遇到要转换的文本，请求大神多多指教，多列转换一列

PHONETIC()

QUOTE:

原帖由 wx_10175681 于 2019-7-8 16:21:42 发表
人本遇到要转换的文本，请求大神多多指教，多列转换一列

B2输入=A1&","&A2，B3输入=B2&","&A3，然后下拉就可以了