Создание списка, который определяется двумя столбцами в Excel - PullRequest
0 голосов
/ 11 октября 2018

У меня проблемы с выяснением, как решить мою проблему.У меня есть две колонки:

Client Name   Job Name 
Company 1     Dealership 
Company 1     Dealership 
Company 1     Dealership 
Company 2     Airport 
Company 2     Airport 
Company 3     Dealership 
Company 3     Dealership 
Company 1     Parking Lot 
Company 1     Parking Lot 

Используя формулы (индекс, совпадение и т. Д.), Как мне создать новый список, в котором будут перечислены только уникальные компании и их соответствующие названия должностей. Поэтому мой новый список должен выглядеть следующим образом

Client Name   Job Name
Company 1     Dealership
Company 2     Airport 
Company 3     Dealership 
Company 1     Parking Lot 

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

У меня есть код VBA, который работает, но я пытаюсь сделать это другим способом, если это возможно

While Not Sheets("TempStore").Cells(x, 2).Value = ""
    'Creating comparisons for client / project name
    Set RngClient = Sheets("TempStore").Cells(x, 2)
    Set RngProject = Sheets("TempStore").Cells(x, 3)

    'Looping from last row to specified first row
    For LngRow = LngLastRow To (x + 1) Step -1
        'Checking conditions

        If Sheets("TempStore").Cells(LngRow, 2).Value = RngClient And Sheets("TempStore").Cells(LngRow, 3).Value = RngProject Then

            RngClient.Offset(0, 9).Value = RngClient.Offset(0, 9).Value + Sheets("TempStore").Cells(LngRow, 11).Value 'Total Cost
            RngProject.Offset(0, 9).Value = RngProject.Offset(0, 9).Value + Sheets("TempStore").Cells(LngRow, 12) 'Total Sell
            Sheets("TempStore").Rows(LngRow).Delete

        End If


    Next LngRow

    x = x + 1

Wend

Приведенный выше код в основном используется для добавления столбца, связанного с именем клиента иЗатем, после того как совпадение найдено, имя проекта удаляют, поэтому в конце я оставляю без дубликатов клиента на имя задания.

Надеюсь, я достаточно хорошо описал это, чтобы кто-то мог его понять.Спасибо

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...