急！请教老师，vba提取单元格最后指定数的问题

7016427

如，sheet1.[a1]=1234567890，sheet1.[a5]单元格提取sheet1.[a1]最后2的3位数（即：789）的问题

獨一無2

Sub 截取()
Set regx = CreateObject("vbscript.regexp")
n = 1
With regx
    .Global = True
    .Pattern = "\d{6}(\d{3})"
    Set mat = .Execute([a1])
    For Each m In mat
        n = n + 1
        Cells(n, 1) = .Replace(m.Value, "$1")
    Next
End With
End Sub

Chip_Kenny

1. [a5]=LEFT(RIGHT([A1].value,4),3)

复制代码

7016427

Chip_Kenny 发表于 2018-6-26 11:09

测试成功！谢谢了！