Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос Сцепить столбцы в выделенном диапазоне построчно, откорректировать макрос
 
#1
08.10.2022 20:24:43

Здравствуйте, Уважаемые Специалисты!

Помогите, откорректировать макрос. Нужно сцепить построчно выделенные столбцы  и поместить результат в столбец, следующий за выделенным диапазоном. Нашла на форуме макрос, но он сцепляет слитно, а мне нужно через разделитель пробел, и формат полученных данных "текстовый".

Код
Sub Сцепить()
Dim lngI As Long
Dim lngJ As Long
Dim strS As String
    For lngI = 1 To Selection.Rows.Count
        For lngJ = 1 To Selection.Columns.Count
            strS = strS & Selection.Cells(lngI, lngJ)
        Next lngJ
    Selection.Cells(lngI, lngJ) = strS
    strS = ""
    Next lngI
  End Sub
 
 
 
#2
08.10.2022 22:17:19
а так:
Код
Sub Ñöåïèòü()
  Dim lngI As Long
  Dim lngJ As Long
  Dim strS As String
  For lngI = 1 To Selection.Rows.Count
    For lngJ = 1 To Selection.Columns.Count
      strS = strS & " " & Selection.Cells(lngI, lngJ)
    Next lngJ
    Selection.Cells(lngI, lngJ) = Right(strS, Len(strS) - 1)
    strS = ""
  Next lngI
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
08.10.2022 22:51:58
Ігор Гончаренко, Благодарю! :)  То что нужно!
 
 
 
#4
08.10.2022 22:56:51
Подскажите, как в этом макросе к объединенному столбцу применить формат "текстовый" ?
 
 
 
#5
08.10.2022 23:02:21
Код
  Next lngI
  Selection.Cells(lngI, lngJ).EntireColumn.NumberFormat = "@"
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
08.10.2022 23:11:30
Спасибо за помощь!
 
 
 
#7
09.10.2022 15:50:14

Вчера-сегодня я протестировала макрос. Выявился дефект. Бывает, что нужно сцепить 4 столбца и  в 4 столбце не все ячейки заполнены. При сцепке, где были пустые ячейки в конце строки образуется пробел, который очень не нужен.
 
 
 
#8
09.10.2022 16:36:31
Вместо Right можно применить Application.Trim() (без параметра) - так отрежет и первый лишний пробел, и возможно лишние внутри и на конце.
 
 
 
#9
09.10.2022 17:30:10
"Я не волшебник, я только учусь!"© :)  Пропишите, пожалуйста, строку (или строки), которою мне нужно вставить в макрос.
 
 
 
#10
09.10.2022 18:01:52
Код
Selection.Cells(lngI, lngJ) = Trim(strS)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#11
10.10.2022 02:30:09
по поводу Trim и WorksheetFunction.Trim

Код
Sub Test()
    Dim str As String, sResult1 As String, sResult2 As String
    
    str = "        oops,     I did it again      yep"
    sResult1 = Trim(str)
    sResult2 = WorksheetFunction.Trim(str)
    
    MsgBox "'" & sResult1 & "'" & vbLf & "'" & sResult2 & "'" & vbLf & vbLf & "Строки НЕ равны", , ""
End Sub
Изменено: New - 10.10.2022 02:31:38
 
 
 
#12
10.10.2022 10:02:26
Цитата
New: по поводу Trim и WorksheetFunction.Trim
Trim невероятно быстрый, но не удаляет двойные пробелы
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
Страницы: 1
Наверх