How to execute a function for each cell in a column and loop through all workbooks?

问题

Here's what I have so far:

Sub TrimColumnD()
   Dim ws As Worksheet

   For Each ws In ThisWorkbook.Worksheets
   Dim c As Range
        For Each c In ActiveSheet.UsedRange.Columns("D").Cells
            c.Value = WorksheetFunction.Trim(c.Value)
        Next c
   Next ws

End Sub

The trim function only works on the cells in the first worksheet.

回答1:

Please change this line:

For Each c In ActiveSheet.UsedRange.Columns("D").Cells

into this one:

For Each c In ws.UsedRange.Columns("D").Cells

In your code internal loop refers to activesheet while it should refer to ws variable representing sheet.

来源：https://stackoverflow.com/questions/17243947/how-to-execute-a-function-for-each-cell-in-a-column-and-loop-through-all-workboo