как к каждой ячейки добавить одинаковую часть????

[UliyaP]

Привет!!!
Подскажите!!!!
У меня есть столбец, мне надо его скопировать в другое место и к каждой ячейки добавить "1р".
Пример:

номер 380312-В21
новый номер 1р380312-В21


Заранее спасибо!!!!!

[RayShade]

Код: Выделить всё



worksheets(1).cells(1,1).value="1p" & worksheets(2).cells(1,1).value



[UliyaP]

а если у меня еще есть условие, ты прибовляем 1р, только евли в третьем столбце стоит значение добавить?
подскажите тогда, что делать

[UliyaP]

и для всего столбца сразу.

[Genyaa]

Я бы решал через формулы с условием, да и все...

=ЕСЛИ(B1="Добавлять";"1р";"")&A1

и размножить формулу на весь столбец... потом от формул можно избавиться, оставив значения, если нужно.

[KL]

Код: Выделить всё

Sub test()
    [A1:A5] = [IF(C1:C5="добавить","1p"&A1:A5,A1:A5)]
End Sub

Код: Выделить всё

Sub test()
   Range("A1:A5") = Evaluate("IF(C1:C5=""добавить"",""1p""&A1:A5,A1:A5)")
End Sub