Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
-1 / 0 / 0
Регистрация: 06.04.2023
Сообщений: 56
1
Excel

Макрос снятия объединение ячеек БЕЗ заполения всех разъединенных ячеек значением, которое было в объединенной ячейке

25.04.2023, 14:59. Показов 1256. Ответов 10

Author24 — интернет-сервис помощи студентам
Ребят нужен МАКРОС,который вернет прежнее состояние объединенных ячеек в исходный вид.
Без заполнения всех разъединенных ячеек значением, которое было в объединенной ячейке.
В приложенном файле я показал два фрагмента таблицы.
1)Там где я применил объединение ячеек.
2)хочу макрос который вернет все как было до объединения с пустыми строками.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2023, 14:59
Ответы с готовыми решениями:

Макрос на объединение ячеек таблицы в 1 или собирания данных ячеек в 1
Здравствуйте. Помогите, пожалуйста. Я конвертировал таблицы пдф в эксель и получилось, что каждая...

Макрос поиска объединенной группы ячеек
Привет. Имеется лист на котором есть несколько объединенных ячеек. Кто нибудь знает с помощью...

На странице находится таблица без границ из двух ячеек. В одной ячейке картинка, в другой ячейке кнопка с надписью «Скры
На странице находится таблица без границ из двух ячеек. В одной ячейке картинка, в другой ячейке...

Объединение текста из нескольких ячеек в одну ячейке, по всей таблице
Есть большая таблица с которой требуется проводить разные манипуляции такие как сортировка и...

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

10
2741 / 1716 / 778
Регистрация: 23.03.2015
Сообщений: 5,433
25.04.2023, 15:17 2
Лучший ответ Сообщение было отмечено Zizu- как решение

Решение

Цитата Сообщение от Zizu- Посмотреть сообщение
Макрос снятия объединение ячеек
Visual Basic
1
2
3
Sub MMM()
    ActiveSheet.Cells.UnMerge
End Sub
2
-1 / 0 / 0
Регистрация: 06.04.2023
Сообщений: 56
25.04.2023, 17:35  [ТС] 3
Narimanych, Здравствуйте, уважаемый вы друг.Вы не представляете, как вы помогаете.Ваши советы бесценны!!!

В продолжении темы.Вылезла еще одна потребность после вашего МАКРОСА снятия объединения ячеек нужно сделать следующие шаги,которые я прикреплю в гифке.

На основе моих шагов сделать МАКРОС ,который будет работать в паре с первым макросом.
Шаги такие выделить диапозон разъединившихся ячеек-найти и заменить-выделить группу пустых ячеек-выбрать цвет заливки белый-чтобы можно было применять его к любому диапозону.
Миниатюры
Макрос снятия объединение ячеек БЕЗ заполения всех разъединенных ячеек значением, которое было в объединенной ячейке  
Вложения
Тип файла: xlsx Разъединение объединенных ячеек в исходный вид.xlsx (18.3 Кб, 8 просмотров)
0
2741 / 1716 / 778
Регистрация: 23.03.2015
Сообщений: 5,433
25.04.2023, 17:56 4
Лучший ответ Сообщение было отмечено Zizu- как решение

Решение

Zizu-,

Как вариант:
Visual Basic
1
2
3
4
5
6
Sub MMM()
    With ActiveSheet
        .Cells.UnMerge
        .UsedRange.SpecialCells(xlCellTypeBlanks).Interior.Color = 16777215
    End With
End Sub
1
-1 / 0 / 0
Регистрация: 06.04.2023
Сообщений: 56
25.04.2023, 18:15  [ТС] 5
Narimanych, Сработало!!!Супер. А можно еще дополнить Макрос, любой диапозон, как вы указали и тот диапозон ,который я выберу в таблице сам. А то я его применил, он закрасил белым и за линиями границ таблицы.?)
0
2741 / 1716 / 778
Регистрация: 23.03.2015
Сообщений: 5,433
25.04.2023, 18:17 6
Used range замените на selection
0
-1 / 0 / 0
Регистрация: 06.04.2023
Сообщений: 56
25.04.2023, 18:21  [ТС] 7
Narimanych, Сейчас попробую.
Visual Basic
1
2
3
4
5
6
Sub MMM()
    With ActiveSheet
        .Cells.UnMerge
        .Selection.SpecialCells(xlCellTypeBlanks).Interior.Color = 16777215
    End With
End Sub
Сейчас как все перепроверю,отпишу получилось или нет.
0
-1 / 0 / 0
Регистрация: 06.04.2023
Сообщений: 56
25.04.2023, 18:38  [ТС] 8
Narimanych, Я поменял, но он выделил в коде желтым цветом. Может не туда вставил?
Миниатюры
Макрос снятия объединение ячеек БЕЗ заполения всех разъединенных ячеек значением, которое было в объединенной ячейке  
0
2741 / 1716 / 778
Регистрация: 23.03.2015
Сообщений: 5,433
25.04.2023, 21:51 9
Лучший ответ Сообщение было отмечено Zizu- как решение

Решение

Уберите точку перед selection

Добавлено через 2 часа 55 минут
Zizu-,
Цитата Сообщение от Zizu- Посмотреть сообщение
тот диапозон ,который я выберу в таблице сам
Visual Basic
1
2
3
4
5
6
Sub MMM()
    With Selection
     .Cells.UnMerge
     .SpecialCells(xlCellTypeBlanks).Interior.Color = 16777215
    End With
End Sub
1
-1 / 0 / 0
Регистрация: 06.04.2023
Сообщений: 56
26.04.2023, 10:54  [ТС] 10
Narimanych, Сработало на все 100%!!! Круто!Благодарю!
Этот макрос мне нужен был для перестраивания своей работы с объединенными ячейками.Так как они затрудняют функционал, сортировки, фильтрации, сбои в сводных таблицах. Вот решил оставить наглядность таблицы, визульно кажется, что ячейки объединены.Думаю такой обход поможет мне в работе.
0
2741 / 1716 / 778
Регистрация: 23.03.2015
Сообщений: 5,433
26.04.2023, 11:09 11
Zizu-,
Цитата Сообщение от Zizu- Посмотреть сообщение
поможет мне в работе.
Удачи Вам в Ваших начинаниях
1
26.04.2023, 11:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.04.2023, 11:09
Помогаю со студенческими работами здесь

Объединение ячеек с одинаковым значением с учётом первого столбца
Добрый день Прошу помочь. Имеется необходимость в макросе объединения ячеек с одинаковым...

Макрос на объединение одинаковых ячеек не видит нули
здравствуйте . использую макрос для объединения одинаковых строк в первом столбце Sub q() ' '...

Объединение ячеек одного столбца при совпадении ячеек в другом
Здравствуйте, В таблице необходимо объединить все телефоны в одну ячейку, если совпадение по...

Excel 2013 - как заполнить ряд вертикальных ячеек суммарным значением с учётом соседних ячеек?
Есть таблица в Excel 2013 c ячейками с форматом Общий. В первом столбце = 3-4 цифры (например,...

Макрос: значения ячеек в зависимости от значений других ячеек
помогите с макросами значений ячеек в зависимости от значений ячеек в других столбцах в примере...

Макрос для пересчета взаимозависимых ячеек ячеек
Добрый вечер, уважаемые форумчане. Помогите, пожалуйста, реализовать следующую задачу. Имеется 2...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru