- 帖子
- 10
- 主題
- 3
- 精華
- 0
- 積分
- 18
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-2-18
- 最後登錄
- 2011-11-20
|
本帖最後由 ivan731129 於 2011-2-22 10:32 編輯
上禮拜感謝前輩回應，但是後來在修改時
不知道是資料量問題還是設定錯誤，再跑時會出現型態不符合。請問是哪裡設錯?- Sub Ex()
- Sub Ex()
- Dim A As Range
- Set d = CreateObject("Scripting.Dictionary")
- Set d1 = CreateObject("Scripting.Dictionary")
- d1("機構管編") = Array("機構管編", "機構名稱", "申報時間", "申報重量", "最大月產生量", "平均月產生量", "事業機構地址", "負責人姓名", "負責人職稱", "負責人電話", "環保部門名稱", "環保部門負責人", "環保部門電話", "廢清書公告類別")
- With Sheet2
- For Each A In .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
- d(A.Value) = Array(A.Offset(, 6).Value, A.Offset(, 12).Value, A.Offset(, 13).Value, A.Offset(, 14).Value, A.Offset(, 15).Value, A.Offset(, 16).Value, A.Offset(, 17).Value, A.Offset(, 31).Value)
- Next
- End With
- With Sheet1
- For Each A In .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
- If IsEmpty(d1(A & A.Offset(, 1))) Then
- d1(A & A.Offset(, 1)) = Array(A.Value, A.Offset(, 1).Value, A.Offset(, 8).Value, A.Offset(, 9).Value, A.Offset(, 10).Value, A.Offset(, 11).Value, d(A.Value)(0), d(A.Value)(1), , d(A.Value)(2), d(A.Value)(3), d(A.Value)(4), d(A.Value)(5), d(A.Value)(6), d(A.Value)(7))
- Else
- ar = d1(A & A.Offset(, 1))
- If A.Offset(, 10).Value > ar(10) Then ar(10) = A.Offset(, 10).Value
- d1(A & A.Offset(, 1)) = ar
- End If
- Next
- End With
- Sheet5.[A1].Resize(d1.Count, 19) = Application.Transpose(Application.Transpose(d1.items))
- End Sub
|
|
發表於 2011-2-18 09:45
| 
