Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Объединение строк по условию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение строк по условию (Макросы/Sub)
Объединение строк по условию
yellsamara Дата: Воскресенье, 24.09.2017, 14:08 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день!

В этом разделе уже была подобная тема но ее закрыли, уважаемые форумчане! прошу вас разрешить задачку с макросом
Данные: есть 2 столбца первый "Порядковый номер (1)", второй "Комментарий(2)", все записано в столбик, количество комментариев может быть от 1 до бесконечного количества.
Задача: 1. По выполнению макроса, напротив каждого порядкового номера должны группироваться комментарии в 3-м столбце через знак ";"
2. Тож самое только есть 2 рядом столбца с комментариями. Результат в строке должен быть номер (1 столбец), комментарий (2 столбец), комментарий (3 столбец), объедение всех строк - 2 столбца (4 столбец), объедение всех строк - 3 столбца (5 столбец).

Т.к. тут уже была подобная тема я прикладываю файл с макросом который надо допилить под мои условия.

[p.s.]Во втором файле задача решается без макроса с помощью формулы, но она почему то не хочет объединять более 15 строк как пример в диапазоне (А180:А199)
К сообщению приложен файл: 0181713.xlsx (20.0 Kb) · 9519529.xlsx (50.2 Kb)


Сообщение отредактировал yellsamara - Воскресенье, 24.09.2017, 19:20
 
Ответить
СообщениеДобрый день!

В этом разделе уже была подобная тема но ее закрыли, уважаемые форумчане! прошу вас разрешить задачку с макросом
Данные: есть 2 столбца первый "Порядковый номер (1)", второй "Комментарий(2)", все записано в столбик, количество комментариев может быть от 1 до бесконечного количества.
Задача: 1. По выполнению макроса, напротив каждого порядкового номера должны группироваться комментарии в 3-м столбце через знак ";"
2. Тож самое только есть 2 рядом столбца с комментариями. Результат в строке должен быть номер (1 столбец), комментарий (2 столбец), комментарий (3 столбец), объедение всех строк - 2 столбца (4 столбец), объедение всех строк - 3 столбца (5 столбец).

Т.к. тут уже была подобная тема я прикладываю файл с макросом который надо допилить под мои условия.

[p.s.]Во втором файле задача решается без макроса с помощью формулы, но она почему то не хочет объединять более 15 строк как пример в диапазоне (А180:А199)

Автор - yellsamara
Дата добавления - 24.09.2017 в 14:08
KuklP Дата: Воскресенье, 24.09.2017, 15:51 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
объедение всех строк и 2 столбца (4 столбец), объедение всех строк и 3 столбца
- сплошное объедение %) Плотоядная задача.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
объедение всех строк и 2 столбца (4 столбец), объедение всех строк и 3 столбца
- сплошное объедение %) Плотоядная задача.

Автор - KuklP
Дата добавления - 24.09.2017 в 15:51
Pelena Дата: Воскресенье, 24.09.2017, 16:52 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19157
Репутация: 4411 ±
Замечаний: ±

Excel 365 & Mac Excel
прикладываю файл с макросом

В приложенных файлах нет макросов


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
прикладываю файл с макросом

В приложенных файлах нет макросов

Автор - Pelena
Дата добавления - 24.09.2017 в 16:52
yellsamara Дата: Воскресенье, 24.09.2017, 17:27 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
вот такой макрос
К сообщению приложен файл: 8223877.xlsm (25.9 Kb)


Сообщение отредактировал yellsamara - Воскресенье, 24.09.2017, 17:52
 
Ответить
Сообщениевот такой макрос

Автор - yellsamara
Дата добавления - 24.09.2017 в 17:27
Pelena Дата: Воскресенье, 24.09.2017, 19:41 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19157
Репутация: 4411 ±
Замечаний: ±

Excel 365 & Mac Excel
По первому пункту
[vba]
Код
Sub res()
    lLastrow = Cells(Rows.Count, 6).End(xlUp).Row
    For i = 1 To lLastrow
        If Cells(i, 2) <> "" Then
            iY = Cells(i, 2).End(xlDown).Row - 1
            If Cells(i, 6).Value <> "" Then Text = Cells(i, 6).Value & "; "
            For iT = i + 1 To iY
                If iT > lLastrow Then Exit For
                If Cells(iT, 6).Value <> "" Then
                    Text = Text & Cells(iT, 6).Value & "; "
                End If
            Next
            Cells(i, 7).Value = Left(Text, Len(Text) - 2)
        End If
    Next
End Sub
[/vba]
По второму не поняла, нужен пример
К сообщению приложен файл: 8509052.xlsm (25.3 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПо первому пункту
[vba]
Код
Sub res()
    lLastrow = Cells(Rows.Count, 6).End(xlUp).Row
    For i = 1 To lLastrow
        If Cells(i, 2) <> "" Then
            iY = Cells(i, 2).End(xlDown).Row - 1
            If Cells(i, 6).Value <> "" Then Text = Cells(i, 6).Value & "; "
            For iT = i + 1 To iY
                If iT > lLastrow Then Exit For
                If Cells(iT, 6).Value <> "" Then
                    Text = Text & Cells(iT, 6).Value & "; "
                End If
            Next
            Cells(i, 7).Value = Left(Text, Len(Text) - 2)
        End If
    Next
End Sub
[/vba]
По второму не поняла, нужен пример

Автор - Pelena
Дата добавления - 24.09.2017 в 19:41
yellsamara Дата: Воскресенье, 24.09.2017, 19:59 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena ОГРОМНОЕ СПАСИБО!!!!!!!все замечательно работает!!!!!!!!!!! прям праздник!!!

по второму варианту все то же самое, только 2 группы комментариев при одном условие, пример во вложении.

[p.s.]Простите за мою не грамотность, я только начинающий пользователь макросов, раньше как то формулами обходился, но прям проникся темой, начну книжки читать)
К сообщению приложен файл: 2222.xlsm (15.7 Kb)


Сообщение отредактировал yellsamara - Воскресенье, 24.09.2017, 20:00
 
Ответить
СообщениеPelena ОГРОМНОЕ СПАСИБО!!!!!!!все замечательно работает!!!!!!!!!!! прям праздник!!!

по второму варианту все то же самое, только 2 группы комментариев при одном условие, пример во вложении.

[p.s.]Простите за мою не грамотность, я только начинающий пользователь макросов, раньше как то формулами обходился, но прям проникся темой, начну книжки читать)

Автор - yellsamara
Дата добавления - 24.09.2017 в 19:59
Pelena Дата: Воскресенье, 24.09.2017, 20:16 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19157
Репутация: 4411 ±
Замечаний: ±

Excel 365 & Mac Excel
Проверяйте
К сообщению приложен файл: 9885813.xlsm (17.5 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПроверяйте

Автор - Pelena
Дата добавления - 24.09.2017 в 20:16
yellsamara Дата: Воскресенье, 24.09.2017, 20:20 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, Шикарно! все отлично работает!))) спасибо! можно тему закрывать!
 
Ответить
СообщениеPelena, Шикарно! все отлично работает!))) спасибо! можно тему закрывать!

Автор - yellsamara
Дата добавления - 24.09.2017 в 20:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение строк по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!