Добавление текста перед числовым значением

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление текста перед числовым значением (Макросы/Sub)

DenDroid

Дата: Вторник, 11.11.2014, 16:42 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Добрый день!

Помогите пожалуйста.
Необходимо средствами 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]
Искренне благодарю за помощь!

Ответить

Pelena

Дата: Вторник, 11.11.2014, 16:55 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19196

Репутация: 4423 ±

Замечаний: ±

Excel 365 & Mac Excel

Попробуйте так. Если не угадала, прикладывайте файл с примером
[vba]

Код

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

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

SAGE

Дата: Вторник, 11.11.2014, 16:57 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 25

Репутация: 5 ±

Замечаний: 0% ±

Excel 2007

DenDroid,

Пробуй так

[vba]

Код

Sub INV()
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
cells(i, 1).value = cells(i, 2).Value
cells(i, 2).value = "INV " & Cells(i, 2).Value

Next
End Sub

[/vba]

Best regards,
SAGE

Ответить

DenDroid

Дата: Среда, 12.11.2014, 10:36 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Цитата Pelena, 11.11.2014 в 16:55, в сообщении № 2

Попробуйте так. Если не угадала, прикладывайте файл с примером
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

Всё замечательно, всё заработало. Проблема была в попытке добавить текст через +, а надо было &
Огромное спасибо за помощь!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление текста перед числовым значением (Макросы/Sub)

Страница 1 из 1
1