Как скопировать содержимое 2-х ячеек в одну...

[Алексей11111]

Подскажите плз. кто-нибудь как можно с помощью vba совместить надпись в 2-х ячейках, и поместить их в одну другую ячейку? допустим А1=2009, А2=год, как сделать так чтобы с помощью этих 2-х ячеек в А3 было=2009 год?

[doober]

Cells(1, 3).Value = Cells(1, 1).Value & Cells(1, 2).Value
Range("c1").Value = Range("a1").Value & Range("b1").Value

[Алексей11111]

Спасибо, всё понял, подошло...))

[Алексей11111]

Ты не подскажешь ещё почему не работает?
Dim Год As Range:
Set Год = Worksheets(1).Range("a1") & .Range("b2")
Worksheets(2).Range("b1").Offset(i * 38).Value = Год.Offset(i * 86).Value

[SAS888]

Ваш код не только неверный, но и даже понять, что Вы хотите сделать сложно. Во-первых, неправильный синтаксис. А во-вторых, как понимать смещение относительно пары несвязанных ячеек? Лучше объясните словами, что нужно сделать.

[Алексей11111]

Я его не весь просто поместил...в общем нужно скопировать 2 ячейки, которые находятся не рядом друг с другом с 1-го листа книги в одну ячейку которая находится на втором листе, при этом нужно скопировать только значение из этих 2-х ячеек и эти 2 ячейки должны меняться через определённый одинаковый промежуток 200 раз, и также ячейка в которую нужно скопировать тоже должна меняться через определённый одинаковый промежуток 200 раз... когда к примеру 2 ячейки смещаются на 86 ячеек вниз, то ячейка куда нужно скопировать меняется на 38 ячеек вниз...

[SAS888]

Вам это нужно?

Sheets(2).[B1].Offset(i * 38) = Sheets(1).[A1].Offset(i * 86) & Sheets(1).[B2].Offset(i * 86)

[Алексей11111]

Да именно это.. Спасибо больш, я что-то перемутил...