Помогите пожалуйста. Необходимо средствами vba построчно скопировать данные из второго столбца таблицы в первый, а во втором столбце перед уже имеющимся числовым значением добавить текст.
Например: было 23456, а стало INV23456
Свое решение к сожалению не работает и не могу понять почему?
[vba]
Код
Sub INV() For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row Range("A" & i) = Range("B" & i).Value Range("B" & i) = ("INV") + Range("B" & i).Value
Next End Sub
[/vba] Искренне благодарю за помощь!
Добрый день!
Помогите пожалуйста. Необходимо средствами vba построчно скопировать данные из второго столбца таблицы в первый, а во втором столбце перед уже имеющимся числовым значением добавить текст.
Например: было 23456, а стало INV23456
Свое решение к сожалению не работает и не могу понять почему?
[vba]
Код
Sub INV() For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row Range("A" & i) = Range("B" & i).Value Range("B" & i) = ("INV") + Range("B" & i).Value
Попробуйте так. Если не угадала, прикладывайте файл с примером Sub INV() For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row Cells(i, 1) = Cells(i, 2).Value Cells(i, 2) = "INV" & Cells(i, 2).Value
Next End Sub
Всё замечательно, всё заработало. Проблема была в попытке добавить текст через +, а надо было & Огромное спасибо за помощь!
Попробуйте так. Если не угадала, прикладывайте файл с примером Sub INV() For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row Cells(i, 1) = Cells(i, 2).Value Cells(i, 2) = "INV" & Cells(i, 2).Value
Next End Sub
Всё замечательно, всё заработало. Проблема была в попытке добавить текст через +, а надо было & Огромное спасибо за помощь!DenDroid