- Home
- Premium Memberships
- Lottery Results
- Forums
- Predictions
- Lottery Post Videos
- News
- Search Drawings
- Search Lottery Post
- Lottery Systems
- Lottery Charts
- Lottery Wheels
- Worldwide Jackpots
- Quick Picks
- On This Day in History
- Blogs
- Online Games
- Premium Features
- Contact Us
- Whitelist Lottery Post
- Rules
- Lottery Book Store
- Lottery Post Gift Shop
The time is now 2:17 pm
You last visited
April 26, 2024, 12:01 am
All times shown are
Eastern Time (GMT-5:00)
Duplicate Integer Remover
Published:
Updated:
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
Comments
This Blog entry currently has no comments.
Post a Comment
Please Log In
To use this feature you must be logged into your Lottery Post account.
Not a member yet?
If you don't yet have a Lottery Post account, it's simple and free to create one! Just tap the Register button and after a quick process you'll be part of our lottery community.
Register