6. 讀取不同數(shù)據(jù)格式并合并福侈。
很多關(guān)于合并不同工作簿的教程都有一個共同之處尘盼，就是文件的格式幾乎都是相同的，能判斷出具體的單元格在第幾行第幾列艰额，筆者查閱多方資料，不管是網(wǎng)上還是書椒涯，都沒找到對不同的工作簿格式進行合并柄沮，十分失望，所以在此記錄废岂，希望幫到需要的朋友祖搓。
首先，先放圖湖苞，不同的格式如下拯欧，
可見，無法確定姓名财骨、銀行卡等所在列哈扮。所以筆者想的方法是先查找到有關(guān)姓名等信息，然后定位到單元格的所在行列蚓再，再來將信息復(fù)制粘貼出來。
筆者第一次嘗試用的find方法包各，部分代碼如下
1.find方法通配符查找摘仅，Offset 操作進行位移定位，end(xlDown) 相當(dāng)于Ctrl + ↓ 操作问畅。
col = tws.UsedRange.SpecialCells(xlCellTypeLastCell).column ???????????????????????????????????????????????????????? ????'當(dāng)前工作表中所有已使用的單元格區(qū)域列
row = tws.UsedRange.SpecialCells(xlCellTypeLastCell).row? ????????????????????????????????????????????????????????? ????'當(dāng)前工作表中所有已使用的單元格區(qū)域行
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為導(dǎo)入文件的Workbooks，ws為導(dǎo)入文件的Workbooks.sheets护姆；
Offset(1, 0)為定位的單元格的下面一格矾端，相當(dāng)于做一個位移操作；
Range(Selection, Selection.End(xlDown)) 相當(dāng)于將定位到的單元格下面一格開始用鍵盤進行Ctrl + ↓ 全選操作卵皂；
wb_rows 記錄了上一步所全選的行數(shù)秩铆，相當(dāng)于記錄導(dǎo)入表的姓名信息行數(shù)（有多少人）。
一開始筆者用了幾個文件做的一個簡單的測試灯变，加了 if 語句是因為發(fā)現(xiàn)有的文件就只有一行人員信息殴玛，導(dǎo)致End(xlDown)操作后，全選了整個Excel的列添祸，并且將wb_rows變?yōu)榱?滚粟。。再之后的測試刃泌，發(fā)現(xiàn)定位查找凡壤，名稱都不一樣署尤，連find通配符都沒用了。亚侠。曹体。筆者就各種查啊，有沒有定位能多個關(guān)鍵字的或操作盖奈，發(fā)現(xiàn)沒有混坞。。并且钢坦，有的文檔使用find方法明明文檔中有但是依舊無法查到究孕，有點奇怪，這里筆者沒有解決爹凹，直接換了第二種操作厨诸。。直接用for each循環(huán) + if 判斷所有活動的單元格和姓名所在行的交集是否含有關(guān)鍵字禾酱。然后用循環(huán)復(fù)制粘貼微酬，部分代碼如下。
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操作不停的加關(guān)鍵字就好了^ ^..經(jīng)過592條數(shù)據(jù)的測試，發(fā)現(xiàn)可以正常使用滓走。
不過還有可以優(yōu)化的地方垦江，if 判斷也許可以使用find方法來，畢竟find方法可以使用通配符搅方，也許可以少些幾個關(guān)鍵字比吭，但是可能還需要解決部分文檔find方法無法查找定位的問題；使用了 if 和 elseif 來判斷姨涡，也許可以改為 Select Case?語句衩藤。
下兩篇直接丟代碼。
