Excel没法vlookup事件

最近因为工做关系，深刻的用了一阵excel，并遭遇和处理了一系列关于excel数据的问题。

其中最有趣的一个，就是一个没法vlookup的问题。

 

问题记录以下：

excel中直接打开csv文件，看到相似以下的数据表：

SN,DATA
A ,Data1
12345789012 ,Data2
C ,Data3

 

在另一个数据表中，须要对SN号作关联操做。因而使用经常使用的vlookup进行关联，可是发现所有数据都只获得N/A：

SN  取值  
A   #N/A  
12345789012 #N/A  
C   #N/A  

 

在两个表里使用查询功能查询相应的sn，均可以查到。

因而使用sublime查看csv文件自己，发现这个csv中的sn号，后面统一附加了一个tab字符（为清晰展示，使用16进制显示）：

00000000: 534e 2c44 4154 410d 0a41 092c 4461 7461  SN,DATA..A.,Data                  
00000010: 310d 0a31 3233 3435 3738 3930 3132 092c  1..12345789012.,                                                 
00000020: 4461 7461 340d 0a43 092c 4461 7461 330d  Data4..C.,Data3.                  
00000030: 0a      

 csv文件来自于一个软件系统，咨询研发，获得的答复是，sn里有一些号是纯数字，若是不加tab，会被excel显示为科学计数法，引起更多问题。

使用正则表达式移除掉所有tab以后，用excel直接打开，发现确实部分sn被显示为科学计数法，且没法恢复原始值。

 

经研究，发现excel对于此种状况，其实有处理方法，就是使用csv数据导入功能而不要直接打开csv，经实验，使用文本数据导入功能，并设定sn字段为文本，便可解决科学计数法问题，而且能够正确的vlookup。

因为太忙，研发团队拒绝对系统进行任何修改。同时，各类表格的数据来源很是复杂，你们基本都已经在基于这些excel数据在工做了。

所以，写了一段vba代码针对没法vlookup的excel文档的sn作了处理，解决了这些文档没法vlookup的问题：

 

 1 Public Sub 去掉SN号两端的空格和TAB()  
 2     ' TODO:首先把字段设置成文本格式  
 3     Dim Rng1 As Range  
 4     For Each Rng1 In Range("A2:A9999")  
 5         ' 处理科学计数法问题  
 6         On Error Resume Next  
 7         If CStr(Val(Rng1.Value)) = Rng1.Value Then  
 8             Rng1.Value = "'" & Rng1.Value  
 9         End If  
10         Rng1.Value = Trim(Rng1.Value)  
11         Rng1.Value = Replace(Rng1.Value, vbTab, "")  
12         DoEvents  
13     Next  
14 End Sub  

 

 

使用的时候，须要修改range的范围，和sn的实际范围对应。

 

没有使用UsedRange.Rows.count之类的方法，是由于期间发现了不少人的不少表格，数据可能并很少，但rows.count都是一个巨大的数字。（通常这些数据也都是来自于某软件系统导出的数据，看来很是不靠谱），解决这个问题是另一个话题了，暂且不表。

 

有一个花絮是，曾经在一个同事的表格，发现了部分匹配成XX的值，实际是由于sn匹配失败，致使获得了其余结果。我深深的怀疑，在此前的工做中，有多少数据是恰好通过了这个坑被计算出来的，这又引起了哪些连锁的数据错误，而这些数据若是恰好被用于计算公司的成本收入或者其余重要的用途，致使的判断错误最终会引起多大的后果。