qb = "* ''1''2''3'"
qa = InStr(qb, "* '") + 3
qc = Mid(qb, qa)
qa = InStr(qc, "'") - 1
qc = Left(qc, qa)
msgbox qc
相似问题