#2
厨师王德榜2021-04-02 09:40
|
Mystr = "sdgasg5545"
TargetStr = ""
For Item = 1 To Len(Mystr)
If cell.Characters(Item, 1).Font.Size > 5 Then
TargetStr = TargetStr & Mid(Mystr, Item, 1)
End If
Next