[發問] 刪除重複後，尋找重複客戶號碼加總值

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

2^#

發表於 2016-9-26 14:09 | 只看該作者

回復 1# Changbanana

看起來你的索引KEY除了客戶編號之外，還須包括B欄的sell作為KEY值，才合乎你想呈現的結果吧？

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

3^#

發表於 2016-9-26 14:22 | 只看該作者

回復 2# Kubi

抱歉抱歉
B欄忘記改了
KEY 值只有A欄

10301==>小明
10302==>大雄
10303==>筱華

其他資料可以忽略
主要KEY 值是A 欄 A欄一樣的加總E欄(合併)

Kubi

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

4^#

發表於 2016-9-26 15:25 | 只看該作者

本帖最後由 Kubi 於 2016-9-26 15:34 編輯

回復 3# Changbanana
可是編號10302包括大雄與小明，如何區別？

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

5^#

發表於 2016-9-26 20:04 | 只看該作者

回復 4# Kubi

10302一定是大雄

檔案沒改到
更新過的檔案:

測試.rar (349.5 KB)

Kubi

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

6^#

發表於 2016-9-26 21:38 | 只看該作者

回復 5# Changbanana
試看看。
結果會寫在I:O欄

Sub test()
Dim arr()
Dim dic As Object
Set dic = CreateObject("scripting.dictionary")
For i = 2 To Range("A65536").End(3).Row
If dic.Exists(Cells(i, 1).Value) Then
dic(Cells(i, 1).Value) = dic(Cells(i, 1).Value) + Cells(i, 5).Value
Else
dic(Cells(i, 1).Value) = Cells(i, 5).Value
n = n + 1
ReDim Preserve arr(1 To 7, 1 To n)
For j = 1 To 7
arr(j, n) = Cells(i, j).Value
Next j
End If
Next i
For i = 1 To n: arr(5, i) = dic(arr(1, i)): Next i
Columns("I:O").ClearContents
[I1].Resize(1, 7) = [A1].Resize(1, 7).Value
[I2].Resize(n, 7) = Application.Transpose(arr)
End Sub

複製代碼

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

7^#

發表於 2016-9-29 09:34 | 只看該作者

回復 6# Kubi

感謝k大的大力相助~
跑出結果是正確的
想請教一下

ReDim Preserve arr(1 To 7, 1 To n)
For j = 1 To 7
arr(j, n) = Cells(i, j).Value
Next j

複製代碼

這個用法可不可以解說一下~ 謝謝您:)

Kubi

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

8^#

發表於 2016-9-29 15:06 | 只看該作者

回復 7# Changbanana
簡單來說就是從資料端擷取某列資料儲存於二維陣列(arr)中備用。
至於 ReDim 請參閱官方版說明(游標停在ReDim文字中後再按F1鍵)，會比我解釋的更清楚。

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

9^#

發表於 2016-9-30 14:12 | 只看該作者

Sub TEST()
Dim Arr, Brr, xD, T&, i&, j%, U&, N&
Arr = Range([A1], [A65536].End(xlUp)(1, 7))
Set xD = CreateObject("scripting.dictionary")
ReDim Brr(1 To UBound(Arr), 1 To 7)
For i = 2 To UBound(Arr)
　　T = Arr(i, 1): U = xD(T)
　　If U > 0 Then Brr(U, 5) = Brr(U, 5) + Arr(i, 5): GoTo 101
　　N = N + 1: U = N: xD(T) = N
　　For j = 1 To 7: Brr(U, j) = Arr(i, j): Next
101: Next i
If N > 0 Then [J1].Resize(N, 7) = Brr
End Sub

同樣邏輯，不同寫法，自行去揣摩～～
上網去找字典檔及 array陣列的資料及說明，瞭解了，其它都簡單！
　
　

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

10^#

發表於 2016-10-2 00:24 | 只看該作者

回復 8# Kubi

回復 9# 准提部林

  好的~~~謝謝K大和准大~~
  我再慢慢研究
  謝謝你們的回覆^^