修剪数据，其中一些单元格包含空间，某些单元格包含公式

Question

I have a large amount data in an Excel file. I have over 3000 rows which cross A to CZ columns.

Before I start using the data, I need to trim all of it.

When I use VBA it takes a long time and I get error "Type not match".

Some cells contain space, some contain formula, some contain formula link with another Excel file.

Worksheets("Sheet1").Activate
For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
    If cell.HasFormula = False Then
        cell.Value = Trim(cell)
    End If
Next cell

It want to trim the cells which do not have a formula but it gets the error.

Answer 1

Text-to-Columns, Fixed width, Finish will quickly remove leading/trailing spaces.

dim i as long

with Worksheets("Sheet1")
    for i=.cells(1, .columns.count).end(xltoleft).column to 1 step -1
        with .columns(i)
            .cells.TextToColumns Destination:=.cells(1), DataType:=xlFixedWidth, _
                                 FieldInfo:=Array(0, 1)
        end with
    next i
end with

BTW, if you want to reduce multiple interim spaces (eg data data to data data ) to a single space, you need to use Application.Trim(...) not VBA.Trim(...) .

Answer 2

Worksheets("Sheet1").Activate
For Each cell In ActiveSheet.UsedRange
If Not IsError(cell) Then
cell = WorksheetFunction.Trim(cell)
End If
Next cell

finally i use this code to ignore the error. i know it is not a good method.