excel - 如何为列中的每个单元格执行函数并循环遍历所有工作簿？

Question

这是我到目前为止所拥有的:

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

修剪功能仅适用于第一个工作表中的单元格。

Answer 1

请更改此行:

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

进入这个:

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

在您的代码中，内部循环引用 activesheet，而它应该引用代表工作表的 ws 变量。