Как сравнить значения столбца и затем вычесть значения из соседнего столбца

У меня есть два листа. WS1 и WS2

WS1 – Колонка A и WS2 – Колонка A содержит коды продуктов.
WS1 – Столбец B и WS2 – Столбец B имеет заказываемые количества.

То, что я хотел бы сделать, это сравнить WS1-A с WS2-A.
Если строки совпадают, то вычитайте WS2-B из WS1-B.
Если нет совпадения, перейдите к следующей строке.

Я нашел немного кода, но поскольку я новичок в VBA, я не слишком уверен, как его модифицировать, чтобы удовлетворить мои потребности.

Public Sub CompareRange(range1 As Range, range2 As Range) Dim ws1 As Worksheet, ws2 As Worksheet Dim lastRow1 As Integer, lastrow2 As Integer Dim rng1 As Range, rng2 As Range Dim CompareCell As Range Dim CheckCell As Range Dim CellFound As Boolean Application.ScreenUpdating = False Set ws1 = ThisWorkbook.Sheets("Sheet9") Set ws2 = ThisWorkbook.Sheets("Sheet12") lastRow1 = ws1.Range("A" & Rows.Count).End(xlUp).Row lastrow2 = ws2.Range("A" & Rows.Count).End(xlUp).Row Set rng1 = ws1.Range("A1:A" & lastRow1) Set rng2 = ws2.Range("A1:A" & lastrow2) Set qty1 = ws1.Range("B1:B" & lastRow1) Set qtyair = ws2.Range("B1:B" & lastrow2) For Each CompareCell In rng1.Cells CellFound = False For Each CheckCell In rng2.Cells If CheckCell.Text = CompareCell.Text Then End If Next CheckCell If Not CellFound Then End If Next CompareCell End Sub 

Просьба сообщить, как это сделать в Excel VBA. Я использую Excel 2013.

 sub match_col() Set ws1 = ThisWorkbook.Sheets("Sheet9") Set ws2 = ThisWorkbook.Sheets("Sheet12") lastRow1 = ws1.Range("A" & Rows.Count).End(xlUp).Row lastrow2 = ws2.Range("A" & Rows.Count).End(xlUp).Row i = 1 to lastRow1 j = 1 to lastRow2 if worksheets("ws1_A").range("a" & i).value = worksheets("ws2_A").range("a" & i).value msgBox worksheets("ws2_B").range("B" & i).value - worksheets("ws1_B").range("B" & i).value end if next j next i 
  • Excel: сравнить значения, найти то же самое, сравнить их смежные значения, найти больше и вернуть это число +1 на другом листе
  • сравнение двух столбцов в excel (VLOOKUP не работает)
  • Сравнить месяцы в excel
  • Сравните два столбца в excel
  • Сравнение двух входов с набором данных для возврата одного выхода
  • Excel. Ищите разные слова в предложении, и если слово существует в предложении, затем распечатайте это слово или распечатайте другое
  • Как сравнить два столбца в Excel (с разных листов) и заменить значения в соответствующем столбце?
  • VBA - сравнить ячейки в двух столбцах с ячейками в двух других столбцах
  • Adapt VBA Module, чтобы найти частичное совпадение вместо точного соответствия
  • Сравнить 2 листа Excel на основе 1 колонки
  • IF для сравнения даты с текущей датой и результатом возврата
  • Interesting Posts

    Преобразование файла доступа группы subversion в другой формат обзора

    Excel: использование формулы массива INDEX для нахождения значений в списке между min и max

    IF-формула в excel

    как проверить, является ли ячейка пустой, даже если она имеет формулы

    Как обрабатывать это исключение, связанное с Excel

    Отформатировать аномалию между версиями Excel (или разрешениями экрана)

    Сравнение двух листов Excel с использованием VBA

    Получение рабочего листа по его кодовому имени

    Как вы выбираете имена столбцов и захватываете данные для SQL Server?

    Как отключить поле «Формат» в диалоговом окне wdDialogFileSaveAs в C #, я работаю над надстройкой надстройки Office?

    Excel – стоп-расчет при открытии для предотвращения циклической ссылки

    Как искать значение, которое происходит четыре раза, и извлекать каждое значение соседней ячейки

    (Excel) Поиск средних отфильтрованных данных

    как разделять значения в столбце в excel

    Значение UserForm.Top изменяется от назначенного

    Давайте будем гением компьютера.