Vba excel сравнение двух столбцов

Comparing columns of data manually is not a realistic approach when working with large data sets. Let us show you how to compare two columns in Excel using VBA and automate this process.

How to Compare two Columns in Excel

VBA has a built in function called  StrComp, which can compare two separate strings. This function returns an integer based on the result of the comparison. Zero ‘0′ means a perfect match, and the sample code we give below highlights the cell if the result is NOT equal to 0.

StrComp function gets 3 arguments. First 2 arguments are the strings to be compared, and the last one is the comparison type. Note that the third argument is optional. If not omitted, the Option Compare setting will determine the type of comparison. Below are available options:

• vbUseCompareOption: Performs a comparison using the setting of the Option Compare statement.
• vbBinaryCompare: Performs a binary comparison. Case sensitive.
• vbTextCompare: Performs a textual comparison. Not case sensitive.
• vbDatabaseCompare: Performs a comparison based on information in your database. Microsoft Access only.

The code requires the user to select columns in a single range. Selected range is assigned to a range variable bothcolumns, and each cell in that range is compared row by row. With statement allows us to not use bothcolumns every time, and the For…Next loop is how we can check for every cell.

Highlighting

After you get the range, you can use the ColorIndex property to set that range a color. Below are some index numbers for colors:

• 3: Red
• 5: Blue
• 6: Yellow
• 0: No Fill

First, you need to add the module into the workbook or the add-in file to be able to use the code. Copy and paste the code into the module to run it. The main advantage of the module method is that it allows saving the code in the file, so that it can be used again later. Furthermore, the subroutines in modules can be used by icons in the menu ribbons or keyboard shortcuts. Remember to save your file in either XLSM or XLAM format to save your VBA code.

Highlight differences

Sub HighlightColumnDifferences()

    Dim bothcolumns As Range, i As Integer

    Set bothcolumns = Selection

    With bothcolumns

        For i = 1 To .Rows.Count

            If Not StrComp(.Cells(i, 1), .Cells(i, 2), vbBinaryCompare) = 0 Then

                Range(.Cells(i, 1), .Cells(i, 2)).Interior.ColorIndex = 6

            End If

        Next i

    End With

End Sub

Ah yeah that’s cake I do it all day long. Actually your code looks pretty much like the way I’d do it. Although, I opt to use looping through integers as opposed to using the «For Each» method. The only potential problems I can see with your code is that ActiveSheet may not always be «Sheet1», and also InStr has been known to give some issues regarding the vbTextCompare parameter. Using the given code, I would change it to the following:

Sub compare_cols()

    'Get the last row
    Dim Report As Worksheet
    Dim i As Integer, j As Integer
    Dim lastRow As Integer

    Set Report = Excel.Worksheets("Sheet1") 'You could also use Excel.ActiveSheet _
                                            if you always want this to run on the current sheet.

    lastRow = Report.UsedRange.Rows.Count

    Application.ScreenUpdating = False

    For i = 2 To lastRow
        For j = 2 To lastRow
            If Report.Cells(i, 1).Value <> "" Then 'This will omit blank cells at the end (in the event that the column lengths are not equal.
                If InStr(1, Report.Cells(j, 2).Value, Report.Cells(i, 1).Value, vbTextCompare) > 0 Then
                    'You may notice in the above instr statement, I have used vbTextCompare instead of its numerical value, _
                    I find this much more reliable.
                    Report.Cells(i, 1).Interior.Color = RGB(255, 255, 255) 'White background
                    Report.Cells(i, 1).Font.Color = RGB(0, 0, 0) 'Black font color
                    Exit For
                Else
                    Report.Cells(i, 1).Interior.Color = RGB(156, 0, 6) 'Dark red background
                    Report.Cells(i, 1).Font.Color = RGB(255, 199, 206) 'Light red font color
                End If
            End If
        Next j
    Next i

    'Now I use the same code for the second column, and just switch the column numbers.
    For i = 2 To lastRow
        For j = 2 To lastRow
            If Report.Cells(i, 2).Value <> "" Then
                If InStr(1, Report.Cells(j, 1).Value, Report.Cells(i, 2).Value, vbTextCompare) > 0 Then
                    Report.Cells(i, 2).Interior.Color = RGB(255, 255, 255) 'White background
                    Report.Cells(i, 2).Font.Color = RGB(0, 0, 0) 'Black font color
                    Exit For
                Else
                    Report.Cells(i, 2).Interior.Color = RGB(156, 0, 6) 'Dark red background
                    Report.Cells(i, 2).Font.Color = RGB(255, 199, 206) 'Light red font color
                End If
            End If
        Next j
    Next i

Application.ScreenUpdating = True

End Sub

Things I did differently:

1. I used my integer method described above (as opposed to the ‘for each’ method).
2. I defined the worksheet as an object variable.
3. I used vbTextCompare instead of its numerical value in the InStr function.
4. I added an if statement to omit blank cells. Tip: Even if only one
   column in the sheet is extra long (e.g., cell D5000 was accidentally
   formatted), then the usedrange for all columns is considered 5000.
5. I used rgb codes for the colors (it’s just easier for me since I
   have a cheat sheet pinned to the wall next to me in this cubicle
   haha).

Well that about sums it up. Good luck with your project!

Добрый день! Помогите пожалуйста написать макрос для сравнения 2 столбцов, я в VBA совсем не разбираюсь, но думаю это можно сделать как-то быстро.
Суть вот какая: в первой колонке(A) номера уникальные и не повторяются, во второй колонке(В) номера не уникальные. Номера могут идти не по порядку. Задача следующая: определить те строки значения которых из первой колонке отсутствуют во второй, остальные удалить.
На примере будет понятнее:

Итого: значений 05, 06, 08, 09, 12,13 и 15 нет в колонке B, поэтому эти строки не трогаем, а остальные удаляем.

Алгоритм я представляю себе следующим образом(пример другой)

Цикл пока A (i+1) не пустая
A1 не равно B1 следующая
A1 не равно B2, следующая
A1 равно B2 удалить строку A1, переход к A2
А2 не пустая продолжаем
А2 не равно B1 следующая
А2 не равно B2 следующая
А2 не равно B3 следующая

A3 не равно B1 следующая
A3 не равно B2 следующая
A3 не равно B3 следующая
A4 пустая — конец макроса.

Тут нужно 2 цикла 1 вложен в другой?

Очень прошу помогите чем можете!