QUOTE:

原帖由 wx_10175681 于 2019-7-8 16:21:42 發(fā)表
人本遇到要轉(zhuǎn)換的文本，請求大神多多指教，多列轉(zhuǎn)換一列

了解下這個(gè)函數(shù)：PHONETIC；

或者自定義函數(shù)：

Public Function 合并內(nèi)容(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

        合并內(nèi)容 = Left(StrMerge, Len(StrMerge) - 1)

    End If

End Function