Страницы: 1
RSS
Сравнение столбцов с подстановкой порядкового номера.
 
Всем доброго времени с уток! Помогите пожалуйста выполнить следующее. Есть два столбца которые нужно сравнить. Столбец В-"контрольный" в нем названия ячеек не повторяются. Нужно чтобы выполнялось сравнение столбцов С и В. И если в столбце С есть ячейки с текстом из столбца В, то в столбец D проставлялись порядковые номера соответствующие ячейкам столбца В. Пример прилагаю)
 
Доброго и Вам.
=ПОИСКПОЗ(C1;B$1:B$7;)
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
Код
Sub FindDublInTable()
Dim i As Long
Dim iLastRow As Long
Dim cell As Range
 iLastRow = Cells(Rows.Count, "C").End(xlUp).Row
 Range("D1:D" & iLastRow).ClearContents
    For i = 1 To iLastRow
       If Cells(i, "C") <> "" Then
        Set cell = Range("B1:B7").Find(Cells(i, "C"), , xlValues, xlWhole)
        If Not cell Is Nothing Then
          Cells(i, "D") = "строка: " & cell.Row
        End If
       End If
    Next
End Sub
 
Максим В., Kuzmich, Большое спасибо!
Страницы: 1
Наверх