У меня проблемы с выяснением, как решить мою проблему.У меня есть две колонки:
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
Приведенный выше код в основном используется для добавления столбца, связанного с именем клиента иЗатем, после того как совпадение найдено, имя проекта удаляют, поэтому в конце я оставляю без дубликатов клиента на имя задания.
Надеюсь, я достаточно хорошо описал это, чтобы кто-то мог его понять.Спасибо