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

Posted 2023-02-22

【中文标题】如何为列中的每个单元格执行一个函数并遍历所有工作簿？

【英文标题】：How to execute a function for each cell in a column and loop through all workbooks?

【发布时间】：2013-06-19 02:22:18

【问题描述】：

这是我目前所拥有的：

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

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

【问题讨论】：

确保使用适当的缩进清楚地格式化代码。在 sub 的顶部一起声明变量也是一个好主意。

【参考方案1】：

请更改此行：

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

进入这个：

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

在您的代码中，内部循环指的是活动表，而它应该指的是代表工作表的ws variable。