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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

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

timo64uk

Дата: Понедельник, 04.11.2024, 12:44 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 1 ±

Замечаний: 0% ±

Office16

Снова здравствуйте

Между словом Итого в столбце С и последней заполненной ячейкой по столбцу С нужно убрать объединенные ячейки (массив 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

Ответить

i691198

Дата: Понедельник, 04.11.2024, 15:18 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 349

Репутация: 110 ±

Замечаний: 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]

Ответить

Gustav

Дата: Понедельник, 04.11.2024, 18:00 | Сообщение № 3

Группа: Админы

Ранг: Участник клуба

Сообщений: 2808

Репутация: 1184 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

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

Мои "пять копеек" в тему (я вот не гнушаюсь использовать промежуточные переменные):
[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]