powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Объединение ячеек
16 сообщений из 16, страница 1 из 1
Объединение ячеек
    #33572890
Al2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день, уважаемые.
При выделении в книге EXCEL нескольких диапазонов с Ctrl и их объединении получется такой код:
Range("A3:A8,B3:B8,C3:C8,D3:D8").Select
Range("D3").Activate
Selection.Merge

Мне необъодимо в макросе перелопатить все строки и при наличии одинаковых объединить их

Сейчас делаю так (в цикле):
Worksheets(1).Range(Cells(x1, 2), Cells(X2 - 1, 2)).Select
'Selection.Merge
Только приходится для нескольких столбцов дублировать несколько раз с разными индексами.

Можно ли сделать объединение 5-6 столбцов одновременно как Excel делает или нет ?
...
Рейтинг: 0 / 0
Объединение ячеек
    #33575026
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Al2006Добрый день, уважаемые.
При выделении в книге EXCEL нескольких диапазонов с Ctrl и их объединении получется такой код:
Range("A3:A8,B3:B8,C3:C8,D3:D8").Select
Range("D3").Activate
Selection.Merge
Нельзя использовать Select!

Al2006Мне необъодимо в макросе перелопатить все строки и при наличии одинаковых объединить их
что значит "одинаковые строки"? Объединять ты можешь только группы прямоугольной формы конкретных ячеек. Делается это просто:
Код: plaintext
Range("A3:D8").Merge
Если нужно сделать объединения нескольких областей по отдельности, то команда будет другая:
Код: plaintext
Range("A3:A8,B3:B8,C3:C8,D3:D8").MergeCells = true
Простой метод Merge требует чтобы была активной хотя бы одна из ячеек внутри любой из объединямых областей.


Al2006Только приходится для нескольких столбцов дублировать несколько раз с разными индексами.Вообще-то, существует такая вещь как вложеные циклы.
...
Рейтинг: 0 / 0
Объединение ячеек
    #33575645
al2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
- Нельзя использовать Select!

Так ведь я привожу макрос, записанный в экселе (Макрос- Начать запись...)

- Range("A3:A8,B3:B8,C3:C8,D3:D8").MergeCells = true
А если мне надо объединить ячейки в цикле (допустим, те, в которых значения ячеек одинаковые)

Worksheets(1).Range(Cells(x1, 2), Cells(X2 - 1, 2)).Merge - это объединение ячеек второго столбца.

И получается, что данная операция будет повторяться раз 5-6, что довольно долго.

Вопрос-то как раз в том, как можно строку
Range("A3:A8,B3:B8,C3:C8,D3:D8").MergeCells = true

приспособить для использования в цикле.
...
Рейтинг: 0 / 0
Объединение ячеек
    #33575648
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Al2006Добрый день, уважаемые.
При выделении в книге EXCEL нескольких диапазонов с Ctrl и их объединении получется такой код:
Range("A3:A8,B3:B8,C3:C8,D3:D8").Select
Range("D3").Activate
Selection.Merge

Мне необъодимо в макросе перелопатить все строки и при наличии одинаковых объединить их

Сейчас делаю так (в цикле):
Worksheets(1).Range(Cells(x1, 2), Cells(X2 - 1, 2)).Select
'Selection.Merge
Только приходится для нескольких столбцов дублировать несколько раз с разными индексами.

Можно ли сделать объединение 5-6 столбцов одновременно как Excel делает или нет ?
может это тебе нужно?
Код: plaintext
1.
2.
x1 =  3 
x2 =  8 
Range("A" & x1 & ":A" & x2 -  1  & ",C" & x1 & " :C" & x2 -  1 ).MergeCells = True
...
Рейтинг: 0 / 0
Объединение ячеек
    #33578288
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
al2006- Нельзя использовать Select!
Так ведь я привожу макрос, записанный в экселе (Макрос- Начать запись...)
Я знаю :) Но что позволено Экселю не позволено всем остальным. Метод Select имеет очень много ограничений и он резко замедляет работу.

