如何使用VBA在Excel中的错误单元格中获取基础值

Question

I have this issue to solve purely by VBA, no manual intervention allowed.

In excel, if one puts a non-numerical string starting with minus sign, eg "-SomeData", the cell will show as "#NAME?". However, if one selects this cell, in the formula bar it will show "=-SomeData".

Now I need to extract "-SomeData" and paste it on another sheet. I tried .value but it returned error, and .text but it returned "#NAME?".

I browsed through the entire list for Range object on MSDN without finding a viable solution.

Is there a way to do this purely by VBA? Asking because the user of the macro refused to do manual formatting for the error cells.

Thanks in advance.

Answer 1

假设错误值在活动单元格中，请执行以下操作：

Worksheets(1).Range("A1") = "'" & Activecell.Formula