Как найти совпадения в различных диапазонах в Excel для определения значений в другом диапазоне - PullRequest
Новая
       26

Как найти совпадения в различных диапазонах в Excel для определения значений в другом диапазоне

0 голосов
/ 08 апреля 2019

У меня есть макрос, который просматривает ячейки в столбце таблицы и сравнивает ее с ячейками в другом, чтобы определить значения другого столбца. 

Option Explicit

Sub Find_Matches_Descriptions()
Dim compareRange As Range
Dim toCompare As Range
Dim rFound As Range
Dim cell As Range
Dim I As Long

Call OptimizeCode_Begin

Set compareRange = Worksheets("Car").Range("C4:C100000")
Set toCompare = Worksheets("Day").Range("E2:E100000")
Set rFound = Nothing

For Each cell In toCompare
    Set rFound = compareRange.Find(cell)
    If Not rFound Is Nothing Then
        cell.Offset(, -1).Value = rFound.Offset(, 1)
        Set rFound = Nothing
    End If
Next cell

Call OptimizeCode_End

End Sub

Макрос ищет значения в C4: C100000 и E2: E100000, которые совпадают, а затем значения столбца B на рабочем листе Car будут просмотрены и введены в столбец D для рабочего дня.

Я нашел этот макрос из другого вопроса на этом веб-сайте инемного изменил, и это работает.Тем не менее, мне интересно, есть ли вероятность, что я могу сравнить более двух диапазонов для сравнения.Например, этот макрос сравнивает диапазон C4: C100000 на рабочем листе автомобиля, сравнивает диапазон E2: E100000 на рабочем столе и находит совпадение.Я хочу создать макрос, который не только сравнивает эти два диапазона, но и сравнивает диапазоны B4: B100000 в листе машины и C2: C100000 в листе дня.Можно ли по существу найти два совпадения, и эти два совпадения определят, какие значения в столбце E на рабочем листе автомобиля будут введены в столбец F. Рабочего листа Day.

При необходимости попросите разъяснений.

Вот рисунок, показывающий, чего я хочу достичь 

Car worksheet

Model        Colour code     Colour description

GT-R         XBG             red
Z-Coupe      CBG             yellow
GT-R         CBG             pink
Z-Coupe      XBG             blue
GT-R         XBG             red

Day worksheet
model    Colour code     Colour description

GT-R         XBG             Red
Z-Coupe      CBG             Yellow
GT-R         CBG             Pink
Z-Coupe      XBG             Blue
GT-R         XBG             Red
GT-R         TTC             ''No match

Описание цвета для дневного рабочего листа определяется описанием цвета для автомобильного рабочего листа.Поскольку эти модели и цветовые коды для дневного рабочего листа имеют совпадения в автомобильном рабочем листе, для рабочего дня отображаются описания цветов.Однако в листе автомобиля не было комбинации модели GT-R и цветового кода TTC, поэтому описание цвета в дневном листе для этой комбинации не отображается.

...