excel - 在将修改后的单元格值分配回单元格时使用 VBA 运行时错误 13 'type mismatch'

Question

我的代码在下面，给出错误、类型不匹配、运行时错误 13 的行是 for 循环中的行。为什么会发生这种情况，我该如何避免？

Workbooks(theFile).Worksheets(1).Columns("G:G").EntireColumn.NumberFormat = "0.00"

For Each myCell In Columns("G:G")
    myCell.Value = WorksheetFunction.Trim(WorksheetFunction.Clean(myCell.Value))
Next

Answer 1

大概是这样的

For Each myCell In Columns("A:A").Cells
     myCell.Value = WorksheetFunction.Trim(myCell.Value)
Next