Как уменьшить размер файла Excel

При работе с файлами Excel, может сложиться ситуация, когда файл неожиданно стал весить непростительно много мегабайт, в этой статье мы рассмотрим основные методы, как возможно уменьшить размер файла Excel.

Способ 1. Удаление лишних строк в Excel

Итак, у нас есть файл из нескольких строк, который вдруг начал тормозить и весить десятки мегабайт. Самая распространенная причина – это лишние строки. Формат файла Excel устроен таким образом, что он сохраняет информацию о всех ячейках, в которых есть какие либо данные, в том числе информация о форматировании ячейки.

Нажмите комбинацию клавиш Ctrl+End, что бы переместиться в конец области с данными. Если вы переместились на строку, в которой нет нужной вам информации, то их можно удалить.

Для этого выделите строку, кликнув на ее номер левой клавишей мышки:

Далее нажмите клавишу Shift и удерживая ее, кликните на номер строки, находящейся сразу под вашей таблицей. Таким образом вы выделите лишний диапазон строк, которые нужно удалить:

Далее нажмите правой кнопкой мыши в любом месте выделенного диапазона и выберите команду «Удалить».

Теперь сохраните файл, его размер должен значительно уменьшится.

Способ 2. Удаление скрытых имен в Excel

Еще одной причиной излишнего размера файла, является наличие скрытых имен. Обычно это происходит, когда вы копируете лист из другого файла, где они уже есть, таким образом они копируются в ваш файл.

Что бы удалить скрытые имена, вам понадобится следующий макрос:

Sub DeleteHiddenNames()
Dim n As Name
Dim Count As Integer
On Error Resume Next
For Each n In ActiveWorkbook.Names
    If Not n.Visible Then
    n.Delete
    Count = Count + 1
    End If
Next n
MsgBox "Скрытые имена в количестве " & Count & " удалены"
End Sub

Запустите его и подождите выполнения. После этого сохраните файл и оцените результат.

Если вы не умеете работать с макросами, то прочитайте нашу статью «Как удалить скрытые имена в Excel», в ней все подробно описано.

Способ 3. Удаление лишних стилей в Excel

Как и в случае со скрытыми именами, при копировании листов из других файлов, в ваш файл могут попасть стили, которые вы не используете, но они увеличивают размер файла.

Для того, чтобы их удалить воспользуйтесь следующим макросом:

Sub StyleKiller()
Dim N As Long, i As Long
With ActiveWorkbook
    N = .Styles.Count
    For i = N To 1 Step -1
        If Not .Styles(i).BuiltIn Then .Styles(i).Delete
    Next i
End With
MsgBox ("Лишние стили удалены")
End Sub

Запустите его, дождитесь окончания выполнения, сохраните файл.

Если вы не знакомы с макросами, то прочитайте нашу статью «Как удалить лишние стили в Excel», в ней мы подробно описали, что надо делать.

Способ 4. Уменьшение размера рисунка в Excel

Вы вставили рисунок в Excel и файл неожиданно стал весить слишком много. Это можно исправить изменением этого рисунка.

Для этого нажмите на рисунок, далее на вкладке «Формат» выберите команду «Сжать рисунки»: