Excel VBA如何将单元格格式文本转换为数字

Question

我的代码所做的是它将自动获取文件夹中的所有Excel文件列表并比较主列表列上的序列号，然后如果值相同，它将复制序列号并将其粘贴到C列上。如果两种列格式相同，那么它将完美地工作。但是如果列格式化为文本，则比较似乎失败。我已经花了很长时间将这些单元格转换为数字格式或一般格式，这样就可以成功完成比较，而无需考虑格式。

{{1}}

Answer 1

尝试在代码中添加以下行：Columns("A").TextToColumns。它有效。

  

对于次要编辑感到抱歉。有人低估了我的答案，结果证明是正确的。 T_T

Answer 2

另一种方式

我们说你的范围是A1:A15，那么你也可以这样做

[A1:A15] = [INDEX(INT(A1:A15),)]

要了解这一点，您可以看到This帖子