Reduce duplicates to 1 with a count of how many before
 

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

Reduce duplicates to 1 with a count of how many before
 

Hi Howard,

Am Tue, 25 Feb 2014 18:50:41 -0800 (PST) schrieb L. Howard:

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

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

Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Reduce duplicates to 1 with a count of how many before
 

Hi again,

Am Tue, 25 Feb 2014 18:50:41 -0800 (PST) schrieb L. Howard:

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

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


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2