- 帖子
- 3
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
-
- 軟體版本
-
- 閱讀權限
- 10
- 註冊時間
- 2010-5-1
- 最後登錄
- 2011-6-4
|
如何修改以下宏, 把結果從欄位"訂貨單" 開始貼在result 上?
Sub nn()
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
With Sheet1
For Each a In .Range(.[A2], .[A65536].End(xlUp))
mystr = a.Offset(, 1) & a.Offset(, 2) & a.Offset(, 3) & a.Offset(, 4) & a.Offset(, 5)
If IsEmpty(d(mystr)) Then
ar = a.Resize(, 6).Value
d(mystr) = a.Resize(, 6).Value
d1(mystr) = 1
Else
ar = d(mystr)
ar(1, 6) = ar(1, 6) + Val(a.Offset(, 5))
d1(mystr) = d1(mystr) + 1
End If
Next
End With
With Sheet2
.[A2:G65536] = ""
.[A2].Resize(d.Count, 6) = Application.Transpose(Application.Transpose(d.items))
.[G2].Resize(d.Count, 1) = Application.Transpose(d1.items)
End With
End Sub |
-
-
PICK.rar
(11.41 KB)
|
發表於 2010-5-7 01:05
| 
