返回列表 上一主題 發帖

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

Changbanana

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

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-9-26 11:03 | 顯示全部帖子

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

請教各位高手~
現有個工作表

已經用
  1. Sub 移除單號重複()
  2. Set dic = CreateObject("scripting.dictionary")
  3. For i = Range("G65536").End(3).Row To 1 Step -1
  4. If dic.Exists(Cells(i, "G").Value) Then
  5. Rows(i).Delete
  6. Else
  7. dic(Cells(i, "G").Value) = ""
  8. End If
  9. Next i
  10. End Sub
複製代碼
刪除單號重複的
但之後需要依客戶編號(A欄)  若有相同的編號 需要加總E欄
(G欄單號可忽略 他是拿來避免單號KEY重複)
想請問該怎麼繼續做呢?
最後想呈現的結果


附件: 測試.zip (510.46 KB)
收藏 分享

Changbanana

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

論壇贊助勳章
2#
發表於 2016-9-26 14:22 | 顯示全部帖子
回復 2# Kubi

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

    10301==>小明
    10302==>大雄
    10303==>筱華
   
    其他資料可以忽略
    主要KEY 值是A 欄 A欄一樣的加總E欄(合併)

TOP

Changbanana

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

論壇贊助勳章
3#
發表於 2016-9-26 20:04 | 顯示全部帖子
回復 4# Kubi


    10302一定是大雄
   
    檔案沒改到
    更新過的檔案: 測試.rar (349.5 KB)

TOP

Changbanana

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

論壇贊助勳章
4#
發表於 2016-9-29 09:34 | 顯示全部帖子
回復 6# Kubi


感謝k大的大力相助~
跑出結果是正確的
想請教一下
  1.       ReDim Preserve arr(1 To 7, 1 To n)
  2.             For j = 1 To 7
  3.                 arr(j, n) = Cells(i, j).Value
  4.             Next j
複製代碼
這個用法可不可以解說一下~ 謝謝您:)

TOP

Changbanana

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

論壇贊助勳章
5#
發表於 2016-10-2 00:24 | 顯示全部帖子
回復 8# Kubi

回復 9# 准提部林


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

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題