Question

利用VBA如何取出单元格内的特定字符

例如在A1单元格内有字符串：若干空格+ABC+若干空格+DEF+若干空格
请问提取字符DEF的代码是？

Answer 1

Sub kerting()
With CreateObject("Vbscript.Regexp")
.Global = True
.IgnoreCase = True
.Pattern = "[a-zA-Z]{3}"
Set mmatches = .Execute([a1].Text) 'a1单元格为目前需要整理的字符串
[a2] = mmatches(mmatches.Count - 1) 'a2单元格为提取后结果
End With
End Sub