Объединение нескольких строк в 1

@Batosay · Регистрация: 27.01.2014

Author24 — интернет-сервис помощи студентам

Добрый день!
Есть данные, которые могут располагаться в ячейках с А15:А70.
Данные расположены в 4 строки. Начинаются они всегда с заголовка "Реквизиты".
В следующей строке располагается текст "ИНН:", далее "КПП:", далее "Кор.сч.:"
Необходимо объединить данные строк "ИНН:", "КПП:", "Кор.сч.:" в одну строку через пробел, удалив все до знака ":".
И переместить результат в ячейку А5, а эти строки удалить.

Пример:
1. Вариант первоначальный:
Реквизиты
ИНН: 123456
КПП: 000000
Кор.сч.: 999999999

2. Что должно получиться:
123456 000000 999999999

@Dinoxromniy · 27.11.2017, 16:04

Batosay, VBA тут не нужен, но если есть желание - запустите запись макроса и протяните формулу.

Сообщение от Batosay

Пример:

Пример нужно выложить в виде файла excel.

Сообщение от Batosay

Пример:
1. Вариант первоначальный:
Реквизиты
ИНН: 123456
КПП: 000000
Кор.сч.: 999999999
2. Что должно получиться:
123456 000000 999999999

Допустим ваши данные набиты в столбике А в строках 1 - 27 (27 строчек - исключительно мой каприз, поскольку своего варианта вы не приложили). Тогда в ячейку B4 вбейте формулу:

Код

=ЗАМЕНИТЬ(ИНДЕКС($A$1:$A$27;2+4*СЧЁТЗ($B$1:B7));1;5;"") & " " & ЗАМЕНИТЬ(ИНДЕКС($A$1:$A$27;3+4*СЧЁТЗ($B$1:B7));1;5;"") & " " & ЗАМЕНИТЬ(ИНДЕКС($A$1:$A$27;4+4*СЧЁТЗ($B$1:B7));1;9;"")

Протяните одну ячейку В4 ниже, пока формула не выдаст ошибку. В столбце В вы получите результат.
Код VBA на протягивание формулы можете получить через рекордер, вручную можно будет поменять диапазон.

@Alex77755 · 27.11.2017, 16:04

В модуль:

Visual Basic

Function Реквизиты()
    Dim rx As Range, rf As Range, r, c, i, t, u
    Set rf = Range("A15:A70")
    Set rx = rf.Find("Реквизиты")
    If Not rx Is Nothing Then
        r = rx.Row
        c = rx.Column
        For i = 1 To 3
            t = Trim(Split(Cells(r + i, c), ":")(1))
            Реквизиты = IIf(Len(Реквизиты) = 0, t, Реквизиты & " " & t)
        Next i
    End If
End Function

Вызывать как функцию

@Alex77755 · 27.11.2017, 16:15

функция не удаляет. Для удаления процедура:

Visual Basic

Sub Реквизиты()
Dim Реквизит
    Dim rx As Range, rf As Range, r, c, i, t, u
    Set rf = Range("A15:A70")
    Set rx = rf.Find("Реквизиты")
    If Not rx Is Nothing Then
        r = rx.Row
        c = rx.Column
        For i = 1 To 3
            t = Trim(Split(Cells(r + i, c), ":")(1))
            Реквизит = IIf(Len(Реквизит) = 0, t, Реквизит & " " & t)
        Next i
    End If
    [a5] = Реквизит
    rx.Resize(4).ClearContents
End Sub

@Dinoxromniy · 27.11.2017, 16:38

Batosay, если реквизиты встречаются у вас один раз, и вставить результат нужно только один раз, то формула для A5 будет

Код

=ЗАМЕНИТЬ(ИНДЕКС($A$15:$A$70;ПОИСКПОЗ("Реквизиты";$A$15:$A$70;0)+1);1;5;"") & " " &ЗАМЕНИТЬ(ИНДЕКС($A$15:$A$70;ПОИСКПОЗ("Реквизиты";$A$15:$A$70;0)+2);1;5;"") & " " & ЗАМЕНИТЬ(ИНДЕКС($A$15:$A$70;ПОИСКПОЗ("Реквизиты";$A$15:$A$70;0)+3);1;9;"")

соответственно вариант кода будет:

Visual Basic

Sub Rekv_fin()
    
    ActiveSheet.Cells(5, 1).FormulaR1C1 = "=REPLACE(INDEX(R15C1:R70C1,MATCH(""Реквизиты"",R15C1:R70C1,0)+1),1,5,"""") & "" "" &REPLACE(INDEX(R15C1:R70C1,MATCH(""Реквизиты"",R15C1:R70C1,0)+2),1,5,"""") & "" "" & REPLACE(INDEX(R15C1:R70C1,MATCH(""Реквизиты"",R15C1:R70C1,0)+3),1,9,"""")"
    ActiveSheet.Cells(5, 1).Value = ActiveSheet.Cells(5, 1).Text
    ActiveSheet.Range("A15:A70").Find("Реквизиты").Resize(4, 1).ClearContents
    
End Sub

@Batosay 2 / 2 / 1 Регистрация: 27.01.2014 Сообщений: 172
		1
	Объединение нескольких строк в 1 27.11.2017, 14:59. Показов 1936. Ответов 4 Метки нет (Все метки) Добрый день! Есть данные, которые могут располагаться в ячейках с А15:А70. Данные расположены в 4 строки. Начинаются они всегда с заголовка "Реквизиты". В следующей строке располагается текст "ИНН:", далее "КПП:", далее "Кор.сч.:" Необходимо объединить данные строк "ИНН:", "КПП:", "Кор.сч.:" в одну строку через пробел, удалив все до знака ":". И переместить результат в ячейку А5, а эти строки удалить. Пример: 1. Вариант первоначальный: Реквизиты ИНН: 123456 КПП: 000000 Кор.сч.: 999999999 2. Что должно получиться: 123456 000000 999999999 0

@Dinoxromniy Динохромный 1400 / 763 / 284 Регистрация: 22.12.2015 Сообщений: 2,387
	27.11.2017, 16:04	2
	Batosay, VBA тут не нужен, но если есть желание - запустите запись макроса и протяните формулу. Сообщение от Batosay Пример: Пример нужно выложить в виде файла excel. Сообщение от Batosay Пример: 1. Вариант первоначальный: Реквизиты ИНН: 123456 КПП: 000000 Кор.сч.: 999999999 2. Что должно получиться: 123456 000000 999999999 Допустим ваши данные набиты в столбике А в строках 1 - 27 (27 строчек - исключительно мой каприз, поскольку своего варианта вы не приложили). Тогда в ячейку B4 вбейте формулу: Код =ЗАМЕНИТЬ(ИНДЕКС($A$1:$A$27;2+4СЧЁТЗ($B$1:B7));1;5;"") & " " & ЗАМЕНИТЬ(ИНДЕКС($A$1:$A$27;3+4СЧЁТЗ($B$1:B7));1;5;"") & " " & ЗАМЕНИТЬ(ИНДЕКС($A$1:$A$27;4+4*СЧЁТЗ($B$1:B7));1;9;"") Протяните одну ячейку В4 ниже, пока формула не выдаст ошибку. В столбце В вы получите результат. Код VBA на протягивание формулы можете получить через рекордер, вручную можно будет поменять диапазон. 0

	27.11.2017, 16:38

Объединение нескольких строк в 1

Решение