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

我正在试图弄清楚如何修剪表单C：D中的前导空格和尾随空格，其表单名称中以“_A”和“_B”结尾。 到目前为止，我有这样的：

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),)") 

根据您的评论编辑以join您的限制。

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