Developing.ru

Код: Выделить всё

Sub MyCopy()
  Dim oRange1 As Range
  Dim oRange2 As Range
  Dim oWh1 As Worksheet
  Dim oWh2 As Worksheet
 
  Set oWh1 = Worksheets("Лист1")
  Set oWh2 = Worksheets("Лист2")
 
  For i = 1 To oWh1.UsedRange.Rows.Count
    Set oRange1 = oWh1.Cells(i, 1)
    f = False
    For j = 1 To oWh2.UsedRange.Rows.Count
        Set oRange2 = oWh2.Cells(j, 3)
        If oRange1.Value = oRange2.Value Then
            oWh1.Cells(i, 2).Value = oWh2.Cells(j, 4).Value
            f = True
            Exit For
        End If
    Next j
    If Not (f) Then
        oWh1.Cells(i, 2).Value = "НЕ НАШЕЛ ЗНАЧЕНИЕ"
    End If
  Next i
End Sub