提取单元格内容

nnsea

Sub 提取内容()
Set regx = CreateObject("vbscript.regexp")
With regx
    .Global = True
    .Pattern = "\S+"
    For Each Rng In [b1:b4]
        Set mat = .Execute(Rng)
        For Each m In mat
            y = y + 1
            Cells(Rng.Row, y + 2) = m
        Next
            y = 0
    Next
End With
End Sub