前景提要
在昨天的分享中钠署，我們學(xué)習(xí)了如果將N個(gè)報(bào)表格式數(shù)據(jù)規(guī)則都相同的N個(gè)工作薄合并的操作，在昨天的文章發(fā)表了之后荒椭，不少的童鞋都表示這對(duì)于他們的幫助還是比較的大的谐鼎，但是其中還有很多的不足，因?yàn)檫@樣標(biāo)準(zhǔn)的數(shù)據(jù)格式很難找趣惠，在日常的工作中狸棍，更多的數(shù)據(jù)結(jié)構(gòu)都是不標(biāo)準(zhǔn)，不規(guī)則的味悄，碰到不標(biāo)準(zhǔn)的數(shù)據(jù)昨天的方法就會(huì)出現(xiàn)問題了草戈，那么如果碰到這類問題，用VBA如何實(shí)現(xiàn)呢侍瑟？
不規(guī)則不標(biāo)準(zhǔn)的概念非常的廣唐片，小編匯總了粉絲的一些常見的情況，來單獨(dú)分享下具體的解決方法丢习，我們來看看具體的場(chǎng)景
場(chǎng)景模擬
數(shù)據(jù)源呢牵触，我就不重新構(gòu)造了，還是用之前我們演練中的哪些數(shù)據(jù)源咐低，不過在格式結(jié)構(gòu)上面稍作調(diào)整揽思，我們打開京東這個(gè)商城的銷售情況記錄表，和其他的產(chǎn)品表象對(duì)比见擦，
我們發(fā)現(xiàn)雖然產(chǎn)品的數(shù)量都是相同的钉汗，但是產(chǎn)品的展示順序是不同的，其他的報(bào)表的產(chǎn)品順序都是1,2,3這樣的順序的鲤屡，但是這個(gè)表就比較的特殊损痰，在做表的時(shí)候?qū)a(chǎn)品3放在了最前面，所以我們還用昨天的代碼的話酒来，就會(huì)導(dǎo)致數(shù)據(jù)出現(xiàn)卢未，本來是產(chǎn)品3的數(shù)據(jù)就會(huì)統(tǒng)計(jì)到產(chǎn)品1的數(shù)據(jù)下，如果這兩種產(chǎn)品的結(jié)算單價(jià)不同的話堰汉，最終可能會(huì)導(dǎo)致公司的財(cái)務(wù)數(shù)據(jù)出現(xiàn)不必要的虧損辽社，那么面對(duì)這樣的情況，我們要如何處理呢翘鸭？
方法分析
大致的邏輯模呢滴铅，我們已經(jīng)在之前寫好了，我們現(xiàn)在需要重新操作的代碼模塊就是針對(duì)數(shù)據(jù)匯總這一塊的就乓，我們來看看我們要如何實(shí)現(xiàn)汉匙，
如果我們是手工操作的話拱烁，方法就是通過單元格的標(biāo)頭來判斷是那種產(chǎn)品的數(shù)據(jù)，所以我們現(xiàn)在弄過VBA的話噩翠，也是相同的方式戏自，我們先想辦法獲取要匯總的表格的表頭字段以及總表的標(biāo)頭，然后進(jìn)行一一對(duì)應(yīng)就可以了伤锚，那么方法有了浦妄，代碼呢？
代碼區(qū)
Sub test()
Dim pathn, sth As Workbook, rng As Range, rng1 As Range, sbook As Workbook, arrT
pathn = ThisWorkbook.Path
Set sbook = ThisWorkbook
l1 = Cells(1, Columns.Count).End(xlToLeft).Column
arrT = Range(Cells(1, 1), Cells(1, l1))
f = Dir(pathn & "\")
Do While f <> ""
l = Cells(Rows.Count, 1).End(xlUp).Row
If f <> "test.xlsm" Then
For Each sth In Workbooks
If sth.Name = f Then
GoTo line
End If
Next sth
Workbooks.Open (pathn & "\" & f)
'=====匯總工作薄的代碼======
Set rng = ActiveSheet.UsedRange
arrW = rng.Rows(1)
l2 = UBound(arrW, 2)
For i = 1 To l2
Num = WorksheetFunction.Match(arrT(1, i), arrW, 0)
rng.Columns(Num).Offset(1, 0).Copy sbook.Worksheets(1).Cells(l + 1, i)
Next i
'Set rng1 = rng.Offset(1, 0)
'rng1.Copy sbook.Worksheets(1).Cells(l + 1, 1)
'=====匯總工作薄的代碼======
ActiveWorkbook.Close True
End If
line:
f = Dir()
Loop
End Sub
我們來看看最終的效果
我們將京東的表單數(shù)據(jù)和總表匯總的表單數(shù)據(jù)來對(duì)比下见芹，三個(gè)產(chǎn)品的數(shù)據(jù)的位置都非常的正確彻磁，并且沒有出現(xiàn)數(shù)據(jù)的遺漏宗苍，非常的完美
代碼分析
小伙伴們應(yīng)該已經(jīng)發(fā)現(xiàn)，今天的代碼其實(shí)就是在上節(jié)的代碼的基礎(chǔ)上繼續(xù)調(diào)整優(yōu)化的，我們來看看新增加的部分
l1 = Cells(1, Columns.Count).End(xlToLeft).Column
獲得第一行總共有多少列榕吼，和之前獲得某一列的最后的一個(gè)非空單元格是相同的方法先较，大家可以對(duì)比這來學(xué)習(xí)下
arrT = Range(Cells(1, 1), Cells(1, l1))
這里我們獲得的是總報(bào)表數(shù)據(jù)的表頭數(shù)據(jù)
arrW = rng.Rows(1)
這里我們得到的是目標(biāo)報(bào)表的表頭數(shù)據(jù)文兑，為什么這里就比較的簡(jiǎn)單呢奖年？因?yàn)槲覀冊(cè)谥巴ㄟ^UsedRanged獲得了當(dāng)前單元格的活動(dòng)區(qū)域，所以并不存在多余的單元格惕它，可以直接用rng.Rows(1)方法獲得單元格區(qū)域的第一行怕午，即表頭數(shù)據(jù)
然后我們開始進(jìn)行循環(huán)遍歷
通過總表，注意這里一定是總表淹魄，從目標(biāo)報(bào)表中獲取 總表的表頭字段所以對(duì)應(yīng)的行數(shù)郁惜，順序不能亂，如何獲得呢甲锡？之前我們學(xué)習(xí)過match（）方法兆蕉，今天正好用上了。
Num = WorksheetFunction.Match(arrT(1, i), arrW, 0)
然后有了對(duì)應(yīng)的列號(hào)之后缤沦，我們就可以進(jìn)行復(fù)制粘貼了虎韵。
rng.Columns(Num).Offset(1, 0).Copy sbook.Worksheets(1).Cells(l + 1, i)
這個(gè)操作和上節(jié)的操作是一樣的
