前景提要

最近我們都在學(xué)習(xí)工作簿的匯總和合并操作，不過(guò)可能是因?yàn)槲业拇竽X細(xì)胞比較有限，所涉及的場(chǎng)景比較少，小伙伴們也是提出了一些新的場(chǎng)景要求，所以，這里我們作為新番的形式，和大家分享。

好，進(jìn)入正題，今天我們要合并的工作簿的場(chǎng)景呢，是這樣的

有空行，又有合計(jì)字段，還有最后還有合并單元格的頁(yè)尾。

當(dāng)然我們并不需要合并這些空行，頁(yè)尾了，我們需要的僅僅是中間的數(shù)據(jù)部分，那么面對(duì)今天這樣的場(chǎng)景，我們要如何合并呢？

場(chǎng)景說(shuō)明

既然已經(jīng)有了空行，那么我們這里肯定不能使用Useadrange了，因?yàn)檫@個(gè)時(shí)候的使用區(qū)域，明顯包含了空行和頁(yè)尾的那些部分

而我們需要的僅僅是中間的核心數(shù)據(jù)。

不過(guò)我們可以觀察到，數(shù)據(jù)中既然有合計(jì)字段，合計(jì)字段是數(shù)據(jù)源和其他的頁(yè)尾標(biāo)識(shí)區(qū)域的分水嶺

發(fā)現(xiàn)了這一點(diǎn)，那么問(wèn)題就簡(jiǎn)單了很多了，我們只需要獲得合計(jì)這個(gè)字段所在的單元格行數(shù)，然后就可以將整個(gè)數(shù)據(jù)源一分為二了。

一分為二之后呢？

我們就會(huì)得到兩個(gè)區(qū)域，從上圖中可以看到，有些區(qū)域是有空行的，那么這樣的情況下，又要如何操作呢？

so easy！

你獲得A列的最后一個(gè)非空單元格不就可以了嗎？

如果非空單元格的行數(shù)大于合計(jì)的行數(shù)，那就是說(shuō)明有空格了。

OK，有了思路，那么直接看代碼

代碼區(qū)

Sub test23()Dim sth As Worksheet, rng As Range, urng As Range, sbook As Workbook, sb As WorkbookSet sbook = ThisWorkbookpathn = ThisWorkbook.Pathf = Dir(pathn & "\")Do While f <> ""l1 = Cells(Rows.Count, 1).End(xlUp).RowIf f <> "5-23.xlsm" Then For Each sb In Workbooks If sb.Name = f Then GoTo line End If Next sb Workbooks.Open (pathn & "\" & f) l = Cells(1, 1).End(xlDown).Row With ActiveSheet.UsedRange Set rng = .Find(What:="合計(jì)", LookIn:=xlValues, _ LookAt:=xlWhole, SearchDirection:=xlPrevious) rngRow = rng.Row End With If l > rngRow Then Set urng = Range(Cells(2, 1), Cells(rngRow - 1, 5)) urng.Copy sbook.Worksheets(1).Cells(l1 + 1, 1) Else Set urng = Cells(2, 1).Resize(l - 1, 5) urng.Copy sbook.Worksheets(1).Cells(l1 + 1, 1) End If ActiveWorkbook.Close TrueEnd Ifline:f = Dir()LoopEnd Sub

看看效果