合并單元格是Excel中比較蛋疼的東東宾舅，但至今仍有不少使用合并單元格的案例。如下圖彩倚，需要對ABCDE進行求和筹我。
數(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)記此時的行號
d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2) '//求和
Else '//如果B列單元格為空
'//求和,注意arr(R, 2) R取標(biā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)遍歷干點神馬事情岸夯，一切都可以在當(dāng)中發(fā)生麻献。
