Public Sub dopln()
For rd = 1 To List2.UsedRange.Rows.Count
lcol = 2
For rd2 = 1 To List1.UsedRange.Rows.Count
If List1.Cells(rd2, 1) = List2.Cells(rd, 1) Then
List2.Cells(rd, lcol) = List1.Cells(rd2, 2)
lcol = lcol + 1
End If
Next
Next
End Sub
M@citovat
For rd = 1 To List2.UsedRange.Rows.Count
lcol = 2
For rd2 = 1 To List1.UsedRange.Rows.Count
If List1.Cells(rd2, 1) = List2.Cells(rd, 1) Then
List2.Cells(rd, lcol) = List1.Cells(rd2, 2)
lcol = lcol + 1
End If
Next
Next
End Sub
M@citovat