excel - Generate new worksheet based on column data for LARGE spreadsheets -

-

i have spreadsheet 800k rows , 150 columns. i'm attempting create new worksheets based on contents of column. so, example if column y has many elements ("alpha", "beta", "gamma", etc.) i'd create new worksheets named "alpha", "beta", "gamma" contain rows original have respective letters. i've found 2 scripts work smaller spreadsheets, due size of particular spreadsheet, don't work.

here 2 scripts have tried:

sub parse_data() dim lr long dim ws worksheet dim vcol, integer dim icol long dim myarr variant dim title string dim titlerow integer vcol = 1        set ws = sheets("sheet1")        lr = ws.cells(ws.rows.count, vcol).end(xlup).row title = "a1:c1"            titlerow = ws.range(title).cells(1).row icol = ws.columns.count ws.cells(1, icol) = "unique" = 2 lr     on error resume next     if ws.cells(i, vcol) <> "" , application.worksheetfunction.match(ws.cells(i, vcol), ws.columns(icol), 0) = 0         ws.cells(ws.rows.count, icol).end(xlup).offset(1) = ws.cells(i, vcol)     end if next myarr = application.worksheetfunction.transpose(ws.columns(icol).specialcells(xlcelltypeconstants)) ws.columns(icol).clear = 2 ubound(myarr)     ws.range(title).autofilter field:=vcol, criteria1:=myarr(i) & ""     if not evaluate("=isref('" & myarr(i) & "'!a1)")         sheets.add(after:=worksheets(worksheets.count)).name = myarr(i) & ""     else         sheets(myarr(i) & "").move after:=worksheets(worksheets.count)     end if     ws.range("a" & titlerow & ":a" & lr).entirerow.copy sheets(myarr(i) & "").range("a1")     sheets(myarr(i) & "").columns.autofit next ws.autofiltermode = false ws.activate end sub

this returns "overflow"

the other code have tried:

sub columntosheets()  const sname string = "voterfile_withabsenteeinformati" 'change whatever starting sheet const s string = "o" 'change whatever criterion column dim d object, a, cc& dim p&, i&, rws&, cls& set d = createobject("scripting.dictionary") sheets(sname)     rws = .cells.find("*", , , , xlbyrows, xlprevious).row     cls = .cells.find("*", , , , xlbycolumns, xlprevious).column     cc = .columns(s).column end each sh in worksheets     d(sh.name) = 1 next sh  application.screenupdating = false sheets.add(after:=sheets(sname))     sheets(sname).cells(1).resize(rws, cls).copy .cells(1)     .cells(1).resize(rws, cls).sort .cells(cc), 2, header:=xlyes     = .cells(cc).resize(rws + 1, 1)     p = 2     = 2 rws + 1         if a(i, 1) <> a(p, 1)             if d(a(p, 1)) <> 1                 sheets.add.name = a(p, 1)                 .cells(1).resize(, cls).copy cells(1)                 .cells(p, 1).resize(i - p, cls).copy cells(2, 1)             end if             p =         end if     next     application.displayalerts = false     .delete     application.displayalerts = true     application.screenupdating = true end sheets(sname).activate  end sub

returns error "excel not have enough resources".

is possible want on hardware?

you can refer modified subroutine in article 'macro copying , pasting data worksheet'. 

sub copysheet()  dim wsall worksheet dim wscrit worksheet dim wsnew worksheet dim lastrow long dim lastrowcrit long dim long  set wsall = worksheets("all") ' change name of worksheet existing data on  lastrow = wsall.range("a" & rows.count).end(xlup).row  set wscrit = worksheets.add  ' column g has criteria eg project ref wsall.range("a1:a" & lastrow).advancedfilter action:=xlfiltercopy, copytorange:=wscrit.range("a1"), unique:=true  lastrowcrit = wscrit.range("a" & rows.count).end(xlup).row = 2 lastrowcrit       wsall.copy before:=sheets("all")      activesheet.name = wscrit.range("a2")      range("a1").currentregion.advancedfilter action:=xlfilterinplace, criteriarange:=wscrit.range("a1:a2"), _      unique:=false      wscrit.rows(2).delete  next  application.displayalerts = false wscrit.delete application.displayalerts = true  end sub

Comments

Post a Comment

Popular posts from this blog

mysql - Dreamhost PyCharm Django Python 3 Launching a Site -

-
i'm new python/django , created simple django website using pycharm. site works fine running on computer, i'm lost when comes taking site onto host (dreamhost). i'm able upload files correct directories fine, , believe made correct changes database on mysql. i'm not sure go there though. right now, page shows files rather site. direction appreciated. much! you should not run django application using python manage.py runserver on production. how run application on django depends on server (apache, nginx) want use for apache - https://docs.djangoproject.com/en/1.10/howto/deployment/wsgi/modwsgi/ for nginx - https://www.digitalocean.com/community/tutorials/how-to-serve-django-applications-with-uwsgi-and-nginx-on-ubuntu-14-04 the mysql database should, of course, exist , have correct credentials. or, if choose use sqlite, file should accessible, readable , writable www-user (may different depending on linux distributive)
Read more

java - Sending SMS with SMSLib and Web Services -

-
i have made rest web service send smss using hsdpa usb modem. using smslib in java send smss. every time web service invoked, create gateway start service, send message, stop service , remove gateway. takes 20 seconds each message. found starting service takes lot of time. part of code use send smss service.getinstance().addgateway(gateway); service.getinstance().startservice(); outboundmessage msg = new outboundmessage(phonenumber, message); if (service.getinstance().sendmessage(msg)) { result = "message sent successfully!!"; } else { result = "could not send message."; } service.getinstance().stopservice(); service.getinstance().removegateway(gateway);//remove gateway is there way can start service once if not started , use send message when ever web service invoked? why dont group messages , send in 1 go? service.getinstance().sendmessages(messa...
Read more

java - How to resolve The method toString() in the type Object is not applicable for the arguments (InputStream) -

-
i'm trying read json file local machine. @path("/") public class jsonparsing { file f = new file("file.json"); if (f.exists()){ inputstream = new fileinputstream("file.json"); string jsontxt = ioutils.tostring(is); system.out.println(jsontxt); jsonobject json = new jsonobject(jsontxt); string = json.getstring("1000"); system.out.println(a); } } but i'm getting error in tostring() method. possible read .txt file containing json object local machine? if possible, how done? firstly: whenever ask question- add imports well. secondly: yes possible read .txt file containing json object. steps: 1. add maven dependency in pom.xml - <dependency> <groupid>com.googlecode.json-simple</groupid> <artifactid>json-simple</artifactid> <version>1.1.1</version> </dependency> or add jar of dependency. 2.import...
Read more