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

Вход

Регистрация

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

 

= Мир MS Excel/Между словом и последней заполненной ячейкой убрать объедин. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Между словом и последней заполненной ячейкой убрать объедин.
timo64uk Дата: Понедельник, 04.11.2024, 12:44 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 1 ±
Замечаний: 0% ±

Office16
Снова здравствуйте :D
Между словом Итого в столбце С и последней заполненной ячейкой по столбцу С нужно убрать объединенные ячейки (массив C:F).
Я в этом коде застрял, т.к. он "разобъединяет" через UnMerge от С27 ячейки (а я знаю, что выше этой ячейки слово Итого стоять не может) и до строки с Итого.
[vba]
Код
Range("E27:E" & Range("C27:C" & Rows.Count).Find("Итого").Row - 1).UnMerge
[/vba]
К сообщению приложен файл: 212121.xlsx (11.1 Kb)


Сообщение отредактировал timo64uk - Понедельник, 04.11.2024, 12:46
 
Ответить
СообщениеСнова здравствуйте :D
Между словом Итого в столбце С и последней заполненной ячейкой по столбцу С нужно убрать объединенные ячейки (массив C:F).
Я в этом коде застрял, т.к. он "разобъединяет" через UnMerge от С27 ячейки (а я знаю, что выше этой ячейки слово Итого стоять не может) и до строки с Итого.
[vba]
Код
Range("E27:E" & Range("C27:C" & Rows.Count).Find("Итого").Row - 1).UnMerge
[/vba]

Автор - timo64uk
Дата добавления - 04.11.2024 в 12:44
i691198 Дата: Понедельник, 04.11.2024, 15:18 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 342
Репутация: 109 ±
Замечаний: 0% ±

Добрый день. Попробуйте так.[vba]
Код
Range(Cells(Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row).Find("Итого").Row + 1, "E"), Cells(Cells(Rows.Count, "C").End(xlUp).Row, "F")).UnMerge
[/vba]
 
Ответить
СообщениеДобрый день. Попробуйте так.[vba]
Код
Range(Cells(Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row).Find("Итого").Row + 1, "E"), Cells(Cells(Rows.Count, "C").End(xlUp).Row, "F")).UnMerge
[/vba]

Автор - i691198
Дата добавления - 04.11.2024 в 15:18
Gustav Дата: Понедельник, 04.11.2024, 18:00 | Сообщение № 3
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация: 1161 ±
Замечаний: ±

начинал с Excel 4.0, видел 2.1
Коллеги, вы для какого сопровождальщика ваших макросов пишете такой код? Пожалейте этого человека! :D

Мои "пять копеек" в тему (я вот не гнушаюсь использовать промежуточные переменные):
[vba]
Код
Sub unMergeMacro()
    Dim ur As Range, row1 As Long, row2 As Long
    Set ur = ActiveSheet.UsedRange
    row1 = Columns("C").Find("Итого").Row
    row2 = ur.Row + ur.Rows.Count - 1
    Columns("C:F").Resize(row2 - row1).Offset(row1).UnMerge
End Sub
[/vba]


МОИ: Ник, Tip box: 41001663842605
 
Ответить
СообщениеКоллеги, вы для какого сопровождальщика ваших макросов пишете такой код? Пожалейте этого человека! :D

Мои "пять копеек" в тему (я вот не гнушаюсь использовать промежуточные переменные):
[vba]
Код
Sub unMergeMacro()
    Dim ur As Range, row1 As Long, row2 As Long
    Set ur = ActiveSheet.UsedRange
    row1 = Columns("C").Find("Итого").Row
    row2 = ur.Row + ur.Rows.Count - 1
    Columns("C:F").Resize(row2 - row1).Offset(row1).UnMerge
End Sub
[/vba]

Автор - Gustav
Дата добавления - 04.11.2024 в 18:00
timo64uk Дата: Вторник, 05.11.2024, 02:07 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 1 ±
Замечаний: 0% ±

Office16
видел 2.1

Спасибо. Всё работает
так

Спасибо. Всё работает.
 
Ответить
Сообщение
видел 2.1

Спасибо. Всё работает
так

Спасибо. Всё работает.

Автор - timo64uk
Дата добавления - 05.11.2024 в 02:07
  • Страница 1 из 1
  • 1
Поиск:

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