/blogentry/62539 time*treat's Blog: Duplicate Integer Remover en-us Lottery Post RSS Generator /blogentry/62539 /blogentry/62539 Fri, 20 Jan 2012 22:21:19 GMT time*treat Option Explicit

Sub Duplicate__Integer__Remover()

'by time*treat'

'grabs a max of about 32,000 integers with values between 0 and 9, inclusive'

'sorts and removes any duplicates'

'inputs from one column and outputs to another column'

Dim input__col As Integer, output__col As Integer

Dim input__row As Integer, output__row As Integer

Dim holding__tank() As Integer, int__val As Integer

'initialize'

input__col = 6

output__col = 10

ReDim holding__tank(0 To 9)

For int__val = 0 To 9

holding__tank(int__val) = 0

Next int__val

'get list'

input__row = 1

While Sheet1.Cells(input__row, input__col).Value

holding__tank(Sheet1.Cells(input__row, input__col).Value) = 1

input__row = input__row + 1

Wend

'build output'

output__row = 0

For int__val = 0 To 9

If holding__tank(int__val) = 1 Then

output__row = output__row + 1

Sheet1.Cells(output__row, output__col).Value = int__val

End If

Next int__val

End Sub

... [ More ]

]]> Blog Entry time*treat https://www.lotterypost.com/blogentry/62539