使用VBA修剪特定工作表中的特定列

Question

我试图弄清楚如何修剪以“_ A”和“_ B”结尾的工作表 C：D 中的前导和尾随空格 在他们的名片中。 到目前为止，我有这个：

Sub Trim()
Dim Sheet As Worksheet
For Each Sheet In ActiveWorkbook.Sheets
    If Sheet.Name Like "*" & strSearch & "_A" Then
         Sheets(Sheet.Name).Trim
    End If
Next
For Each Sheet In ActiveWorkbook.Sheets
    If Sheet.Name Like "*" & strSearch & "_B" Then
         Sheets(Sheet.Name).Trim
    End If
Next
End Sub

但我不知道如何修改这个来实现目标？仅在这些工作表中修剪C：D列。 感谢

Answer 1

变化：

Sheets(Sheet.Name).Trim

到此：

Sheet.Range("C1:D1000").Value = Sheet.Evaluate("INDEX(TRIM(C1:D1000),)")

根据您的评论编辑根据您的约束条件。

正如@ChrisNeilson刚刚指出的那样，这会将C列和D列中的任何公式转换为它们的值，删除公式并使结果保持静态。