首页 › 实战技术 › 提取单元格内容

nnsea 发表于 2023-10-26 14:18:25

提取单元格内容

Sub 提取内容()
Set regx = CreateObject("vbscript.regexp")
With regx
    .Global = True
    .Pattern = "\S+"
    For Each Rng In
      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

查看完整版本: 提取单元格内容