Найти в Дзене
Tab по делу

Один макрос, который сэкономит вам 2 часа каждую неделю

Сколько времени уходит у вас на то, чтобы: Если вы работаете с таблицами, вы это точно делаете. И скорее всего — вручную. А теперь представьте: вы нажимаете одну кнопку, и Excel сам удаляет дубликаты, чистит мусор, оставляя только нужные данные.
Это не фантастика. Это макрос. Макрос — это короткий скрипт внутри Excel, который выполняет за вас рутинную работу.
Вы записываете (или копируете готовый) макрос один раз — и потом используете его сколько угодно. Выглядит это так:
📂 Открыли таблицу → 🔘 Нажали кнопку → ✅ Таблица очищена Скопируйте этот код: КопироватьРедактироватьSub ОчиститьТаблицу()
' Удаляем дубликаты в столбце A
Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
' Очищаем ячейки с ненужным текстом
Dim cell As Range
For Each cell In Range("A1:A1000")
If cell.Value Like "*ИНН*" Or cell.Value Like "*ОГРН*" Or _
cell.Value Like "*руб.*" Or cell.Value Like "*чел.*" Then
cell.ClearContents
End If
Next
Оглавление

Делаете одни и те же действия в Excel? Пора автоматизировать.

Сколько времени уходит у вас на то, чтобы:

  • Удалить дубликаты строк?
  • Очистить ячейки от “ИНН”, “руб.”, “чел.” и другой ерунды?
  • Проверить, не дублируется ли строчка №317 в списке из 1000?

Если вы работаете с таблицами, вы это точно делаете. И скорее всего — вручную.

А теперь представьте: вы нажимаете одну кнопку, и Excel сам удаляет дубликаты, чистит мусор, оставляя только нужные данные.

Это не фантастика. Это
макрос.

Что такое макрос и зачем он вам

Макрос — это короткий скрипт внутри Excel, который выполняет за вас рутинную работу.

Вы записываете (или копируете готовый) макрос один раз — и потом используете его сколько угодно.

Выглядит это так:

📂 Открыли таблицу → 🔘 Нажали кнопку → ✅ Таблица очищена

Самое полезное — вот:

📌 Готовый макрос: “Удалить дубликаты и очистить мусор”

Скопируйте этот код:

КопироватьРедактироватьSub ОчиститьТаблицу()
' Удаляем дубликаты в столбце A
Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlYes

' Очищаем ячейки с ненужным текстом
Dim cell As Range
For Each cell In Range("A1:A1000")
If cell.Value Like "*ИНН*" Or cell.Value Like "*ОГРН*" Or _
cell.Value Like "*руб.*" Or cell.Value Like "*чел.*" Then
cell.ClearContents
End If
Next cell
End Sub

Что делает макрос:

  • Удаляет дубликаты из столбца А
  • Очищает ячейки с “ИНН”, “ОГРН”, “руб.”, “чел.”
  • Работает за 3 секунды, даже если строк больше тысячи

📎 Как использовать?

  1. Откройте Excel
  2. Нажмите Alt + F11
  3. Вставьте код в модуль
  4. Закройте и нажмите Alt + F8 → выберите ОчиститьТаблицу → Готово!

Автоматизируйте то, что можно не делать

Вы же не вручную сортируете почту? Не стираете руками каждую букву в Word?

Почему вы до сих пор чистите таблицы в Excel вручную?

Макрос — это просто. Один раз вставил — пользуешься каждый день.

📬 Подпишитесь на "Tab по делу", если хотите ещё больше готовых решений для Excel.

💬 А вы используете макросы? Или всё по-старинке?

👇 Напишите в комментариях.