al2006- Range("A3:A8,B3:B8,C3:C8,D3:D8").MergeCells = true
А если мне надо объединить ячейки в цикле (допустим, те, в которых значения ячеек одинаковые)Ну тогда и делай себе цикл. Определяешь по каким-то критериям прямоугольную область, формируешь строку описывающую область и делаешь Range(MyArea).MergeCells=true.

al2006Вопрос-то как раз в том, как можно строку
Range("A3:A8,B3:B8,C3:C8,D3:D8").MergeCells = true
приспособить для использования в цикле.Ты в своем цикле можешь опеределить какие области надо объединять? Ну вот и сформируй строку описывающие одну, две, десять, сто двадцать две области за раз и отдай эту строку в метод Range. Сначала в цикле формируешь адресную строку, потом один раз обращаешься к Экселю.
...
Рейтинг: 0 / 0
Объединение ячеек
    #34152539
.kbz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
vkodor
Member
Столкнулась с этой же проблемой "Объединение ячеек", вот только не получается написать макросю. Очень нужна помощь!!!

julia
...
Рейтинг: 0 / 0
Объединение ячеек
    #34152568
.kbz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
vkodor
Member
Столкнулась с этой же проблемой "Объединение ячеек", вот только не получается написать макрос. Очень нужна помощь!!!

julia
...
Рейтинг: 0 / 0
Объединение ячеек
    #34152597
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
.kbzvkodor
Member
Столкнулась с этой же проблемой "Объединение ячеек", вот только не получается написать макросю. Очень нужна помощь!!!

julia
Что сделано?
Как пробывали?
Выложите Ваши попытки.
...
Рейтинг: 0 / 0
Объединение ячеек
    #34152647
.kbz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
"Я только учюсь". Все попытки как начинающего, не сохранились, т.к. запуталась сама.
Все что было получено во времы обучения не смогла объединить, т.к. ничего похожего не давалось. Да и когда не пользуешься этим оно забывается.
С чего начать писать макрос!
...
Рейтинг: 0 / 0
Объединение ячеек
    #34152757
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
.kbz
С чего начать писать макрос!
Это вопрос?
Если да, тогда Вам сюда www.firststeps.ru
...
Рейтинг: 0 / 0
Объединение ячеек
    #34153231
.kbz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо за ссылку на сайт и спасибо за помощь. Помогло но немного.
Мне нужно объединить 4 ячейки-столбца с текстом и цифровой записью ("Учреждение, год окончания, специальность, № диплома") в один ("Диплом об образовании") записанные в строчку или череэ запятую в 1 ячейке. А потом все это продублировать на нижележащие строчки в стобце.
То что я просмотрела больше относятся к обработке цифровых записей.
Но все равно это больше всего того, что я смогла найти.

Julia
...
Рейтинг: 0 / 0
Объединение ячеек
    #34153311
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
есть такая функция "СЦЕПИТЬ()"
допустим в А1,В1,С1,D1 есть информация
пишем в E1
=СЦЕПИТЬ(A1;", ";B1;", ";C1;", ";D1)
ну и жмем "Entire"
получаем (а впрочем сами посмотрите)
P.S. это называется не оьединение ячеек
...
Рейтинг: 0 / 0
Объединение ячеек
    #34153333
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
как можно добавать символ к уже емеющимуся тексту в Excel
...
Рейтинг: 0 / 0
Объединение ячеек
    #34153383
.kbz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
vkodorесть такая функция "СЦЕПИТЬ()"
допустим в А1,В1,С1,D1 есть информация
пишем в E1
=СЦЕПИТЬ(A1;", ";B1;", ";C1;", ";D1)
ну и жмем "Entire"
получаем (а впрочем сами посмотрите)
P.S. это называется не оьединение ячеек

Огромное спасибо!!
На этот раз получилось. До этого я использовала эту функцию, но ничего не вышло.
Спасибо всем за помощь!
julia
...
Рейтинг: 0 / 0
Объединение ячеек
    #34157175
Игорь Щ.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день! Есть такой вопрос - при объединении ячеек постоянно вылезает окно с просьбой подтвердить слияние. Как от него избавиться? Спасибо.
...
Рейтинг: 0 / 0
Объединение ячеек
    #34157434
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Выполнение макроса и диалоговые окна
...
Рейтинг: 0 / 0
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Объединение ячеек
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]