如何使用VBA代码修剪表中的标题

Question

我正在尝试使用 VBA 代码修剪表格的标题，因为其中一些表格前面有空格，每个月都会有所不同，这使得编码变得困难。

当我分解代码并逐步运行它时，它工作正常，但是当我运行整个宏时，它会删除我的一些标题并将它们替换为来自不同工作表行或仅"列 1"、"列 2"等的信息。

我相信我在调用(" & .Address & ")选择时缺少一些代码参考？

它正在替换单元格处于活动状态的工作表中的标题。(如果它是运行宏之前要单击的最后一个单元格)。

我尝试只使用Trim函数，但由于它是范围的数组，它不起作用，有人建议使用">评估"功能。

我也尝试将修剪函数用作工作表函数，但它给了我一个错误"运行时错误 13"类型不匹配"。这是在以下代码上：

With wsDispoData.ListObjects("Table_DispoData").HeaderRowRange.EntireRow
.Value = WorksheetFunction.Trim(.Value)
End With

这是我使用的当前代码，它被错误地替换了。

Trim headings
With wsDispoData.ListObjects("Table_DispoData").HeaderRowRange.EntireRow
.Value = Evaluate("IF(ISTEXT(" & .Address & "),TRIM(" & .Address & "),REPT(" & .Address & ",1))")
End With

预期成果应例如：

当前标题："SOH"和"Compo">

修剪："SOH"和"组合">

Answer 1

我只会枚举标题行并检查每个值

Dim Cell As Range
For Each Cell In wsDispoData.ListObjects("Table_DispoData").HeaderRowRange
Cell.value = WorksheetFunction.Trim(Cell.value)
Next Cell