VBA Excel сопоставить 2 столбца по A с 2 столбцами на B и возвращаемым значением

Мне нужен сценарий Excel VBA для сравнения столбцов A и B в рабочем листе Один против A & B В листе 2 Если встречается совпадение, возвращаем столбец C из Worksheet One.

Ive может сделать это в excel, используя формулу, но это скорость im после того, как мы надеемся, что делать через VBA будет быстрее, и id предпочитает, чтобы конечный результат таблицы содержал только значения вместо формул.

Ive сделал много рытья, но не мог найти это силовое требование.

Любая помощь в этом с благодарностью оценена.

В настоящее время эта формула excel используется

{= ЕСЛИОШИБКА (ИНДЕКС (SQLData D: D, MATCH (1, (SQLData A: А = А2) * (SQLData В: В = В2), 0)), "0")}

Sub Stridhan() Dim c As Range, d As Range, lr As Long Dim ws1 As Worksheet, ws2 As Worksheet Dim rng1 As Range, rng2 As Range With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With 'rename Sheet1 and Sheet2 Set ws1 = ThisWorkbook.Sheets("Sheet1") Set ws2 = ThisWorkbook.Sheets("Sheet2") Set rng1 = ws1.Range("A2", ws1.Range("A" & ws1.Cells(Rows.Count, 1).End(xlUp).Row)) Set rng2 = ws2.Range("A2", ws2.Range("A" & ws2.Cells(Rows.Count, 1).End(xlUp).Row)) With ws2 lr = .Cells(Rows.Count, 3).End(xlUp).Row If lr > 1 Then .Range("C2", "C" & lr).ClearContents End With For Each c In rng2 For Each d In rng1 If c = d Then If c.Offset(0, 1) = d.Offset(0, 1) Then c.Offset(0, 2).Value = d.Offset(0, 2).Value GoTo Nextone End If End If Next d Nextone: Next c With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub 
  • Сравнение двух входов с набором данных для возврата одного выхода
  • Сравнение значения в ячейке со значениями в диапазоне копирования соседней ячейки, если найдено совпадение
  • Excel сравнивает два файла csv и показывает разницу
  • Сравнение и репликация / объединение данных для аналогичных строк в Excel
  • Поиск и сравнение двух столбцов в excel
  • Сравнение элементов двух строк
  • Сравните 2 набора данных с помощью PowerPivot
  • Сравнение нескольких списков данных в Excel для поиска взаимосвязанных данных
  • Проверка дубликатов подстрок в Excel
  • Исключить строку сравнения
  • Оператор VBA «Like» неверно сравнивает 2 строки
  • Давайте будем гением компьютера.