Sub объеденить_ячейки() ' Const sDELIM As String = " " Dim rCell As Range Dim sMergeStr As String If TypeName(Selection) <> "Range" Then Exit Sub With Selection For Each rCell In .Cells sMergeStr = sMergeStr & sDELIM & rCell.Text Next rCell Application.DisplayAlerts = False .Merge Across:=False Application.DisplayAlerts = True .Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM)) End With Selection.UnMerge End Sub
[/vba] Макрос объединяет все выделенные столбцы и строки в одну ячейку может быть на его основе возможно сделать следующее: прошу помочь, нужно что бы на странице объединение было только по строчно, каждый столбец на странице в одну строку т.е. 1a <= 1a 1b 1c 1d ...1v .... 2a <= 2a 2b 2 c ... 2v и т.д.
есть макрос
[vba]
Код
Sub объеденить_ячейки() ' Const sDELIM As String = " " Dim rCell As Range Dim sMergeStr As String If TypeName(Selection) <> "Range" Then Exit Sub With Selection For Each rCell In .Cells sMergeStr = sMergeStr & sDELIM & rCell.Text Next rCell Application.DisplayAlerts = False .Merge Across:=False Application.DisplayAlerts = True .Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM)) End With Selection.UnMerge End Sub
[/vba] Макрос объединяет все выделенные столбцы и строки в одну ячейку может быть на его основе возможно сделать следующее: прошу помочь, нужно что бы на странице объединение было только по строчно, каждый столбец на странице в одну строку т.е. 1a <= 1a 1b 1c 1d ...1v .... 2a <= 2a 2b 2 c ... 2v и т.д.Лехаа
ну как же, хочу вот что: нужно что бы на странице объединение было только по строчно, -все столбцы в 1й строке объединились в ячейку 1a -все столбцы в 2й строке объединились в ячейку 2a ... -все столбцы в 100й строке объединились в ячейку 100a
ну как же, хочу вот что: нужно что бы на странице объединение было только по строчно, -все столбцы в 1й строке объединились в ячейку 1a -все столбцы в 2й строке объединились в ячейку 2a ... -все столбцы в 100й строке объединились в ячейку 100a
Вполне возможно, что и перемудрил, но отлаживать уже некогда - начальство вызвало:[vba]
Код
Sub объеденить_ячейки_по_строкам() If TypeName(Selection) <> "Range" Then Exit Sub Const sDELIM$ = "|" Dim rRow As Range, i&, sMergeStr$ With Selection For i = 1 To .Rows.Count Set rRow = Intersect(.Cells, Selection(i).EntireRow) sMergeStr = Join(Application.Index(rRow.Value, 1, 0), sDELIM) rRow.ClearContents: rRow(1).Value = sMergeStr Next i End With End Sub
[/vba]
Вполне возможно, что и перемудрил, но отлаживать уже некогда - начальство вызвало:[vba]
Код
Sub объеденить_ячейки_по_строкам() If TypeName(Selection) <> "Range" Then Exit Sub Const sDELIM$ = "|" Dim rRow As Range, i&, sMergeStr$ With Selection For i = 1 To .Rows.Count Set rRow = Intersect(.Cells, Selection(i).EntireRow) sMergeStr = Join(Application.Index(rRow.Value, 1, 0), sDELIM) rRow.ClearContents: rRow(1).Value = sMergeStr Next i End With End Sub
Вы хотите, чтобы объединялось содержимое ячеек или чтобы 100 ячеек строки превратились в одну мега-ячейку?
надо автоматически объединить ячейки от: - "1a" до "1w" объединить в 1а - "2a" до "2w" объединить в 2а - "3a" до "3w" объединить в 3а - "4a" до "4w" объединить в 4а - "5a" до "5w" объединить в 5а ... - "100a" до "100w" объединить в 100а
Вы хотите, чтобы объединялось содержимое ячеек или чтобы 100 ячеек строки превратились в одну мега-ячейку?
надо автоматически объединить ячейки от: - "1a" до "1w" объединить в 1а - "2a" до "2w" объединить в 2а - "3a" до "3w" объединить в 3а - "4a" до "4w" объединить в 4а - "5a" до "5w" объединить в 5а ... - "100a" до "100w" объединить в 100аЛехаа
Вполне возможно, что и перемудрил, но отлаживать уже некогда - начальство вызвало:
Спасибо за попытку, но моя версия делает тоже самое, выделенное объединяет в одну ячейку, хотелось бы что бы выделенное объединялось построчно схематично см рис.[url=]My WebPage[/url]
сделано: [url=]My WebPage[/url]
в данном примере объединил всего 4 строки выделяя каждую строку и применяя макрос на объединение, вручную с помощью своего макроса, а хотелось бы объединять на автомате диапазон из 50 строк
Вполне возможно, что и перемудрил, но отлаживать уже некогда - начальство вызвало:
Спасибо за попытку, но моя версия делает тоже самое, выделенное объединяет в одну ячейку, хотелось бы что бы выделенное объединялось построчно схематично см рис.[url=]My WebPage[/url]
сделано: [url=]My WebPage[/url]
в данном примере объединил всего 4 строки выделяя каждую строку и применяя макрос на объединение, вручную с помощью своего макроса, а хотелось бы объединять на автомате диапазон из 50 строкЛехаа
Сообщение отредактировал Лехаа - Четверг, 05.06.2014, 16:12
Я не могу с работы качать файлы с макросами (Спасибо собакам-сисадминам! Чтобы у них за это все аккаунты покоцались! ). А дома занимаюсь в основном домашними делами Если выложите файл без макросов в формате 2003 и текст процедур, то может быть посмотреть и смогу.
Я не могу с работы качать файлы с макросами (Спасибо собакам-сисадминам! Чтобы у них за это все аккаунты покоцались! ). А дома занимаюсь в основном домашними делами Если выложите файл без макросов в формате 2003 и текст процедур, то может быть посмотреть и смогу.Alex_ST
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
).