如何根据符号拆分大段的文字并分列填写标题？

zhuxucheng

loirol

结果自己核对一下，数据里有全角的冒号和半角的冒号，不知道分号有没有半角的，有会漏东西

liulang0808

Sub 按钮1_Click()
    arr = Sheets("原表").UsedRange
    Set d = CreateObject("scripting.dictionary")
    Set dnm = CreateObject("scripting.dictionary")
    For i = 5 To 6
        For j = 2 To UBound(arr)
            If Len(arr(j, i)) > 0 Then
                str1 = Replace(arr(j, i), ";", "；")
                str1 = Replace(str1, ":", "：")
                brr = Split(str1, "；")
                For Each x In brr
                    If Len(x) > 0 Then
                        crr = Split("：" & x, "：")
                        If UBound(crr) = 2 Then
                            dnm(crr(1)) = ""
                            k = j & crr(1)
                            If d.exists(k) Then
                                d(k) = d(k) & "," & crr(2)
                            Else
                                d(k) = crr(2)
                            End If
                        Else
                            d(j & "") = crr(1)
                        End If
                    End If
                Next x
            End If
        Next j
    Next i
    dnm("") = ""
    arr = Sheets("原表").[a1].Resize(UBound(arr), 4 + dnm.Count)
    For c = 0 To dnm.Count - 1
        x = dnm.keys()(c)
        i = 5 + c
        arr(1, i) = x
        For j = 2 To UBound(arr)
            If d.exists(j & x) Then
                arr(j, i) = d(j & x)
            Else
                arr(j, i) = ""
            End If
        Next j
    Next c
    Sheets("结果").[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

liulang0808

附件内容供参考。。。。。

zhuxucheng

loirol 发表于 2025-3-25 14:00
结果自己核对一下，数据里有全角的冒号和半角的冒号，不知道分号有没有半角的，有会漏东西

你好，我想要的是第一行标题是自动生成的，不是固定的

longwin

longwin

附件供参考。。。。

loirol

zhuxucheng 发表于 2025-3-25 14:15
你好，我想要的是第一行标题是自动生成的，不是固定的

版主那个可以

limonet

(x)=>
let
    分裂 = List.RemoveLastN(List.Transform(Text.Split(x,"；"),each Text.SplitAny((if Text.Contains(_,"：") or Text.Contains(_,":") then _ else "无冒号："&_),":：")),1),
    转置 = List.Zip(分裂),
    成表 = Table.PromoteHeaders(Table.FromRows(转置))
in
    成表

limonet

关键字：function