清洁＆amp;修剪单元格VBA返回#Value

Question

我一直在工作簿上使用以下代码来清理包含大量文本的单元格。直到最近，当单个细胞中的含量显着增加时，它一直运作良好。反过来，它不是删除多余的空格，而是将单元格的内容更改为#value。这仅发生在具有大量内容的单元格中。

我想知道是否有人可以帮助阐明为什么会发生这种情况？我还没能解决它。

Dim rng As Range
Dim Area As Range
Dim msg As String

'Selects range to be trimmed
Set rng = ActiveSheet.Range("B14:B2500,D14:E2500,G14:K2500")

'Trim and Clean cell values
For Each Area In rng.Areas
Area.Value = Evaluate("IF(ROW(" & Area.Address & "),CLEAN(TRIM(" & Area.Address & ")))")
Next Area

MsgBox ("Complete")
End Sub

非常感谢

Answer 1

我最近对这个公式有同样的问题。当我查看该工作簿的公式选项时，检查了R1C1参考样式。我取消选中它，公式有效。