Макрос поиска одинаковых чисел в столбцах и выделение их цветом

@Neeky · Регистрация: 24.03.2014

Author24 — интернет-сервис помощи студентам

Ув. форумчане, помогите пожалуйста с написанием макроса для Екселя...
Есть 2 столбца 13-ти значных номеров штрих кодов, нужен макрос который будет из второй колонки брать числов, находить его в первой колонке и помечать фон под этим числом желтым цветом...
Это всё для выявления недостающих чисел во второй колонке...

Вот ссылка на сам файл... - http://www.ex.ua/451743843287

@sernik · 24.03.2014, 16:18

Файл, не качал, но как пример, можно с помощью условного форматирования на колонку B
=И($B1<>"";СЧЁТЕСЛИ($A:$A;$B1)=0)

toiai · 24.03.2014, 16:33

Вот макрос выводит отличие в 3-ю колонку:

Visual Basic

Sub Otlichiya()
    Dim arr As Variant
    Dim i As Long
    Dim d1 As Object, d2 As Object
    Set d1 = CreateObject("Scripting.Dictionary")
    Set d2 = CreateObject("Scripting.Dictionary")
    arr = Sheets(1).UsedRange
    For i = 1 To UBound(arr)
        If arr(i, 2) <> Empty Then
        If Not d1.exists(arr(i, 2)) Then d1.Add arr(i, 2), arr(i, 2)
        End If
    Next i
    For i = 1 To UBound(arr)
        If arr(i, 1) <> Empty Then
            If Not d1.exists(arr(i, 1)) Then d2.Add arr(i, 1), arr(i, 1)
        End If
    Next i
    arr = d2.Keys
    With Sheets(1)
        .Cells(1, 3).Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)
    End With
End Sub

Только форматы ячеек 1 и 2 колонки должны быть одинаковыми.

@Neeky 0 / 0 / 0 Регистрация: 24.03.2014 Сообщений: 1
		1
	Макрос поиска одинаковых чисел в столбцах и выделение их цветом 24.03.2014, 16:11. Показов 3534. Ответов 2 Метки нет (Все метки) Ув. форумчане, помогите пожалуйста с написанием макроса для Екселя... Есть 2 столбца 13-ти значных номеров штрих кодов, нужен макрос который будет из второй колонки брать числов, находить его в первой колонке и помечать фон под этим числом желтым цветом... Это всё для выявления недостающих чисел во второй колонке... Вот ссылка на сам файл... - http://www.ex.ua/451743843287 0

	24.03.2014, 16:33