Объединение значений ячеек

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Объединение значений ячеек - Мир MS Excel

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

Объединение значений ячеек (Макросы/Sub)

Объединение значений ячеек

ant6729

Дата: Суббота, 19.08.2017, 02:29 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

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

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

Excel 2010

Всем добрый день, прошу помочь с решением

[vba]

Код

Sub go()
lr = Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lr
'Cells(i, 11).Value = CStr(Cells(i, 11).Value)
'Cells(i, 2).Value = Int(Cells(i, 2).Value)
'n = Cells(i, 2).Value

If Cells(i, 11).Value Like "*вася*" Then Cells(i, 2).Value = Cells(i, 2).Value + " " + "(" + Cells(i, 11).Value + ")"
Next i
End Sub

[/vba]

Не могу объединить значения
С другими ячейками код работает, с этими не может.
Причина, во второй колонке. Не могу понять, что с ней не так.
Подскажите, пожалуйста, как реализовать задуманное.