How to compress html in Excel?

[Helios9]

I have a column of hundreds of cells each containing a page of html. I need to compress the html, removing all line breaks and white space. Find/Replace does not work - it only gives the error 'Formula is too long'. I've tried cutting and pasting into and out of Dreamweaver and Word but with only limited results and with many repeats of find/replace. I've also tried html tools such as Emsa Whitespace Remover and Absolute html Compressor. These work but a single html file must first be saved then processed then reopened and cut and pasted back into Excel. This would be an extremely time consuming process even for a few dozen cells.

Is there a quick way to compress the html? Can a macro do it? A two-step into another application and back into Excel would be fine.

Thanks in advance for any help.

 

[BrianB]

Perhaps this is something like what you want ... ?

'========================================================================================
'- FIND AND REPLACE TEXT (white space) IN CELLS
'- Uses Regular Expressions
'- This version removes white space from cells in column A
'- ** For "safety" and testing this puts results into column  B      ***
'- ** Change the code below to replace column A                      ***
'========================================================================================
'- Brian Baulsom August 2010
'========================================================================================
Sub CELL_TEXT_REPLACE()
    Dim MyRegExp As Object
    Dim MyString As String
    Dim NewString As String
    Dim MyRow As Long
    Dim LastRow As Long
'========================================================================================
'- REGULAR EXPRESSION PATTERN TO FIND TEXT TO REPLACE
    Const MyPattern As String = "\t|\n"
    'Const MyPattern As String = "\s"   ' this version removes intervening spaces too
'========================================================================================
    Set MyRegExp = CreateObject("VbScript.RegExp")
    Application.Calculation = xlCalculationManual
    '------------------------------------------------------------------------------------
    '- LOOP WORKSHEET ROWS
    LastRow = Range("A65536").End(xlUp).Row
    For MyRow = 2 To LastRow
        Application.StatusBar = MyRow - 1 & " / " & LastRow - 1
        MyString = Cells(MyRow, "A").Value
        '-------------------------------------------------------------------------------
        '- EXECUTE REGULAR EXPRESSION REPLACE
        With MyRegExp
            .Global = True
            .pattern = MyPattern
            .ignorecase = True
            NewString = .Replace(MyString, "")
        End With
        '-------------------------------------------------------------------------------
        '- RESULTS TO CELL
        '-------------------------------------------------------------------------------
        ' Cells(MyRow, "A").Value = NewString    ' replaces text in the cell
        Cells(MyRow, "B").Value = NewString      ' result to column B
        MyString = ""
        NewString = ""
    Next
    '-----------------------------------------------------------------------------------
    MsgBox ("Done")
    Application.StatusBar = False
    Application.Calculation = xlCalculationAutomatic
End Sub
'========== EOP ========================================================================