набивка товара и изменение цен

[basir]

месяц убил на поиск фоток товаров забил половину и тут "здрасте я ваша тетя".

Заказчик дает новый прайс в котором очередность товаров не совпадает со старым прайсом.

пришлось осваивать премудрости макросов экселя и вот что у меня получилось

Sub test()

oldprice = 1

newprice = 1

For oldprice = 1 To 1000

For newprice = 1 To 1000 Step 1

If Cells(oldprice, 1).Value = Cells(newprice, 3).Value Then

i = Cells(newprice, 4).Value

Cells(oldprice, 2).Value = i

Cells(newprice, 5).Value = "added"

End If

Next newprice

Next oldprice

End Sub

в столбец А забиваем список товаров старого прайса

в столбец В цены старого прайса

в столбец С список товаров нового прайса

в столбец D цены нового прайса

запускаем макрос и вуаля если в старом прайсе был такой товар заменяется цена а справа от строчки новой цены товара добавляется слово added