修改VBA以拆分粘贴单元格中的文本字符串

我有下面的代码，需要在y.sheets中添加一个函数，该函数允许我在RangeCell粘贴到Jan后拆分a列中的两个文本字符串

基本上，当字符串PB出现在y表的A列中时，我想将其拆分

  Private Sub CommandButton22_Click()
Dim x As Workbook
Dim y As Workbook


'## Open both workbooks first:
Set x = Workbooks.Open("Worksheet to Copy")
Set y = Workbooks.Open("Worksheet to Paste")


Dim Rangecells As Variant
    For Each Rangecells In Split("A1:ax10000", ",")
        'Now, copy what you want from x:
        x.Sheets("Report Data").Range(Rangecells).Copy


        'Now, paste to y worksheet:

        y.Sheets("Jan").Range(Rangecells).PasteSpecial
        y.Sheets("Jan").Cells.UnMerge




    Next

'Close x:
x.Close
End Sub

未经测试：

Dim c as Range, arr

With y.Sheets("Jan")
    .Range(Rangecells).PasteSpecial
    .Cells.UnMerge
    For each c in Application.Intersect(.UsedRange,.Columns(1)).Cells
        If c.value = "PB Volume" Then
             arr = split(c.value, " ")
             c.value = arr(0)
             c.offset(0,1).value=arr(1)
        End If
    Next c
End With

---

这里的细节太少，无法提出任何真正的建议。简单的数据和预期的结果会有所帮助。@TimWilliams这更有帮助吗？我只需要拆分A列中粘贴在Jan中的包含字符串PB VolumeSplit的任何单元格。拆分意味着什么？把一个文本字符串变成两个？将字符串的两段粘贴到单独的单元格中？取消单元格合并，这样会出现两个单元格？@Smandoli split将意味着使用空格作为分隔符，并将单元格拆分为两个，这两个部分应该放在哪里？