多列合并相同內(nèi)容單元格（WPS中有類似功能）

合并相同單元格的功能如下同，讓相同內(nèi)容的單元格合并為一個(gè)。

具體代碼如下：

Sub 相同內(nèi)容合并單元格()

'

Dim i, j As Long

Dim allAddress As Variant

Dim mergeRange As Range

Set mergeRange = Selection

allAddress = Split(mergeRange.Address, ",")

Application.DisplayAlerts = False

For j = 0 To UBound(allAddress)

? ? '對(duì)每個(gè)所選區(qū)域的每列進(jìn)行合并

? ? Dim firstRow As Long

? ? Dim firstColumn As Long

? ? Dim seRange As Range

? ? Dim columnsCount As Long

? ? Dim k As Long

? ??

? ? Set seRange = Range(allAddress(j))

? ? firstRow = seRange.Row

? ? firstColumn = seRange.Column

? ? ? ?

? ? '循環(huán)每列

? ? For i = firstColumn To firstColumn + seRange.Columns.Count - 1

? ? '循環(huán)每行

? ? ? ? For k = firstRow + seRange.Rows.Count - 1 To firstRow Step -1

? ? ? ? ? ? If Cells(k, i) <> "" And k - 1 > 0 Then

? ? ? ? ? ? ? ? If Cells(k, i).Value = Cells(k - 1, i).Value Then

? ? ? ? ? ? ? ? ? ? Range(Cells(k, i), Cells(k - 1, i)).Merge

? ? ? ? ? ? ? ? End If

? ? ? ? ? ? End If

? ? ? ? Next k

? ? Next i

Next j

Application.DisplayAlerts = True?

End Sub

選擇要合并的區(qū)域，然后執(zhí)行就可以合并多列的中相同內(nèi)容的單元格，效果如下

上述VBA實(shí)現(xiàn)的功能，僅合并相同內(nèi)容單元格，和WPS中的功能類似。

目前的不足在于，假如合并B列的單元格時(shí)，要求對(duì)應(yīng)行A列單元格也一致，暫時(shí)無(wú)法滿足，需進(jìn)一步拓展，如下圖：在VBA執(zhí)行后，A、B列都有合并相同單元格，但B列性別合并后，沒(méi)有與A列相同。即A列中(A2:A4合并后)B列對(duì)應(yīng)的B2:B4也應(yīng)該合并,但是代碼只會(huì)合并B2:B6(都為女),無(wú)法一致.使用時(shí)需注意！