Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сцепка текста в соседних ячейках макросом
 
#1
15.12.2019 21:42:52
Добрый вечер.
Помогите с макросом при выделение диапазона что бы сцеплял текст.
Изменено: DartoArem - 15.12.2019 21:45:54
 
 
 
#2
15.12.2019 21:53:40
http://www.excelworld.ru/forum/3-25-1
 
 
 
#3
15.12.2019 22:02:11
Там вариант как склеить весь текст из всех ячеек.
А нужно склеить построчно
 
 
 
#4
15.12.2019 22:10:12
Код
Sub iConcatenate()
Dim i As Long
Dim iLastRow As Long
Dim j As Integer
Dim iLastCol As Integer
Dim stroka As String
 iLastRow = Range("A1").End(xlDown).Row
  For i = 1 To iLastRow
    stroka = Cells(i, 1)
    iLastCol = Cells(i, Columns.Count).End(xlToLeft).Column
    If iLastCol >= 2 Then
      For j = 2 To iLastCol
        stroka = stroka & "[" & Cells(i, j) & "]"
      Next
    End If
    Cells(i, 1) = stroka
  Next
End Sub
 
 
 
#5
15.12.2019 22:12:34
Нижняя таблица - это желаемый результат? Зачем в ней повторяются второй и третий столбцы?
 
 
 
#6
15.12.2019 22:23:08
Юрий М, да. Показать что ячейки должны остаться

Kuzmich,
Спасибо но макрос обеденяет текст из диапазона в одну ячейку
А нужно построчно
A1+B1
A2+B2+C2
 
 
 
#7
15.12.2019 22:25:22
Цитата
DartoArem написал:
Там вариант как склеить весь текст из всех ячеек.А нужно склеить построчно
Там вариант, как склеить совершенно любым образом. Можно сверху вниз наискосок, можно сбоку на бок.
 
 
 
#8
15.12.2019 22:30:02
Спасибо.
Но там функции, а нужен макрос.
Сам переделать функцию не смогу(
 
 
 
#9
15.12.2019 22:32:24
Чем мой вариант не подошел?
 
 
 
#10
15.12.2019 22:35:18
DartoArem, возможен ли вариант, когда в исходных данных второй столбец пустой, а третий заполнен?
 
 
 
#11
15.12.2019 22:38:00
Юрий М, да.

Kuzmich, вариант отлично работает если данные начинаются с ячейки A1
Но если данные начинаются с H6:I10
То эксель вылетает

А еще там глюк если данные начинаются с A10
то он все копирует в одну ячейку
 
 
 
#12
15.12.2019 22:43:07
Цитата
Но если данные начинаются с H6:I10
То эксель вылетает
Так скорректируйте код под этот диапазон
 
 
 
#13
15.12.2019 22:43:16
Цитата
DartoArem написал:
если данные начинаются с H6:I10
Но Вы же в примере показали начало диапазона с ячейки А1. Как макрос должен понять, где начинается таблица? Может быть приемлем вариант с выделенным диапазоном?
 
 
 
#14
15.12.2019 22:46:15
Да, извините что я плохо изъясняюсь  
 
 
 
#15
15.12.2019 23:08:37
См. вариант. Выделить диапазон и выполнить этот макрос. Проверку на количество выделенных ячеек не делал.
Код
Sub Macro1()
Dim LastRow As Long, Adr As String, Arr(), i As Long, j As Long
    Arr = Selection.Value
    Adr = Selection.Cells(1, 1).Address
    For i = 1 To UBound(Arr)
        For j = 2 To UBound(Arr, 2)
            If Arr(i, j) <> "" Then
                Arr(i, 1) = Arr(i, 1) & " [" & Arr(i, j) & "] "
            End If
        Next
    Next
    Range(Adr).Resize(UBound(Arr), 1).Value = Arr
End Sub
 
 
 
#16
15.12.2019 23:10:56
Юрий М,  Большое вам спасибо, выручили.
Kuzmich,  Большое и вам спасибо
 
 
 
#17
15.12.2019 23:14:21
Цитата
Юрий М написал:
Проверку на количество выделенных ячеек не делал.
3000 строк меньше чем за секунду
 
 
 
#18
15.12.2019 23:18:30
Про проверку - я не об этом: не делал проверку, если выделено НЕ несколько ячеек ))
P.S. Переменная LastRow Лишняя. Но не мешает.
 
 
 
Страницы: 1
Наверх