I have a code that counts duplicates in selected range and writes them down in specific column. It looks like that:
I use this to operate on files which look like that:Sub CountDuplicates() Dim ws As Worksheet Dim lastRow As Long, x As Long Dim items As Object Application.ScreenUpdating = False Set ws = Arkusz1 lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row Set items = CreateObject("Scripting.Dictionary") For x = 1 To lastRow If Not items.exists(ws.Range("A" & x).Value) Then items.Add ws.Range("A" & x).Value, 1 ws.Range("AM" & x).Value = items(ws.Range("A" & x).Value) Else items(ws.Range("A" & x).Value) = items(ws.Range("A" & x).Value) + 1 ws.Range("AM" & x).Value = items(ws.Range("A" & x).Value) End If Next x End Sub
ID;English [en];Finnish (FINLAND) [fi_FI];Polish [pl] Source[global].UnitGroup[Length].ID[115];millimeter;; Source[global].UnitGroup[Length].ID[116];mm;; Source[global].UnitGroup[Length].ID[117];centimeter;; Source[global].UnitGroup[Length].ID[118];cm;; Source[global].UnitGroup[Length].ID[119];meter;; Source[global].UnitGroup[Length].ID[120];m;; Source[global].UnitGroup[Length].ID[176];inch;; Source[global].UnitGroup[Length].ID[177];inch;; Source[global].UnitGroup[Length].ID[186];nanometer;; Source[global].UnitGroup[Length].ID[187];nm;; Source[global].UnitGroup[Length].ID[188];micrometer;; Source[global].UnitGroup[Length].ID[189];µm;; Source[global].UnitGroup[Length].ID[7579];;; Source[global].UnitGroup[Length].ID[7580];;; Source[global].UnitGroup[Length].ID[86777];feet;;
The problem is that it will not find any duplicates. I want this program to start looking for duplicates for example after first ";" in every row. In this case rows with the ID 7579 and 7580 would be duplicates. Thanks for help and sorry for my terrible english ..