[r-studio]

я попытался для начала решить проблему таким путем
в первом листе строки partdata
во втором 23.txt
https://dropmefiles.com/Fg2Cz

Код:

Sub test3()
  Dim rowCount As Integer
  rowCount = Sheet1.Range("A" & rows.Count).End(xlUp).Row
  rowCount2 = Sheet2.Range("A" & rows.Count).End(xlUp).Row
  MsgBox rowCount
  MsgBox rowCount2
  For i = 2 To rowCount
    For j = 2 To rowCount2
      If Sheet1.Range("H" & i).Value = Sheet2.Range("A" & j).Value Then
        Sheet1.Range("H" & i).Value = Sheet2.Range("B" & j)
      End If
    Next j
  Next i
End Sub

но желтым подчеркнул
rowCount = Sheet1.Range("A" & Rows.Count).End(xlUp).Row

что это значит? почему не сработало

[a_axe]

но желтым подчеркнул rowCount = Sheet1.Range("A" & Rows.Count).End(xlUp).Row что это значит? »

Насколько я могу судить - значение Sheet1 в процедуре вы не определили, код не понимает, к чему он должен обратиться.
Обратиться к конкретному листу активной рабочей книги можно через ActiveWorkbook.Sheets ("Название_листа"), или присвоить значение Sheet1:
Set Sheet1=ActiveWorkbook.Sheets ("Название_листа")
В конце не забудьте указать Set Sheet1=Nothing
Кроме того, rowCount может принимать значения чуть больше 32000, в вашем случае лучше использовать тип long.

[r-studio]

a_axe, пожалуйста, можете показать как код должен выглядеть

[a_axe]

r-studio, приложите файл excel с небольшим количеством данных. Если вас устроит результат в копии столбца А (например - в С), то vba тут вероятно не нужен, достаточно стандартных функций поискпоз + индекс.

[r-studio]

a_axe, прилржил файлик скорее всего VBA нужен, если в txt файле( (C:/partdata.txt)), из которого я в er.xlsx скопировал данные будет 10M с экселем будут проблемы