Всем привет! 👋
В прошлом обзоре мы рассмотрели как поменять столбцы местами.
А как насчет строк?..
Сегодня рассмотрим макрос который позволит менять строки местами.
📢 Файл с исходным кодом размещен в конце статьи 🔽
▶️ Пример макроса
Использование данного кода позволяет легко и эффективно поменять местами два диапазона строк:
▶️ Краткое описание
- Объявление переменных: Rows1, Rows2, RowsEnd - переменные для хранения ссылок на выбранные диапазоны строк.
- Проверка выбора диапазонов: Проверяется, что выбор пользователя является диапазоном строк. Если не соответствует, выводится сообщение об ошибке.
- Проверка количества выбранных областей: Проверяется, что выбраны две области. Если не соответствует, выводится сообщение об ошибке.
- Проверка полноты выбранных строк: Проверяется, что каждая выбранная область содержит все столбцы таблицы.
Если не соответствует, выводится сообщение об ошибке. - Настройка приложения Excel: Отключение автоматического расчета формул. Включение обновления экрана. Включение отображения сообщений и предупреждений.
- Перемещение строк: Если первая выбранная область находится выше второй, меняется порядок выбора.Записывается ссылка на первую и вторую выбранные области и на конечную позицию.
Выполняется вырезание второй области и вставка ее перед первой.
Выполняется вырезание первой области и вставка ее перед конечной позицией. - Восстановление настроек приложения Excel: Включение автоматического расчета формул. Включение обновления экрана.
Включение отображения сообщений и предупреждений. - Обработка ошибок: Если возникает ошибка, выводится соответствующее сообщение.
▶️ Как использовать
Чтобы эффективно использовать данный макрос добавьте значок на панель быстрого доступа 🔽
или настройте ленту 🔽
▶️ Тестируем результат
- Исходные данные:
- Поменяем местами строку1 и строку5:
🔔 Убедитесь, что перед использованием выделены правильные диапазоны строк, чтобы достичь желаемых результатов.
