返回列表 上一主題 發帖

【請問】如何比對重複資料並加以標示

怎麼標題與內容是兩碼事?附件也沒你說的情形。

TOP

  1. For I = 2 To [h65536].End(3).Row
  2. If Application.CountIf([h:h], Cells(I, 8)) > 1 And [h:h].Find(Cells(I, 8), , , 1).Row = I Then
  3. Cells(I, 10) = "D"
  4. ElseIf [h:h].Find(Cells(I, 8), , , 1, , 2).Row = I Then
  5. Cells(I, 10) = "O"
  6. End If
  7. Next
複製代碼

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題