直到select值等于For Each值

我目前正在尝试使用一种做法，直到每个，但我有一个问题。 我想要做的是直到select值等于所选的值为以下代码中的每个部分：

Private Sub Copiar() Dim Eselect As Variant Dim vItem As Variant Dim Col As Integer Eselect = Array(CBE1.Value, CBE2.Value, CBE3.Value, CBE4.Value, CBE5.Value) For Each vItem In Eselect Range("C2").Select Do Until Selection.Value = vItem.Value Selection.Offset(0, 1).Select Loop Col = ActiveCell.Column Columns(Col).Copy Sheets(2).Active Range("A1").Select If Range("A1") = "" Then Columns(Col).Copy Else Do Until Selection.Value = "" Offset.Selection(0, 1) = Selection.Value Loop Columns(Col).Copy End If Next 

结束小组

问题是特定的地方说“不要直到Selection.Value = vItem.Value”，因为我不能使用vItem.Value，我不知道我应该用来search，直到findFor Eachselect的值。 （我显然刚刚学习VBA）。

整个想法是为了在一行中search一个特定的值（多次，每个ComboBox值：CBEi）并返回该列，然后将该列复制到另一个表中。

任何帮助，将不胜感激。

维森特。