excel vb or vba問題

http://www.FunP.Net/815796

2011-11-11 10:28:27 補充：
A1-C13
客戶:abc
日期:2011/09/08
序號 單號 數量
1 3M-20060801R1 5000
2 3M-20060801R1 9000
3 3M-20060801R1 2000
4 3M-20060801R2 3000
5 3M-20060801R3 3000
6 3M-20060801R3 5000
7 3M-20060801R4 6000
8 3M-20060801R4 1000
9 3M-20060801R5 2000
10 3M-20060801R6 4000



Sub 算數量()
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select 單號 , sum(數量) as 總數量 from [a3:c50] group by 單號"
[e4].CopyFromRecordset conn.Execute(Sql)
End Sub


p.s [a3:c50] 範圍可以自行修改

請試試：
Sub T1110()
Dim i, U, xR As Range
U = [B65536].End(xlUp).Row
Application.ScreenUpdating = False
For i = U To 5 Step -1
　Set xR = Range("B" & i)
　If xR <> "" And xR = xR(0, 1) Then
　　xR(0, 2) = xR(0, 2) + xR(1, 2)
　　xR.EntireRow.Delete
　End If
Next
End Sub

樞紐分析也是個不錯的選擇.....