相关疑难解决方法(0)

请参阅显示我的数据和运行宏后预期数据的附加图像，

• 我想拆分 B 列中的多行单元格并在单独的行中列出并从第一个空格中删除文本。该值将被称为 SESE_ID，并且对于来自同一行的每个 SESE_ID 应该具有来自 C 列的规则。
• 如果 A 列中有多个前缀由逗号或空格逗号分隔，则对每个前缀重复上述值。

请有人帮助我在宏...

1. 附加的第一张图片是示例源：

2. 以下是宏：

    子 Complete_sepy_load_macro()
    将 ws、s1、s2 调暗为工作表
    Dim rw、rw2、rw3、col1、count1、w、x、y、z、cw 作为整数
    将 text1 调暗为字符串
    Dim xwalk As String
    Dim TOSes 作为变体

    Application.DisplayAlerts = False
    For each ws in Sheets
        如果 ws.Name = "CMC_SEPY_SE_PYMT" 然后 Sheets("CMC_SEPY_SE_PYMT").Delete
    下一个
    Application.DisplayAlerts = True

    设置 s2 = ActiveSheet
    g = s2.Name
    Sheets.Add.Name = "CMC_SEPY_SE_PYMT"

    设置 s1 = Sheets("CMC_SEPY_SE_PYMT")

    s1.Cells(1, 1) = "SEPY_PFX"
    s1.Cells(1, 2) = "SEPY_EFF_DT"
    s1.Cells(1, 3) = "SESE_ID"
    s1.Cells(1, 4) = …