返回列表 上一主題 發帖

[發問] 重複內容時間加總並刪除重複保留唯一值

回復 9# samwang


    感謝前輩的指導, 兩種方式都有學起來!! 以後有問題再請前輩多多指教!!

TOP

本帖最後由 n7822123 於 2020-12-15 20:07 編輯

回復 10# v03586

你會用字典物件的話,學Samwang的寫法就可以了

hcm19522大大,也證明了函數可以解決99.99% 的問題

我的寫法必須要先經過排列,不然會有問題~~

回頭看我寫的東西,寫的有點累贅~~~略簡化如下~


Sub 加總()
Dim Arr, PKey$, 刪除列 As Range
Arr = [A1].CurrentRegion    '抓儲存格資料 到 Arr 陣列
Set 刪除列 = Rows(UBound(Arr) + 1)  '這行單純只是避免Union跳出錯誤,先定個範圍
For R& = 2 To UBound(Arr)  '不同的Key紀錄頭一個列號,相同Key做累加,記錄之後要刪除的列號
  Key$ = Arr(R, 9) & Arr(R, 10)
  If Key <> PKey Then
    R0& = R: PKey = Key
    Arr(R, 13) = Arr(R, 12)
  Else
    Arr(R0, 13) = Arr(R0, 13) + Arr(R, 12)
     Set 刪除列 = Union(刪除列, Rows(R))
  End If
Next R
[A1].Resize(UBound(Arr), UBound(Arr, 2)) = Arr  'Arr資料倒回去儲存格
刪除列.Delete   '可改為 刪除列.Select 確認刪除範圍
End Sub
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

        靜思自在 : 真正的愛心,是照顧好自己的這顆心。
返回列表 上一主題