6. 读取不同数据格式并合并。
很多关于合并不同工作簿的教程都有一个共同之处，就是文件的格式几乎都是相同的，能判断出具体的单元格在第几行第几列，笔者查阅多方资料，不管是网上还是书，都没找到对不同的工作簿格式进行合并，十分失望，所以在此记录，希望帮到需要的朋友。
首先，先放图，不同的格式如下，
图1
图2
可见，无法确定姓名、银行卡等所在列。所以笔者想的方法是先查找到有关姓名等信息，然后定位到单元格的所在行列，再来将信息复制粘贴出来。
笔者第一次尝试用的find方法，部分代码如下
1.find方法通配符查找，Offset 操作进行位移定位，end(xlDown) 相当于Ctrl + ↓ 操作。
col = tws.UsedRange.SpecialCells(xlCellTypeLastCell).column '当前工作表中所有已使用的单元格区域列
row = tws.UsedRange.SpecialCells(xlCellTypeLastCell).row '当前工作表中所有已使用的单元格区域行
ws.Cells.Find("*姓*名*").Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
wb_rows = Selection.Rows.Count
If wb_rows = 0 Then
ws.Cells.Find("*姓*名*").Offset(1, 0).Select
Selection.Copy tws.Cells(row + 1, 2)
Else
Selection.Copy tws.Cells(row + 1, 2)
End If
其中，
wb为导入文件的Workbooks，ws为导入文件的Workbooks.sheets；
Offset(1, 0)为定位的单元格的下面一格，相当于做一个位移操作；
Range(Selection, Selection.End(xlDown)) 相当于将定位到的单元格下面一格开始用键盘进行Ctrl + ↓ 全选操作；
wb_rows 记录了上一步所全选的行数，相当于记录导入表的姓名信息行数（有多少人）。
一开始笔者用了几个文件做的一个简单的测试，加了 if 语句是因为发现有的文件就只有一行人员信息，导致End(xlDown)操作后，全选了整个Excel的列，并且将wb_rows变为了0。。再之后的测试，发现定位查找，名称都不一样，连find通配符都没用了。。。笔者就各种查啊，有没有定位能多个关键字的或操作，发现没有。。并且，有的文档使用find方法明明文档中有但是依旧无法查到，有点奇怪，这里笔者没有解决，直接换了第二种操作。。直接用for each循环 + if 判断所有活动的单元格和姓名所在行的交集是否含有关键字。然后用循环复制粘贴，部分代码如下。
2. 强行 if 判断。
For Each title In titles
If title = "姓名" Then
For i = 1 To TempRowNum
ws.Cells(title.row + i, title.column).Copy
tws.Cells(row + i, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Next
End If
Next
这样，遇到一个不一样的使用or操作不停的加关键字就好了^ ^..经过592条数据的测试，发现可以正常使用。
不过还有可以优化的地方，if 判断也许可以使用find方法来，毕竟find方法可以使用通配符，也许可以少些几个关键字，但是可能还需要解决部分文档find方法无法查找定位的问题；使用了 if 和 elseif 来判断，也许可以改为 Select Case 语句。
下两篇直接丢代码。
网友评论