合并單元格是Excel中比較蛋疼的東東，但至今仍有不少使用合并單元格的案例。如下圖，需要對(duì)ABCDE進(jìn)行求和。

數(shù)據(jù)

Sub comm()
    Dim arr, R&, i&, d As Object
    Set d = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion
    For i = 1 To UBound(arr)
        If arr(i, 2) <> "" Then  '//如果B列單元格不為空
            R = i       '//標(biāo)記此時(shí)的行號(hào)
            d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2) '//求和
        Else   '//如果B列單元格為空
 '//求和,注意arr(R, 2) R取標(biāo)記的行號(hào)，也就是合并單元格區(qū)域中有數(shù)據(jù)的單元格
           d(arr(i, 1)) = d(arr(i, 1)) + arr(R, 2) 
        End If
    Next
    [d1].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items)) '//輸出數(shù)據(jù)
End Sub

結(jié)果：

結(jié)果

此題目同樣可以改版，變成求和的key是合并單元格

數(shù)據(jù)

同樣采取標(biāo)記行的做法，代碼如下，不解釋了。

Sub comm()
    Dim arr, R&, i&, d As Object
    Set d = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion
    For i = 1 To UBound(arr)
        If arr(i, 1) <> "" Then
            R = i
            d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)
        Else
            d(arr(R, 1)) = d(arr(R, 1)) + arr(i, 2)
        End If
    Next
    [d1].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub

結(jié)果

結(jié)果

要充分利用循環(huán)遍歷干點(diǎn)神馬事情，一切都可以在當(dāng)中發(fā)生。