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
Pingback: diclofenac injection
Pingback: plaquenil hydroxychloroquine stock market
Pingback: viagra overdose
Pingback: will hydroxychloroquine kill tapeworms
Pingback: hydroxychloroquine treatment update
Pingback: hydroxychloroquine stock markets price
Pingback: keto coffee creamer
Pingback: ivermectil antibiotic uses
Pingback: ivermectin indications
Pingback: priligy tablets price
Pingback: stromectola trihydrate capsule uses
Pingback: stromectol clav 875
Pingback: deltasone and rayos tablets
Pingback: gay oz dating sites
Pingback: stromectol treats
Pingback: ivermectin products
Pingback: ivermectin and rosacea
Pingback: coffee and stromectol
Pingback: generic amoxil
Pingback: lasix 10
Pingback: gabapentin 800 mg
Pingback: plaquenil online
Pingback: deltasone 50 mg cost
Pingback: super avanaful
Pingback: modafinil cost
Pingback: stromectol tablets uk
Pingback: generic viagra over counter
Pingback: albuterol 180 mcg
Pingback: azithromycin treats
Pingback: price of lasix 80 mg
Pingback: buy neurontin 100 mg
Pingback: 2.5 mg prednisone
Pingback: provigil how to buy
Pingback: stromectol for sale
Pingback: cialis 40mg india
Pingback: women taking viagra
Pingback: ivermectin 3mg for lice
Pingback: aralen 100mg
Pingback: latisse near me
Pingback: mulnupiravir
Pingback: 10 zanaflex
Pingback: clomid discount
Pingback: baricitinib 4 mg
Pingback: Anonymous
Pingback: tamoxifen sale
Pingback: Anonymous
Pingback: is ivermectin safe for humans
Pingback: ivermectin kaufen
Pingback: stromectol walgreens
Pingback: ignition casino legit
Pingback: ivermectin cost
Pingback: buy generic prednisone 10mg
Pingback: tadalafil dosages
Pingback: buying tadalafil
Pingback: topical ivermectin cost
Pingback: how much does ivermectin cost
Pingback: safe place order viagra online
Pingback: tadalafil citrate
Pingback: sildenafil uses
Pingback: can you get ivermectin over the counter
Pingback: buy generic cialis daily
Pingback: tadalafila
Pingback: cialis cialis online
Pingback: sildenafil tablets for sale
Pingback: tadalafil sandoz
Pingback: buy ivermectin pills
Pingback: sildenafil citrate
Pingback: sildenafil pills for men
Pingback: generic
Pingback: cialis no prescription
Pingback: prednisone 20mg vidal
Pingback: buy prednisone 5 mg
Pingback: medicine for coronavirus
Pingback: kamagra vs cialis
Pingback: tadalafil sandoz
Pingback: stromectol 3 mg tablets price
Pingback: where to purchase sildenafil
Pingback: cialis dosis
Pingback: live casinos online deals indian best casino
Pingback: how to get cheap viagra online
Pingback: borgata online casino
Pingback: molnupiravir and ivermectin
Pingback: cialis price walmart
Pingback: ivermectin cream
Pingback: online casinos for real money
Pingback: generic viagra buy
Pingback: 20mg cialis online tadalafil
Pingback: what is cialis
Pingback: buy cephalexin
Pingback: ivermectin generic
Pingback: where to buy ivermectin pills
Pingback: ivermectin for sale
Pingback: ivermectin cream 5%
Pingback: cost of ivermectin medicine
Pingback: stromectol 5 mg
Pingback: keflex bactericidal
Pingback: get ivermectin
Pingback: azithromycin classification
Pingback: buy ivermectin 12mg otc
Pingback: imverctin
Pingback: erythromycin oint
Pingback: keflex antibiotico
Pingback: buy ivermectin pills
Pingback: ivermectin 3mg price
Pingback: ivermectin 12 mg
Pingback: cdc ivermectin
Pingback: buy generic lasix
Pingback: furosemide 40 mg tablets online
Pingback: buy ivermectin 12mg
Pingback: stromectol for head lice
Pingback: ivermectin manufacturers
Pingback: ivermectin cream 1%
Pingback: price of ivermectin tablets
Pingback: ivermectin 12mg otc
Pingback: stromectol 12mg online
Pingback: luckyland slots casino sign in
Pingback: cialis otc
Pingback: buy stromectol uk
Pingback: top rated online canadian pharmacies
Pingback: canada pharmacy
Pingback: swerbus.webgarden.com
Pingback: ivermectin 4 tablets price
Pingback: graph.orgOmicron-Variant-Symptoms-Is-An-Excessive-Amount-Of-Mucus-A-COVID-19-Symptom-02-24
Pingback: ivermectin ebay
Pingback: https://keuybc.estranky.sk/clanky/30-facts-you-must-know--a-covid-cribsheet.html
Pingback: gwertvb.mystrikingly.com
Pingback: canada pharmacy online
Pingback: ivermectin 0.5% lotion
Pingback: viagra canada
Pingback: chubo3.wixsite.comcanadian-pharmacypostwhat-parents-must-find-out-about-kids-and-covid-19
Pingback: canadian pharmacies mail order
Pingback: pharmacy-online.yolasite.com
Pingback: kevasw.webgarden.com
Pingback: cialis over the counter walmart
Pingback: https://62553dced4718.site123.me/
Pingback: seketu.gonevis.comhigh-10-tips-with-order-medicine-online-1
Pingback: Canadian Pharmacies Shipping to USA
Pingback: canadian pharmacycanadian pharmacy
Pingback: hernswe.gonevis.comscientists-model-true-prevalence-of-covid-19-throughout-pandemic
Pingback: https://selomns.gonevis.com/a-modified-age-structured-sir-model-for-covid-19-type-viruses/
Pingback: where can you buy ivermectin
Pingback: ivermectin in diabetic patients
Pingback: ivermectin price
Pingback: https://fwervs.gumroad.com/
Pingback: https://trosorin.mystrikingly.com/
Pingback: sasnd0.wixsite.comcialispostimpotent-victims-can-now-cheer-up-try-generic-tadalafil-men-health
Pingback: buy tadalafil no prescription
Pingback: stromectol kaufen
Pingback: pharmacy walmart
Pingback: generic-cialis-20-mg.yolasite.com
Pingback: buy cialis us pharmacy
Pingback: https://skuvsbs.gonevis.com/when-tadalafil-5mg-competitors-is-good/
Pingback: buy cialis online without a prescription
Pingback: site373681070.fo.team
Pingback: sehytv.wordpress.com
Pingback: https://ghswed.wordpress.com/2022/04/27/he-final-word-information-to-online-pharmacies/
Pingback: cialis canadian pharmacy
Pingback: canadian pharcharmy online
Pingback: https://kewertyn.wordpress.com/2022/04/27/expect-more-virtual-house-calls-out-of-your-doctor-thanks-to-telehealth-revolution/
Pingback: canadian pharmacies that are legit
Pingback: canadian pharmacies that ship to us
Pingback: canadianpharmacy
Pingback: canadian rx
Pingback: best canadian pharmacies online
Pingback: canadian-pharmaceuticals-online.yolasite.com
Pingback: online-pharmacies0.yolasite.com
Pingback: canadian online pharmacies
Pingback: safe canadian online pharmacies
Pingback: canada drugs online
Pingback: canadian pharmacy uk delivery
Pingback: https://kerbnt.flazio.com/
Pingback: intermectine
Pingback: buy viagra now
Pingback: http://ime.nu/cialisonlinei.com
Pingback: https://womed7.wixsite.com/pharmacy-online/post/new-ideas-into-canada-pharmacies-never-before-revealed
Pingback: hydroxychloroquine 200 mg
Pingback: https://kerntyast.flazio.com/
Pingback: sekyuna.gonevis.comthree-step-guidelines-for-online-pharmacies
Pingback: https://gewrt.usluga.me/
Pingback: pharmacy-online.webflow.io
Pingback: canadian-pharmacy.webflow.io
Pingback: https://site273035107.fo.team/
Pingback: https://site656670376.fo.team/
Pingback: buy viagra usa
Pingback: https://site102906154.fo.team/
Pingback: canadian prescriptions online
Pingback: canadian pharmaceuticals
Pingback: https://hertnsd.nethouse.ru/
Pingback: https://uertbx.livejournal.com/402.html
Pingback: lwerts.livejournal.com276.html
Pingback: https://avuiom.sellfy.store/
Pingback: https://pharmacies.bigcartel.com/
Pingback: https://kwersd.mystrikingly.com/
Pingback: drugs for sale
Pingback: https://kqwsh.wordpress.com/2022/05/16/what-everybody-else-does-when-it-comes-to-online-pharmacies/
Pingback: site592154748.fo.team
Pingback: canada pharmacies online prescriptions
Pingback: http://aonubs.website2.me/
Pingback: https://dkyubn.bizwebs.com/
Pingback: asebg.bigcartel.comcanadian-pharmacy