VBA代码要检查单元格中是否存在数组中的值？

Question

我需要循环访问包含CSV格式的一个或多个区域ISO代码的单元格范围，例如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还是很陌生，对这种语言的Regex知之甚少，但是根据我的经验，这应该是这样的：

（任何+“ arAR” +任何） 或 （任何+“ bgBG” +任何） 或 [...]

等等

它似乎不起作用。 在这种情况下，您将如何实现我的追求？

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