Dim s as String; s = Sheets(1).Cells(i, 3).Value; Select Case True; Case s Like "*aa*"; msgbox "字串包含aa"; Case Else; msgbox "字串不包含aa ...
確定! 回上一頁