excel - 如何确保列中所有格式化为文本的 Excel 单元格实际上都是

Question

我有一列由多个用户提交的内容，通常从多个来源粘贴到一个工作表中。此列包含应始终格式化为文本的数字。事实上，无论如何完成，总会有一些项目的左上角永远不会有指示器警告这些项目已格式化为文本(我们希望在所有情况下都看到这种情况)

检查单个单元格，它确实显示为格式化文本，但实际上在导入数据表时，如果缺少指示符，则数据类型将导入为数字。单击数字后并按 Enter 键会将指示器更改为文本。

如何在 VBA 中做到这一点？我不想访问每个单元格，单击内容末尾并按 Enter 键。以任何组合方式剪切和粘贴特殊内容都可以可靠地修复这些问题。

Excel 会看什么，它可以通过这些文本格式警告指示器来解决格式问题，但当您查看单元格格式属性时，它似乎并没有解决问题？

Excel 2003，但在更高版本中也有同样的问题。

Answer 1

对我有用的是检查错误指示器，这似乎比单元格格式本身更可靠。这会查找缺少指示符的任何内容并强制其为文本。

除非有人进一步了解为什么不应该这样做，否则它可以解决我的问题。

Sub check4textformat()
 For Each cell In Range("E2:E15000")
 If cell.Errors.Item(xlNumberAsText).Value = False Then cell.Formula = cell.Text
 Next
End Sub