如何从拆分函数产生的数组创建for循环

Question

我的excel工作表中有一列，其中包含对“ CTR_01”类型的某些产品的引用，其中前3个字母代表该产品所属的域。另外，我有一个用户表单，允许我编辑数据库中已有的一些信息。 我需要将组合框中选择的域与从引用中使用的split函数获得的数组进行比较，但是它似乎不起作用。

For Each cell In Range("G3:G800")
    chaine() = split(cell.Value, "_")
Next

For i = LBound(chaine) To UBound(chaine)
   While dom = chaine(i)
      pro = Application.WorksheetFunction.Match(prolist, Sheets("Data").Range("Produit_edit"))
      //Something to do
   Wend
Next i

Answer 1

我认为您想做这样的事情：

For Each cell In Range("G3:G800")

     chaine = Split(cell.Value, "_")

   If dom = chaine(0) Then

        ' do things if your dom = chaine i.e Domain for each cell

   End If

Next