1樓：魚木混豬喲
**如下：
sub main()
mm = 0
set dica = createobject("scripting.dictionary")
set dic = createobject("scripting.dictionary")
for i = 4 to range("b65536").end(3).row
dica(cells(i, "b").value & "|" & cells(i, "c").value) = ""
next i
redim arr(1 to dica.count, 1 to 4)
for i = 4 to range("b65536").end(3).row
if dic.exists(cells(i, "b").value & "|" & cells(i, "c").value) then
arr(dic(cells(i, "b").value & "|" & cells(i, "c").value), 3) = arr(dic(cells(i, "b").
value & "|" & cells(i, "c").value), 3) + cells(i, "d")
arr(dic(cells(i, "b").value & "|" & cells(i, "c").value), 4) = arr(dic(cells(i, "b").
value & "|" & cells(i, "c").value), 4) + cells(i, "e")
else
mm = mm + 1
dic(cells(i, "b").value & "|" & cells(i, "c").value) = mm
arr(mm, 1) = cells(i, "b")
arr(mm, 2) = cells(i, "c")
arr(mm, 3) = cells(i, "d")
arr(mm, 4) = cells(i, "e")
end if
next i
range("h4").resize(ubound(arr), 4) = arr
range("h4:k" & ubound(arr) + 3).sort [h4], 1
range("b3:e3").copy range("h3")
end sub
2樓：匿名使用者
用資料透視表就可以了，資料有變更重新整理一下就行了，無需程式設計
excel巨集命令篩選資料，會巨集的高手求救！！ 20
3樓：
如果資料不多的話，用公式也可以做到，不一定要用**
請教電腦高手，CAD常用的命令（快捷鍵及使用方法）謝謝
發個郵箱吧，我這有一點快捷鍵 電腦為什麼裝不了cass 明明裝了cad2004 為什麼會說檢測不到？求高手指點 謝謝！30 開始 執行 輸入regedit，進入登錄檔，找到hkey local machine software autodesk autocad 你會看到所有cad已經安裝的版本。比如...
請教高手關於ecel中的vba使用者窗體的兩個問題
呃，舉個例子好了 1 在名為 textbox1 的文字框內輸入資料，點選 名為commandbutton1 的按鈕 後把輸入的資料賦值給a1單元格 private sub commandbutton1 click range a1 textbox1.textend sub 當然 你也可以用textb...
請教ecel公式的具體含義請教excel公式的具體含義
提取後面的用公式 lookup mid a1,find abc a1 3,row 1 99 提取前面的用公式 lookup mid a1,find abc a1 row 1 99 row 1 99 非常精妙的公式！首先mid函式比較簡單，目的是擷取a1從 abc 之後的內容。通常的擷取引數是 mid...