Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос. Сцепление текста ячеек через разделитель "-"
 
#1
22.01.2021 17:02:31
Извиняюсь за кучу вопросов.
Нужен макрос, который сцепляет в ячейку F5:F41, ячейки  M5:M41, N5:N41, J5:J41, Q5:Q41, P5:P41, Q5:Q41, L5:L41. С разделителем "-".

Заранее спасибо.
 
 
 
#2
22.01.2021 17:27:24
Дмитрий, свои сообщения можно редактировать и дополнять в случае необходимости.
в лоб
Код
Sub mrshkei()
Dim arr, i As Long, lr As Long
lr = Cells(Rows.Count, 2).End(xlUp).Row
For i = 5 To lr
    Cells(i, 6) = Cells(i, 13) & "-" & Cells(i, 14) & "-" & Cells(i, 10) & "-" & Cells(i, 17) & "-" & Cells(i, 12)
Next i
End Sub
Изменено: Mershik - 22.01.2021 17:33:10
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
22.01.2021 17:35:07
Дмитрий, СЦЕПИТЬ МНОГО ЯЧЕЕК С УКАЗАННЫМ РАЗДЕЛИТЕЛЕМ
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#4
22.01.2021 17:49:26
Mershik,Спасибо
 
 
 
#5
22.01.2021 17:52:43
Дмитрий,
обьедините эту тему с темой  Разбиение текста ячейки на две части
может в итоге ничего не нужно делать: ни разбивать, ни обьединять, оставвить все как есть (или в крайнем случае сразу заменить то, что разделяло, на то, что обьединяет)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
22.01.2021 17:53:21
Цитата
Дмитрий: Mershik ,Спасибо
Изменено: Jack Famous - 22.01.2021 17:53:28
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#7
22.01.2021 20:00:45
Jack Famous,  :D  
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#8
25.01.2021 10:13:01

Mershik, Приветсвую

Можно в ваш код добавить условие, которое сцепляло бы выбранные ячейки только если они заполненные все.

Код
Sub mrshkei()
Dim arr, i As Long, lr As Long
lr = Cells(Rows.Count, 2).End(xlUp).Row
For i = 5 To lr
    Cells(i, 6) = Cells(i, 13) & "-" & Cells(i, 14) & "-" & Cells(i, 10) & "-" & Cells(i, 17) & "-" & Cells(i, 12)
Next i
End Sub
Изменено: Дмитрий - 25.01.2021 10:13:33
 
 
 
#9
25.01.2021 10:19:28
Дмитрий, покажите в файле- желаемый результат, а так как понял - так сделал
Код
Sub mrshkei()
Dim arr, i As Long, lr As Long
lr = Cells(Rows.Count, 2).End(xlUp).Row
For i = 5 To lr
    If Cells(i, 13) <> "" And Cells(i, 14) <> "" And Cells(i, 10) <> "" And Cells(i, 17) <> "" And Cells(i, 12) <> "" Then
    Cells(i, 6) = Cells(i, 13) & "-" & Cells(i, 14) & "-" & Cells(i, 10) & "-" & Cells(i, 17) & "-" & Cells(i, 12)
    End If
Next i
End Sub
Изменено: Mershik - 25.01.2021 10:21:28
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#10
25.01.2021 10:23:22
Mershik, вот
Изменено: Дмитрий - 25.01.2021 10:28:17
 
 
 
#11
25.01.2021 11:01:02
Здесь этих макросов как грязи. На любой вкус.
 
 
 
Страницы: 1
Наверх