Dim s1 As String = "哲学博士学位,经济学博士学位,法学博士学位"Dim str As String = "全日制学位 in ('" & s1.Replace(",", "','") & "')"msgbox(str)