瑕佸垽鏂竴涓暟鎹槸鍚﹀瓨鍦ㄤ簬鏁扮粍涓紝鍙互浣跨敤VBA涓殑InStr鍑芥暟銆傝鍑芥暟鍙互鐢ㄦ潵鏌ユ壘瀛楃涓蹭腑鏄惁鍖呭惈鎸囧畾鐨勫瓙瀛楃涓层€?/p>

浠ヤ笅鏄竴涓ず渚嬩唬鐮侊紝婕旂ず浜嗗浣曚娇鐢↖nStr鍑芥暟鏉ュ垽鏂竴涓暟鎹槸鍚﹀瓨鍦ㄤ簬鏁扮粍涓細

Sub CheckDataInArray()
    Dim myArray() As Variant
    Dim searchData As Variant
    Dim i As Long
    
    ' 鍒濆鍖栨暟缁?    myArray = Array("Apple", "Banana", "Orange", "Grapes")
    
    ' 瑕佹悳绱㈢殑鏁版嵁
    searchData = "Banana"
    
    ' 閬嶅巻鏁扮粍锛屽垽鏂槸鍚﹀瓨鍦ㄦ悳绱㈡暟鎹?    For i = LBound(myArray) To UBound(myArray)
        If InStr(1, myArray(i), searchData) > 0 Then
            MsgBox "鏁版嵁瀛樺湪浜庢暟缁勪腑"
            Exit Sub
        End If
    Next i
    
    MsgBox "鏁版嵁涓嶅瓨鍦ㄤ簬鏁扮粍涓?quot;
End Sub

鍦ㄤ笂杩颁唬鐮佷腑锛岄鍏堝畾涔変簡涓€涓悕涓簃yArray鐨勬暟缁勶紝骞跺垵濮嬪寲浜嗕竴浜涙暟鎹€傜劧鍚庡畾涔変簡涓€涓鎼滅储鐨勬暟鎹畇earchData銆傛帴涓嬫潵浣跨敤For寰幆閬嶅巻鏁扮粍锛岄€氳繃InStr鍑芥暟鍒ゆ柇姣忎釜鏁扮粍鍏冪礌鏄惁鍖呭惈鎼滅储鏁版嵁銆傚鏋滄壘鍒颁簡鍖归厤鐨勬暟鎹紝鍒欎細寮瑰嚭涓€涓秷鎭鏄剧ず"鏁版嵁瀛樺湪浜庢暟缁勪腑"锛涘鏋滈亶鍘嗗畬鏁翠釜鏁扮粍娌℃湁鎵惧埌鍖归厤鐨勬暟鎹紝鍒欎細寮瑰嚭涓€涓秷鎭鏄剧ず"鏁版嵁涓嶅瓨鍦ㄤ簬鏁扮粍涓?quot;銆?/p>

闇€瑕佹敞鎰忕殑鏄紝InStr鍑芥暟鏄尯鍒嗗ぇ灏忓啓鐨勩€傚鏋滈渶瑕佽繘琛屽ぇ灏忓啓涓嶆晱鎰熺殑鎼滅储锛屽彲浠ュ皢鏁扮粍鍏冪礌鍜屾悳绱㈡暟鎹兘杞崲涓虹粺涓€鐨勫ぇ灏忓啓銆?/p>