Separate duplicate riders in excel worksheet -


i have workbook 4d barrel racing jackpots designed. perfect in it, except want able make sure duplicate riders separated @ least 10 rows. possible? if so, how?

i know how find , rid of duplicates. that's not problem. want separate them each other.

thanks!

take @ below example based on elements reallocation hold queues. takes input data column a, process it, , outputs result column b.

option explicit  sub separate()      dim nseparate long     dim cqholds object     dim qinput object     dim qresult object     dim long     dim nlength long     dim content variant     dim sqname variant     dim sqtarget variant      ' set number of rows separate     nseparate = 4      ' init objects     set cqholds = createobject("scripting.dictionary")     set qinput = createobject("system.collections.queue")     set qresult = createobject("system.collections.queue")      ' push data worksheet column input queue     = 1             content = thisworkbook.sheets("data").cells(i, 1).value         if content = "" exit         qinput.enqueue content         = + 1     loop      ' reallocate input queue elements hold queues     while qinput.count > 0         ' pull 1 element input queue         content = qinput.dequeue         ' create hold queue element if not exists         if not cqholds.exists(content) set cqholds(content) = createobject("system.collections.queue")         ' push element hold queue         cqholds(content).enqueue content         ' push nseparate empty trailing places hold queue         = 1 nseparate             cqholds(content).enqueue ""         next     loop      ' retrieve elements hold queues result queue             ' search longest hold queue non-empty element on exit         nlength = 0         each sqname in cqholds             if cqholds(sqname).peek <> "" , cqholds(sqname).count > nlength                 nlength = cqholds(sqname).count                 sqtarget = sqname             end if         next         ' target queue not found         if nlength = 0 exit         ' pull 1 empty place each hold queue         each sqname in cqholds             if cqholds(sqname).peek = "" cqholds(sqname).dequeue             if cqholds(sqname).count = 0 cqholds.remove sqname         next         ' pull element target queue , push result queue         qresult.enqueue cqholds(sqtarget).dequeue         if cqholds(sqtarget).count = 0 cqholds.remove sqtarget     loop      ' force push remaining in hold queues elements result queue     nlength = qresult.count     while cqholds.count > 0         each sqname in cqholds             content = cqholds(sqname).dequeue             if content <> "" qresult.enqueue content             if cqholds(sqname).count = 0 cqholds.remove sqname         next     loop     if qresult.count > nlength msgbox "can't arrange " & (qresult.count - nlength) & " last elements"      ' pull data result queue worksheet column b     = 1     while qresult.count > 0         thisworkbook.sheets("data").cells(i, 2).value = qresult.dequeue         = + 1     loop  end sub

here sample code testing, number of rows separate set 4:

sample


Comments

Post a Comment

Popular posts from this blog

android - InAppBilling registering BroadcastReceiver in AndroidManifest -

i'm implementing inapp billing in android app. works well, however, i'm trying decouple broadcast receiver activity manifest. suggestion in android's trivialdrive sample: // important: dynamically register broadcast messages updated purchases. // register receiver here instead of <receiver> in manifest // because call getpurchases() @ startup, therefore can ignore // broadcasts sent while app isn't running. // note: registering listener in activity bad idea, done here // because sample. regardless, receiver must registered after // iabhelper setup, before first call getpurchases(). currently there's class extends broadcastreceiver : public class iabbroadcastreceiver extends broadcastreceiver { /** * intent action receiver should filter for. */ public static final string action = "com.android.vending.billing.purchases_updated"; private final iabbroadcastlistener mlistener; public iabbroadcastreceiver(iabbroadcastlistener listener) { m...
Read more

python Tkinter Capturing keyboard events save as one single string -

is possible store keyboard events 1 string? code below stores 1 char , prints it. card reader or bar code reader, contains collection of character/ string not 1 character @ time. goal save char pressed text variable. from tkinter import * root = tk() def key(event): text= event.char text+= event.char print ("pressed", text) def callback(event): frame.focus_set() print ("clicked at", event.x, event.y) frame = frame(root, width=100, height=100) frame.bind("<key>", key) frame.bind("<button-1>", callback) frame.pack() root.mainloop() currently, creating text variable , everytime key() function gets called, , text stores last character typed. you can define text module level variable , , use module level text inside key function - text = '' def key(event): global text text+= event.char print("pressed", text)
Read more

sql server - Why does Linq-to-SQL add unnecessary COUNT()? -

here tables: create table customer ( cid int primary key, name varchar(32) ) create table ord ( oid int primary key, cid int foreign key references customer, address varchar(20) ) here's linq-to-sql statement: var aaa = c in db.customer select new { c, o = c.ord.tolist() }; and here's inexplicable query generated linq-to-sql: select [t0].[cid] [cid], [t0].[name] [name], [t1].[oid] [oid], [t1].[cid] [cid2], [t1].[address] [address], (select count(*) [dbo].[ord] [t2] [t2].[cid] = [t0].[cid]) [value] [dbo].[customer] [t0] left outer join [dbo].[ord] [t1] on [t1].[cid] = [t0].[cid] order [t0].[cid], [t1].[oid] i want understand how rid of count(*) part. it's entirely uncalled for! linq needs count(*) in order determine number of entries returned o = c.ord.tolist() .
Read more