修剪宏出错

Question

我无法弄清楚这一行 For Each c In ws.UsedRange.Cells 我不断收到错误 Method 'worksheet' range failed

谢谢

编辑：更新

Sub trimAll()
Dim ws As Worksheets
Dim c As Range

For Each ws In WorkSheets
    If ws.Name = "XXX" Or ws.Name = "YYY" Then
       For Each c In ws.UsedRange.Cells
           If Not (IsEmpty(c) Or IsError(c)) Then
              c.Value = Trim(c.Value)
           End If
       Next c
    End If
Next ws
End Sub

Answer 1

试试：For Each ws in Worksheets，因为 Sheets 集合可以包含不是工作表的东西