vba代码求助！！！

xho070323

问题描述：在 B列 编号中，有重复 1 次的，也有 2 次，甚至多次的。
                  C列为我问题描述的说明，不用在结果中显示出来。

                 想把第2次及以上重复次数的对应的  G  列标记为 0 ？


                  求助大神！
                万分感谢！

lcluck2002

在G列输入公式：”=IF(COUNTIF($B$2:B2,B2)>1,0,"")“ 下拉到5977行，然后复制，选择性粘贴。


筛选一下，标记就OK了，如此简单的事情，何必整那么复杂？

sdytsxd991122

fzxba

Sub test1()
  Dim vData, Dict As Object, i As Long
  Set Dict = CreateObject("Scripting.Dictionary")
  vData = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp)).Value
  For i = 1 To UBound(vData)
    If Dict.Exists(vData(i, 1)) Then
      vData(i, 1) = 0
    Else
      Dict.Add vData(i, 1), vbNullString
      vData(i, 1) = vbNullString
    End If
  Next
  Cells(2, 7).Resize(UBound(vData)) = vData
  Set Dict = Nothing
  Beep
End Sub

xho070323

谢谢大神们！