Compress Excel Sheet

do you have it in .xls or .xlsx file format?
.xlsx (MS Excel 2007 and newer) uses compresion so the same content in .xlsx makes the file smaller than in .xls.
So if you have it saved as .xls try .xlsx (if your MS Office allows you to do this) and if you are not able than you have to compress by WinRAR or freeware 7zip

To compare:
I have excelsheet with 700 rows, columns till FR and I copied that sheet 9 more times - so 10 sheets in one excel workbook with 700 rows and till FR column (174 columns should be) and my .xlsx file has 6,87MB.

If your excel does not contain anything else just characters as you wrote and is in .xlsx file format than I do not see a reason why it should be 28MB

Maybe there is something hidden? some another sheets/columns?
You can try to delete sheet by sheet, after every sheet deletion save the file and check the files size if it won´t jumps from 20+ MB to less than 10MB and you find sheet making troubles

ok
i will trace it one by one

Do it please and let us know about your findings

Please try the following macro to see if it reduces your file size. It deletes the blank rows and columns that lie beyond the bottom and right edges of your data. I wrote the macro a long time ago, but it is cited in this article by alainbryden Beginner's Guide to Improving the Speed and reducing the Size of Excel files.

Sub ExcelDiet()
    Dim ws As Worksheet
    Dim LastRow As Long, LastCol As Long
    Application.ScreenUpdating = False
    On Error Resume Next
    For Each ws In ActiveWorkbook.Worksheets
        With ws
            LastRow = .Cells.Find(What:="*", After:=.Range("A1"), LookIn:=xlValues, _
                LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            LastCol = .Cells.Find(What:="*", After:=.Range("A1"), LookIn:=xlValues, _
                LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
            Range(.Cells(1, LastCol + 1), .Cells(ws.Rows.Count, ws.Columns.Count)).Delete
            Range(.Cells(LastRow + 1, 1), .Cells(ws.Rows.Count, ws.Columns.Count)).Delete
            LastRow = .UsedRange.Rows.Count 'Force excel to re-evaluate used range
        End With
    Next ws
End Sub

Select allOpen in new window

buynder
thanx
i try it , run the macro , but the size still as it is
as there any requirement for that macro ?

There are no particular requirements for that macro. Note that it won't work on protected worksheets, however.

Did you save the file after running the macro? The file size reduction may not show up until you save the file, close it, then reopen it.

File format makes a tremendous difference in file size. Try saving it with .xlsb file extension (Excel binary workbook, *.xlsb).

If that still isn't helping, could you post the file so we can identify the root cause of large file size?

NiceMan, did you try to trace which sheet is so big (deleting sheet by sheet)?

please check the attached
it is one sheet
800 kb
sample.xls

Making no changes other than file extensions, I got 324 kb for .xlsx and 176 kb for .xlsb

When reviewing file content, it looks like you have a small amount of data in rows 248, 276 & 283 in columns BZ:CH. I relocated this data to the bottom of columns A:BR, but .xls file size did not change.

If the sample worksheet is typical of your workbook, you should consider saving the file as .xlsb Excel binary workbook for almost 4/5 reduction in file size.
sampleQ28252093.xlsx
sampleQ28252093.xlsb

it talks hard to open the xlsb file
it send me many error message , then it open but as read only
then : could you please tell me how to convert to those extensions ?

Which version of Excel are you using?

i'm using 2007

it is ok
the 28 mb as xls is 6.4 mb as xlsb
ok , i accept the solution
but still the thechnical question  is : it normal that the file i sent you consume 800 kb
with that few columns & rows ?

In the workbook that you posted, the used range of cells was 754 rows by 70 columns (52780 cells). Of those cells, 23076 were populated. The .xlsb file was 176 kb, or 7.6 byte per cell containing a value (3.3 byte per cell in used range).

Those ratios don't seem overly large to me, considering that you have to store values, formulas, formats and other properties of each cell.