第一,提取 :之前的字符 DIM s,arr s="War_ID : SM3766R12-CA88770.9-23" arr=split(s,":") msgbox arr(0)
得到的是:分号前的字符串, 第二个 问题 Sub aaa() Dim s, arr s = "War_ID : SM3766R12-CA88770.9-23" arr = Split(s, ":") s = arr(1) Set arr = Nothing arr = Split(s, "-") MsgBox arr(0) End Sub