Страницы: 1
RSS
Сравнение данных в столбцах
 
Добрый день. Друзья, нужна ваша помошь.
Задача:
Сравнить данные в столбце с листа "Имя в домене"  с данными в столбце с листа "АО" . Сравнить нужно не по порядку (A с A, В с B), а каждое значение из столбца "Имя в домене" с листа "Имена в домене" со всеми значениями столбца "Имя в домене" листа "АО"
Дано:
iChislo, i - Счетчик
lRowDomainName - Последняя ячейка в столбце(Имя в домене)
TIP_Column - Номер столбца в шапке ("Тип")
DOMAIN_Column - Номер столбца в шапке ("Имя в домене")
Код
For iChislo = 2 To lRow
For i = 2 To lRowDomainName
        Select Case Cells(iChislo, TIP_Column).Value
            Case "miniPC"
                Set fCell = Cells(iChislo, DOMAIN_Column).Find(What:=Sheets("Имена в домене").Cells(i, 1).Value, LookAt:=xlWhole)
                    If Not fCell Is Nothing Then
                        Sheets("АО").Cells(fCell.Row, DOMAIN_Column).Interior.Color = vbGreen
                    End If
        End Select
Next i
Next iChislo
В финале: Если ячейка в столбце "Имя в домене" на листе "АО" не содержит значения из диапазона i-lRowDomainName то заливаем красным ячейку на листе "АО" столбца Имя в домене (Если тип = "miniPC" )
 
Yamanouchi, а у Вас даже файла нет? На чём же проверять будете?
 
Уточните название теемы. Заменят модераторы
Страницы: 1
Наверх