Страницы: 1
RSS
Поиск в ячейке диапазона, VBA
 
Добрый вечер.
Помогите пожалуйста найти соответствие в диапазоне констант каждой ячейке.

Спасибо.  
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
Код
Sub Vladimir()
Dim v(), w(), i&, x, brend()
  brend = Array("HYUNDAI", "MOBIL", "SHELL", "G-ENERGY", "CASTROL", "ESSO", "AGA")
  v = Range("B2", Cells(Rows.Count, "B").End(xlUp)).Value
  ReDim w(1 To UBound(v), 1 To 1)
  For i = 1 To UBound(v)
    For Each x In brend
      If InStr(1, v(i, 1), x, vbTextCompare) Then
        w(i, 1) = x
        GoTo nxt
      End If
    Next
    w(i, 1) = CVErr(xlErrNA)
nxt:
  Next
  Range("C2").Resize(UBound(w)).Value = w
        
End Sub
 
Понял, цикл в цикле - каждый бренд проверяется поочередно для каждой ячейки.
Спасибо, Алексей - добрая душа.
:)
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Страницы: 1
Наверх