返回列表 上一主題 發帖

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

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

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

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

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



Q1.png
2020-12-14 02:26
  1. For l = Range("A65536").End(xlUp).Row To 2 Step -1
  2.         If .Cells(l, "I") = .Cells(l - 1, "I") And .Cells(l, "J") = .Cells(l - 1, "J") Then
  3.             .Cells(l - 1, "M") = .Cells(l, "L") + .Cells(l - 1, "L")
  4.             Rows(l).ClearContents
  5.         End If
  6.     Next

  7.     Cells.Select

  8.     Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, _
  9.                       Header:=xlYes
複製代碼
範例.rar (13.09 KB)

回復 5# n7822123


    感謝前輩們的提醒, 真的陣列跑快非常多, 求學時期陣列真的把我搞慘了, 出社會後才發現真正實用的地方!!

TOP

回復 9# samwang


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

TOP

        靜思自在 : 脾氣嘴巴不好,心地再好也不能算是好人。
返回列表 上一主題