返回列表下一主題上一主題發帖

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

v03586

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-12-14 02:29 | 顯示全部帖子

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

本帖最後由 v03586 於 2020-12-14 02:31 編輯

請問各位前輩
我有寫一個程式主要是要判斷
假設不同『I欄位』的值, 但相同『J欄位』的值, 則『L欄位』相加在『M欄位』(加總結果)
並保留一個『J欄位』的值, 刪除重複的『J欄位』

如下圖, 但目前執行出來的結果有問題, 請問有前輩可以幫忙指點嗎?

For l = Range("A65536").End(xlUp).Row To 2 Step -1
If .Cells(l, "I") = .Cells(l - 1, "I") And .Cells(l, "J") = .Cells(l - 1, "J") Then
.Cells(l - 1, "M") = .Cells(l, "L") + .Cells(l - 1, "L")
Rows(l).ClearContents
End If
Next
Cells.Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, _
Header:=xlYes