кто-то отправить мне файл Excel, который 10 МБ, и, таким образом, вызывает у нас проблемы с электронной почтой. Когда. zip'Ed он идет до менее 1 МБ, поэтому, по-видимому, что-то не так с листом Excel, но есть ли способ уменьшить файл excel в размере, не сжимая его?
У меня есть ряд версий Excel доступны для меня, кстати.
3671
Если есть место, которое может быть "исправлено", есть несколько разных вещей, которые вы можете попробовать:
сбросить все используемые диапазоны в каждой книге. Это можно сделать с помощью метода VBA следующим образом:
KompPublic Sub ResetAllLastCells()
Dim wks As Worksheet
Dim i As Long
For Each wks In ActiveWorkbook.Worksheets
i = wks.UsedRange.Rows.Count
Next wks
End Sub
удалить ненужные пользовательские стили. Я использую метод VBA, как показано ниже, чтобы удалить все пользовательские стили:
Public Sub StyleKill()
Dim s As Style
For Each s In ActiveWorkbook.Styles
If Not s.BuiltIn Then
s.Delete
End If
Next s
End Sub
Если в книге есть код VBA, попробуйте сохранить его декомилированным. Вы можете сделать это, открыв книги, откройте программу, внести небольшие изменения (добавить пробел или что-то), а затем, без составления проекта, сохраните книгу. Это может значительно уменьшить размер файла.
Я уверен, что есть и другие способы, но это мои испытанные и проверенные способы. В одной рабочей книге у меня это стабильно уменьшает размер файла с ~15мб до 10Мб.
по моему опыту, наиболее распространенной причиной этого являются пустые строки, которые находятся в пределах используемого диапазона в excel. Удалите пустые строки ниже диапазона, который вы фактически использовали (щелкните правой кнопкой мыши слева и удалите все строки, не просто очистите содержимое), если это не уменьшит размер, используйте макрос, подобный следующему:
Sub DeleteBlankRows()
Cells.Select
Dim i As Long
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
For i = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
другие ответы верны, но используйте VB скрипты. Если вы не хотите использовать сценарии, или если его только для одного от ситуации, вы также можете удалить неиспользуемое пространство вручную:
Ctrl+Home на клавиатуре, чтобы выбрать последнюю использованную ячейку в правом нижнем углуShift и щелкните ячейку ниже или справа от нее, в зависимости от неиспользуемого макетаDelete Rows или Delete Columns, опять же в зависимости от макетавы, возможно, придется повторить эти шаги, если вы хотите удалить строки и столбцы одновременно.
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
