如何批量将单元格中的文本取消合并，并按逗号拆分单元格中的文本到拆分出来的每个...

monkey3500

弄了个，看看吧

limonet

wuli7酱 发表于 2024-2-26 10:57
老师，我重新放了附件，你帮忙看下呗

各位老师，要下的下这个附件，是真的。

limonet

关键字：pattern+filter

limonet

Sub limonet()
    Dim Ms, Arr() As Variant, i%, j%, Brr() As Variant
    S$ = "富勒烯-安肌瓶组合,氐殊-氐殊原精华素2.2ml/支(1),AOPT超光子治疗(全面部,LTL模式)" & ","
    With CreateObject("vbscript.regexp")
        .Pattern = ".*?(\(.*?\))?,"
        .Global = True
        Set Ms = .Execute(S)
        For Each M In Ms
            i = i + 1
            ReDim Preserve Arr(1 To i)
            Arr(i) = Left(M.Value, Len(M.Value) - 1)
        Next M
    End With
    i = 0
    For j = 1 To 4
        i = i + 1
        ReDim Preserve Brr(1 To i)
        Brr(i) = Filter(Arr, Left(Cells(j + 1, "C"), 2))(0)
    Next j
    [a2].UnMerge
    [a2].Resize(4, 1) = Application.Transpose(Brr)
End Sub

wuli7酱

limonet 发表于 2024-2-26 13:19
关键字：pattern+filter

谢谢老师！

wuli7酱

limonet 发表于 2024-2-26 13:19
Sub limonet()
    Dim Ms, Arr() As Variant, i%, j%, Brr() As Variant
    S$ = "富勒烯-安肌瓶组合, ...

老师再请教一下，如果A列和C列的文本没有包含相同的字眼，这种要怎么对应，A列的文本是已经按顺序排列好的

wuli7酱

limonet 发表于 2024-2-26 13:19
Sub limonet()
    Dim Ms, Arr() As Variant, i%, j%, Brr() As Variant
    S$ = "富勒烯-安肌瓶组合, ...

老师比如这个例子2