row или cn

Ответ от Ottvett[гуру]
Сделать макрос наподобие этого (это простейший)
Sub zzReplace()
Dim i As Long, j As Long, iI As Long, jJ As Long
Dim CN() As String, St As String
'чтение перевода из Книга1
iI = Cells(Rows.Count, 1).End(xlUp).Row
ReDim CN(iI, 2)
For i = 1 To iI
CN(i, 1) = Cells(i, 1)
CN(i, 2) = Cells(i, 2)
Next i
'вставка перевода в Книга2
With Workbooks("Книга2").Worksheets("Лист1")
jJ = .Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To jJ
St = .Cells(j, 1)
For i = 1 To iI
If St = CN(i, 1) Then
.Cells(j, 2) = CN(i, 2)
Exit For
End If
Next i
Next j
End With
End Sub