When Microsoft is publishing new version of Excel they add new tools to Excel. I think in newest version of Excel there is duplicates remover. In Excel 2003 there wasn’t such a tool – I think there wasn’t? Few years ago writing application to support automatic warehouse there was need to extract unique batch numbers.
I don’t remember from where code has been taken – but I think it has been copied from some book of John Walkenbach. Following code is removing column’s values duplicates by adding them to new collection. To prevent error showing On Error Resume Next must be added to code. It’s known that used loop means long waiting time when there is a lot of not empty cells in column.
Removing duplicates:
Private Sub AddNextSheets()
' CREATE NEW SHEETS ON THE BASIS OF
' UNIQUE VALUES FROM SELECTED COLUMN
Dim LicznikWierszy As Long
Dim RemoveDuplicates As New Collection
Dim NewFileName as string
NewFileName "Some Excel file name"
LicznikWierszy = 10
Do Until ThisWorkbook.Sheets("SheetName").Cells(LicznikWierszy, 6) = ""
If ThisWorkbook.Sheets("SheetName").Cells(LicznikWierszy, 6) <> "" Then
' When cell is not empty then is adding to collection
On Error Resume Next
' Removing duplicates
RemoveDuplicates.Add ThisWorkbook.Sheets("SheetName").Cells(LicznikWierszy, 6), _
CStr(ThisWorkbook.Sheets("SheetName").Cells(LicznikWierszy, 6))
On Error GoTo 0
Else
' Empty cell - nothing happened
End If
LicznikWierszy = LicznikWierszy + 1
Loop
' Adding new sheets to chosen file with name from RemoveDuplicates collection
Windows(NewFileName).Activate
Dim Item As Object
For Each Item In RemoveDuplicates
' Adding sheet at end of WorkSheet
Sheets.Add After:=Workbooks(NewFileName).Sheets(Workbooks(NewFileName).Sheets.Count)
' Name change
Workbooks(NewFileName).Sheets(Workbooks(NewFileName).Sheets.Count).Name = Item & "-AA"
Next
Pingback: 토토도메인
Pingback: 파워볼이브
Pingback: buy/order hydrocodone online pharmacy legally cheap no script for pain, anxiety from USA UK Canada Australia Europe overseas overnight delivery
Pingback: cach soi keo bong da
Pingback: order xanax online in usa canada uk australia without prescription nextday shipping
Pingback: danh de online uy tin
Pingback: mo thay cho danh con gi
Pingback: Pi News Wire
Pingback: thenaturalpenguin
Pingback: keo chap
Pingback: mơ rắn đánh đề con gì
Pingback: English and French bulldog puppies for sale near me in USA Canada Uk Australia Europe cheap
Pingback: UNICC CM
Pingback: fake watches
Pingback: long blonde wig
Pingback: buy/order Orange Creamsicle Creampop marijuana Edibles online use for pain, anxiety, sleep for sale near me bulk in usa uk nz canada australia overnight delivery
Pingback: Hotels near Anaheim Train Station
Pingback: eatverts
Pingback: buy/order percocet 10/325 30mg 15mg online pharmacy legally no script for pain anxiety weight loss in USA Canada UK Australia overseas overnight delivery
Pingback: immediate edge reviews
Pingback: buy rishi turkey tail Magic Mushroom pills Capsules trip drug online for sale near me in USA Canada UK Australia overnight delivery cheap
Pingback: Order Adderall 10mg online overnight delivery
Pingback: Immediate Edge
Pingback: frontier airlines Phone Number
Pingback: Plumber Near Me
Pingback: bitcoin loophole review 2020
Pingback: mơ thấy con mèo đánh con gì
Pingback: mơ thấy ba ba
Pingback: Bichon Frise Puppies
Pingback: mơ thấy người cha đã mất
Pingback: Keltec Firearms for Sale
Pingback: Topcamtube.com
Pingback: visit website
Pingback: ตู้แปลภาษา
Pingback: mo gap ran
Pingback: nằm mơ thấy nhà sập
Pingback: Rock Island Armory VR80 12ga Shotgun
Pingback: male sex dolls for sale
Pingback: BP-12
Pingback: con cóc số mấy
Pingback: mơ thấy người khác chết đuối
Pingback: mơ thấy gấu
Pingback: nam mo thay ngo
Pingback: mơ câu được cá chép
Pingback: nằm mơ thấy nhà mới
Pingback: centralqq
Pingback: dơi bay vào nhà tốt hay xấu
Pingback: Stiiizy pod
Pingback: buy cialis overnight
Pingback: safe to buy levitra online
Pingback: cialis ordering australia
Pingback: cialis ordering
Pingback: viagra 100mg generic
Pingback: buy cialis philippines
Pingback: find cheap cialis online
Pingback: ordering cialis online australia
Pingback: cost of tadalafil without insurance
Pingback: can i buy cialis in uk
Pingback: cialis 20mg for sale
Pingback: yhoyhpmy
Pingback: where can i buy cheap viagra online
Pingback: hoe gevaarlijk is viagra
Pingback: how long does it take for zithromax to dissolve
Pingback: cheap generic cialis
Pingback: chew or swallow sildenafil
Pingback: buy cialis
Pingback: generic viagra
Pingback: ordering cialis online australia
Pingback: can i buy cialis in toronto
Pingback: viagra
Pingback: buy cialis with paypal
Pingback: college application essay writing service
Pingback: research paper writer
Pingback: write my essay for me online
Pingback: essay on the help
Pingback: power v8 viagra
Pingback: taking cialis soft tabs
Pingback: taking cialis soft tabs
Pingback: where can i buy amoxocillin
Pingback: furosemide 20 mg tablet cost
Pingback: zithromax online purchase
Pingback: ivermectin over the counter canada
Pingback: albuterol 990 mcg
Pingback: doxycycline for abscess
Pingback: prednisolone in pregnancy
Pingback: clomid mood swings
Pingback: order priligy
Pingback: diflucan tablet dosage
Pingback: who manufactures synthroid
Pingback: merck propecia coupons
Pingback: neurontin 200 mg
Pingback: insulin vs metformin
Pingback: paxil tired
Pingback: plaquenil stopping
Pingback: cialis sale 20mg
Pingback: buy cialis online in canada
Pingback: 20 mg cost
Pingback: Husband On Tinder
Pingback: best payday loans denver
Pingback: free malta dating sites
Pingback: best tadalafil tablets
Pingback: viagra
Pingback: cialis on ebay
Pingback: sildenafil 100mg cost
Pingback: define cialis
Pingback: viagra overnight
Pingback: tadalafil natural substitute
Pingback: online viagra
Pingback: price of tadalafil
Pingback: sildenafil 100mg gel