excel vlookup⁠⁠

а коровы дойные или телки еще?

можете, когда хотите, теперь задача понятна.

читайте, что такое VBA (это в гугле есть), создайте пустой модуль и вставьте туда этот код:

Sub myprogram()

Dim WB1 as Workbook, WB2 as Workbook

Dim SHT1 as Worksheet, SHT2 as Worksheet

Dim sht1_MX as Long, sht2_MX as Long, sht1_ART as long, sht2_ART as Long

Dim a as Long, b as Long, sht1_lastRow as Long, sht2_lastRow as Long

''''необходимые настройки'''

Set WB1 = Workbooks("Имя файла 1")

Set WB2 = Workbooks("Имя файла 2")

Set SHT1 = WB1.Sheets("Имя листа в 1 книге")

Set SHT2 = WB2.Sheets("Имя листа во 2 книге")

sht2_MX = 1 'номер столбца, где смотреть МХ на втором листе

sht1_MX = 1 'номер столбца, куда добавлять МХ на первом листе

sht1_ART = 10 'номер столбца, где искать артикул на первом листе

sht2_ART = 2 'номер столбца, где искать артикул на втором листе

''''дальше исправления вносить не нужно''''

sht1_lastRow = SHT1.UsedRange.Rows(SHT1.UsedRange.Rows.Count).Row

sht2_lastRow = SHT2.UsedRange.Rows(SHT2.UsedRange.Rows.Count).Row

For b = 2 to sht2_lastRow

For a = 2 to sht1_lastRow

if SHT1.Cells(a,sht1_ART)=SHT2.Cells(b,sht2_ART) then

if SHT1.Cells(a,sht1_MX)="" then

SHT1.Cells(a,sht1_MX)=SHT2.Cells(b,sht2_MX)

else

SHT1.Cells(a,sht1_MX)=SHT1.Cells(a,sht1_MX) + "," + SHT2.Cells(b,sht2_MX)

end if

end if

Next

Next

End sub

внесите нужные настройки, где я отметил - названия листа, книг, номера колонок. проверить работоспособность не могу, нет экселя)) превьюшка офиса дома внезапно закончилась)

если не заработает - завтра на работе поправлю.

вот и помогай людям после этого (

можете, когда хотите, теперь задача понятна.

читайте, что такое VBA (это в гугле есть), создайте пустой модуль и вставьте туда этот код:

Sub myprogram()

Dim WB1 as Workbook, WB2 as Workbook

Dim SHT1 as Worksheet, SHT2 as Worksheet

Dim sht1_MX as Long, sht2_MX as Long, sht1_ART as long, sht2_ART as Long

Dim a as Long, b as Long, sht1_lastRow as Long, sht2_lastRow as Long

''''необходимые настройки'''

Set WB1 = Workbooks("Имя файла 1")

Set WB2 = Workbooks("Имя файла 2")

Set SHT1 = WB1.Sheets("Имя листа в 1 книге")

Set SHT2 = WB2.Sheets("Имя листа во 2 книге")

sht2_MX = 1 'номер столбца, где смотреть МХ на втором листе

sht1_MX = 1 'номер столбца, куда добавлять МХ на первом листе

sht1_ART = 10 'номер столбца, где искать артикул на первом листе

sht2_ART = 2 'номер столбца, где искать артикул на втором листе

''''дальше исправления вносить не нужно''''

sht1_lastRow = SHT1.UsedRange.Rows(SHT1.UsedRange.Rows.Count).Row

sht2_lastRow = SHT2.UsedRange.Rows(SHT2.UsedRange.Rows.Count).Row

For b = 2 to sht2_lastRow

For a = 2 to sht1_lastRow

if SHT1.Cells(a,sht1_ART)=SHT2.Cells(b,sht2_ART) then

if SHT1.Cells(a,sht1_MX)="" then

SHT1.Cells(a,sht1_MX)=SHT2.Cells(b,sht2_MX)

else

SHT1.Cells(a,sht1_MX)=SHT1.Cells(a,sht1_MX) + "," + SHT2.Cells(b,sht2_MX)

end if

end if

Next

Next

End sub

внесите нужные настройки, где я отметил - названия листа, книг, номера колонок. проверить работоспособность не могу, нет экселя)) превьюшка офиса дома внезапно закончилась)

если не заработает - завтра на работе поправлю.

перебором щелкать ячейки на наличие коровы, при нахождении, во второй файл в ячейку вставлять данные ячейки этой ячейки + зпт + данные из первого файла.

использовать. While и if как вариант.

я вот подписан на "excel" и не первый раз вижу эти вопросы. 

гугл отменили? programmersforum отменили? cyberforum? стэковерфлоу? при чём тут пикабу, мать вашу?

комментов оставляют два, если что.