合并單元格無法篩選？不不不！讓VBA來優(yōu)化下合并單元格

點(diǎn)擊上方“Excel和VBA”，選擇“置頂公眾號(hào)”

致力于原創(chuàng)分享Excel的相關(guān)知識(shí)，源碼，源文件打包提供

一起學(xué)習(xí)，一起進(jìn)步~~

前景提要

前面我們分好幾節(jié)講述了一些關(guān)于合并單元格的VBA知識(shí)，涉及單元格的合并，拆分合并單元格等，但是其實(shí)在日常的工作中，我并不是建議過多的使用合并單元格，因?yàn)樗泻芏嗟木窒扌?，在利用VBA處理合并單元格的時(shí)候，大家應(yīng)該已經(jīng)有所感觸，比方說在我們上節(jié)拆分合并單元格并填充的時(shí)候，拆分之后的單元格a和合并之前的a是完全不同的兩個(gè)單元格，今天我們?cè)僬f一個(gè)場(chǎng)景，是合并單元格在篩選的時(shí)候碰到的問題

場(chǎng)景說明

這里我們簡(jiǎn)單的構(gòu)造一個(gè)模擬數(shù)據(jù)，從上面的數(shù)據(jù)中我們可以看到A1有兩行，但是已經(jīng)執(zhí)行了單元格合并操作，我們來看看在這樣的情況，常規(guī)的篩選只有會(huì)有什么

對(duì)比的篩選下，我們可以看到?jīng)]有合并的單元格A2篩選之后能夠準(zhǔn)確的顯示2行數(shù)據(jù)

但是已經(jīng)操作合并單元格的A1,在執(zhí)行篩選之后，就剩下簡(jiǎn)單的一行，這會(huì)造成明顯的數(shù)據(jù)缺失

這也是我前面說并不提倡大家過多使用合并單元格的原因。

但是有時(shí)候是其他同事發(fā)給我們的表格，我們沒有辦法取消合并了，畢竟可能會(huì)涉及格式等方面的變動(dòng)，那么在這樣的情況下，我們要如何在不改變合并單元格的情況下，又可以準(zhǔn)確的篩選數(shù)據(jù)呢？

代碼區(qū)

Sub hb()Dim rng As Range, a As Range, i&, sth As Worksheet, sth1 As WorksheetSet sth = ActiveSheetSet rng = Application.InputBox("請(qǐng)選擇存在單元格的區(qū)域", "單元格的處理", , , , , , 8)For Each a In rng If a.MergeCells = False Then MsgBox "當(dāng)前選取存在非合并單元格，無法執(zhí)行操作" Exit Sub End IfNext anumr = rng.Rows.Countrowss = rng.Rowcolunmss = rng.ColumnColumns(colunmss + 1).Insertrng.SelectSelection.Copy Selection.Offset(0, 1)rng.SelectSelection.UnMergeSelection.SpecialCells(xlCellTypeBlanks).SelectFor Each a In Selection a.FormulaArray = "=R[-1]C"Next aRange(Cells(rowss, colunmss + 1), Cells(rowss + numr - 1, colunmss + 1)).SelectSelection.CopySelection.Offset(0, -1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=FalseApplication.CutCopyMode = FalseColumns(colunmss + 1).Delete End Sub

來看看代碼實(shí)現(xiàn)的效果