要檢查的VBA代碼是數組中存在的值嗎？

Question

我需要以包含一個或多個區域ISO代碼的單元格範圍以CSV方式循環，例如esES，frFR，itIT等。

如果任何這些值包含在單元格中，將其粘貼到另一個工作簿。後半部分我被覆蓋了，但我不知道如何使前半部分工作。這是我與目前使用的代碼：

OTHERS_V = "*arAR*|*bgBG*|*csCZ*|*daDK*" 

For Each cell In Intersect(Sheets("Requests").Range("G:G"), Sheets("Requests").UsedRange) 
     If cell.Value Like OTHERS_V Then [...] 

我是很新，VBA，我不知道很多關於正則表達式在這個語言，但是從我的經驗，這應該閱讀類似：

（任何+ 「阿拉爾」 +什麼）OR（任何+ 「BGBG」 +什麼）OR [...]

等

雖然它似乎沒有工作。在這種情況下，你將如何去完成我所追求的東西？

Answer 1

按我的意見，把OTHERS_V列表中的數組和循環每一個測試：

Sub fooo() 
Dim OTHERS_V() 
Dim cell As Range 
Dim i As Long 

OTHERS_V = Array("*arAR*", "*bgBG*", "*csCZ*", "*daDK*") 

For Each cell In Intersect(Sheets("Requests").Range("G:G"), Sheets("Requests").UsedRange) 
    For i = LBound(OTHERS_V) To UBound(OTHERS_V) 
     If cell.Value Like OTHERS_V(i) Then 
      'do your stuff 
      Exit For 
     End If 
    Next i 
Next cell 


End Sub