Вставка текста в конце списка

Вход

Регистрация

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

= Мир MS Excel/Вставка текста в конце списка - Мир MS Excel

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

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

Вставка текста в конце списка (Макросы/Sub)

Вставка текста в конце списка

Ярик

Дата: Четверг, 19.09.2019, 20:28 | Сообщение № 1

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

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

Сообщений: 130

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

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

Excel 2007

Добрый вечер. Помогите решить задачу, есть накладная (заранее количество строк неизвестно) нужно в конце списка (в новой строке с объединенными ячейками) вставить фразу "СПАСИБО ЗА ПОКУПКУ".
Без кнопки, чтобы макрос сам определил последнюю заполненную ячейку и вставил строку с текстом.

К сообщению приложен файл: 7202745.xlsb (8.6 Kb)

753123

Ответить

Pelena

Дата: Четверг, 19.09.2019, 22:53 | Сообщение № 2

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

Ранг: Местный житель

Сообщений: 19405

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте
[vba]

Код

Sub спс()
    With Cells(Rows.Count, 1).End(xlUp).Offset(1)
        .Resize(1, 5).Merge
        .Value = "СПАСИБО ЗА ПОКУПКУ!"
        .Font.Size = 16
        .Font.Bold = True
    End With
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Ярик

Дата: Суббота, 21.09.2019, 19:47 | Сообщение № 3

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

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

Сообщений: 130

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

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

Excel 2007

Pelena огромное Вам спасибо за помощь.

753123

Ответить

Вставка текста в конце списка (Макросы/Sub)

Страница 1 из 1
1