Ячейки с определенным наименованием заполнять при соблюдении условий

Пользователь

Сообщений: 1 Регистрация: 14.11.2019

14.11.2019 12:54:32

Всем добрый день!
Прошу помочь в написании формулы. Файл для примера прилагаю.
Необходимо чтобы ячейки с определенным наименованием автоматически заполнялись нужными данными при соблюдении нескольких условий.

При содержании в столбце A (наименование) XA или AA автоматически подставлять в ячейки столбца C (ТМ) полное наименование марки, которое соответствует определенной модели указанной в A. И в столбце B (номер инд.) автоматически проставлять номер из столбца G, который соответствует нужной торговой марке. Объем информации доходит до 100000 строк, наименования могут варьироваться от 2 до 50, хотелось бы автоматизировать этот процесс чтобы не забивать вручную.

Прикрепленные файлы

Книга1 запрос.xlsx (15.95 КБ)

Kuzmich

Пользователь

Сообщений: 8050 Регистрация: 21.12.2012

14.11.2019 13:32:33

Цитата
хотелось бы автоматизировать этот процесс

Код

Sub Nomer_TM()
Dim FoundModel As Range
Dim i As Long
Dim iLastRow As Long
  iLastRow = Range("A1").End(xlDown).Row
    Range("B3:C" & iLastRow).ClearContents
  For i = 3 To iLastRow
    Set FoundModel = Columns(6).Find(Split(Cells(i, 1), " ")(0), , xlValues, xlWhole)
    Cells(i, 3) = FoundModel.Offset(, 1)
    Cells(i, 2) = Columns(6).FindNext(FoundModel).Offset(, 1)
  Next
End Sub