请问如何用VBA判断多个单元格组合的那内容在区域中有重复

roc.jame

hcm19522 发表于 2019-1-25 09:57
=IF(COUNTIFS(E:E,E2,J:J,J2)>1,"重复","")

谢谢您  函数有些麻烦，代码我已经写好了 就是有些功能不完善，麻烦您帮我校一下 可以吗？谢谢！

roc.jame

请问如何遍历所有工作表呢？for 循环如何写？

roc.jame

修改了夏代码，我这个是正在用的报表里的，但是未能解决与其他工作表核对核对的问题
'------------------------------------------------------------------------------------
Sub CheckM3() '最终完善版,只复制重复行，不包含物料编码
Application.ScreenUpdating = False
Dim d, lr, Arr, i, S
Dim rng As Range
Sheet1.Columns(14).ClearContents
Sheet1.Cells.Interior.Pattern = xlNone
Sheet4.Rows("3:65536").Clear
  Set rng = Sheet1.Range("A2:M2")
  Set d = CreateObject("Scripting.Dictionary")
    lr = Sheet1.[E65536].End(3).Row
    Arr = Sheet1.Range("C1:K" & lr)
      For i = 3 To UBound(Arr)
       j = Sheet4.[A65536].End(3).Row + 1
          S = Arr(i, 3) & Arr(i, 4) & Arr(i, 9) 'Arr(i, 1) &
          d(S) = d(S) + 1
          If d(S) > 1 Then
            Sheet1.Range(Sheet1.Cells(i, 1), Sheet1.Cells(i, 13)).Interior.Color = vbRed '颜色突出标记
             Sheet1.Rows(i).Copy Sheet4.Range("A" & j)
            Sheet4.UsedRange.Interior.Color = xlNone
          End If
          j = j + 1
      Next
  Sheet4.Activate
Application.ScreenUpdating = True
End Sub
'------------------------------------------------------------------------------------