Reduce duplicates to 1 with a count of how many before

  • Thread starter Thread starter L. Howard
  • Start date Start date
I seem to have fixed it with the change in this line

'If Left(myArr(i, 1), 1) = "P-" Then
If Left(myArr(i, 1), 2) = "P-" Then

I would still like your opinion, however.

myArr = .Range("A1:A" & LRow)
myCt = WorksheetFunction.CountIf(.Range("A1:A" & LRow), "P-" & "*")

For i = LBound(myArr) To UBound(myArr)
ReDim Preserve arrOut(myCt - 1, 1)
'If Left(myArr(i, 1), 1) = "P-" Then
If Left(myArr(i, 1), 2) = "P-" Then
arrOut(j, 0) = myArr(i, 1)
j = j + 1
Else

arrOut(j - 1, 1) = myArr(i, 1)

End If
Next

Howard
 
Hi Howard,

Am Tue, 25 Feb 2014 18:50:41 -0800 (PST) schrieb L. Howard:
If Left(myArr(i, 1), 2) = "P-" Then
Click to expand...

if you have serial numbers starting with "P" this is the best way to fix
it.

Regards
Claus B.
 
Hi again,

Am Tue, 25 Feb 2014 18:50:41 -0800 (PST) schrieb L. Howard:
If Left(myArr(i, 1), 2) = "P-" Then
Click to expand...

if the product ID ALWAYS has 6 digits and the serial number NEVER you
could also work with LEN


Regards
Claus B.
 
Back
Top