Объединить значения из двух разных столбцов и использовать их в качестве диапазона в функции сопоставления без сохранения значений в любом другом столбце - PullRequest
Новая
       39

Объединить значения из двух разных столбцов и использовать их в качестве диапазона в функции сопоставления без сохранения значений в любом другом столбце

0 голосов
/ 10 сентября 2018

Мне нужно выделить значения, которые повторяются в двух значениях столбца.

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

У меня есть код ниже, который работает только для столбца B, но не объединяет столбец C. 

 Public Sub Validate1()
CheckMaterialNumber "Sheet1", "B", "C", 3
End Sub

Public Sub CheckMaterialNumber(DestinationSheet As String, MaterialNumCol As 
String, PlantCol As String, startrow As Long)
Dim EndRow As Long
Dim row As Long
EndRow = Worksheets(DestinationSheet).Range("B" & Rows.Count).End(xlUp).row


For row = startrow To EndRow

    Dim EMaterilNumber As String
    EMaterilNumber = Worksheets(DestinationSheet).Range(MaterialNumCol & CStr(row)).Value


    Dim Tmatch As Long
    On Error Resume Next
    Tmatch = application.WorksheetFunction.CountIf(Worksheets(DestinationSheet).Range("B2:B" & EndRow), EMaterilNumber)

     If Tmatch > 1 Then
            Worksheets(DestinationSheet).Range(MaterialNumCol + CStr(row)).Interior.ColorIndex = 3
        Else
            Worksheets(DestinationSheet).Range(MaterialNumCol + CStr(row)).Interior.ColorIndex = 43
     End If


Next row

End Sub
...