excel - Concatenate Columns Of Data -


*edited add: current error i'm receiving. see bottom of post screenshot.

i have text in column d. macro should find blank cells, , concatenate text cells below it.

example

text starting in d2, displaying this...

blank cell sampletext1 sampletext2 sampletext3 blank cell sampletext4 sampletext5 sampletext6

the macro should display text in d2...

sampletext1, sampletext2, sampletext3

and in d6, this...

sampletext4, sampletext5, sampletext6

..and on.

this needs work in column d, i'm guessing can write range.

the closest answer i've come across here: excel macro concatenate

here code i'm working with...

sub concatcolumns()     while activecell <> ""  'loops until active cell blank.        'the "&" must have space on both sides or       'treated variable type of long integer.        activecell.offset(0, 1).formular1c1 = _          activecell.offset(0, -1) & " " & activecell.offset(0, 0)        activecell.offset(1, 0).select    loop  end sub

edit: using great code @jeeped receiving error, seen in below screenshot

enter image description here

start bottom , work up, building array of strings. when reach blank cell, join strings using preferred deliminator.

sub build_stringlists()     dim rw long, v long, vtmp variant, vstrs() variant     dim breversedorder boolean, ddeletesourcerows boolean     redim vstrs(0)      breversedorder = false     ddeletesourcerows = true      worksheets("sheet4")         rw = .cells(rows.count, 1).end(xlup).row 1 step -1             if isempty(.cells(rw, 1))                 redim preserve vstrs(0 ubound(vstrs) - 1)                 if not breversedorder                     v = lbound(vstrs) ubound(vstrs) / 2                         vtmp = vstrs(ubound(vstrs) - v)                         vstrs(ubound(vstrs) - v) = vstrs(v)                         vstrs(v) = vtmp                     next v                 end if                 .cells(rw, 1) = join(vstrs, ", ")                 .cells(rw, 1).font.color = vbblue                 if ddeletesourcerows  _                     .cells(rw, 1).offset(1, 0).resize(ubound(vstrs) + 1, 1).entirerow.delete                 redim vstrs(0)             else                 vstrs(ubound(vstrs)) = .cells(rw, 1).value2                 redim preserve vstrs(0 ubound(vstrs) + 1)             end if         next rw     end  end sub

i've left options reversing string list removing original rows of strings.

      build_string_lists_before
            before build_stringlists procedure

      build_string_lists_after
            after build_stringlists procedure


Comments

Post a Comment

Popular posts from this blog

get url and add instance to a model with prefilled foreign key :django admin -

Image
i have page in each contest shown in row. each row contains contest id , link other model names have foreign key contest. news model: class news(models.model): title = models.charfield(max_length=50, null=true) description = models.textfield() time = models.timefield( default= datetime.datetime.now().time()) contest = models.foreignkey(contest) i want use admin adding , changing these models. want when user clicks on 'news' has foreign key contest id=1, shows list of news value foreign key. use {% instance in instances %} <tr class="{% cycle 'row1' 'row2' %}"> <td>{{ instance.title }}</td> <td>{{ instance.starttime }}</td> <td>{{ instance.timespan }}</td> <td>{{ instance.date }}</td> <td><a href="/adm...
Read more

css - Make div keyboard-scrollable in jQuery Mobile? -

from can tell, although jquery-mobile-powered pages can contain divs overflow set scroll or auto, , these divs can scrolled one-screen bar or mouse wheel, cannot scrolled using arrow keys, page-up/page-down, or home/end. instead, official "page" div (with data-role="page") absorbs input. perhaps other divs can't acquire focus, i'm not sure. is there way around this? edit: jsfiddle of simple example: https://jsfiddle.net/qogz0shx/ <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.4/jquery.min.js"></script> <script src="https://ajax.googleapis.com/ajax/libs/jquerymobile/1.4.5/jquery.mobile.min.js"> </script> <link rel="stylesheet" href="https://code.jquery.com/mobile/1.4.5/jquery.mobile-1.4.5.css"/> <style> #outer { overflow:scroll; height: 50vh; width: 50vw; } #inner { height: 500vh; width: 500vw; } ...
Read more

ruby on rails - Seeing duplicate requests handled with Unicorn -

recently upgraded our ec2 instances c3.large in order boost more unicorn workers handle increased traffic our site. (6xworkers per machine - 2 ec2 instances). when did this, started seeing duplicate records being created! looks somehow, maybe 2 unicorn workers attempting process same request? in nginx logs see 1 [post] request particular rails controller - yet 2 records being created in database. i'm hitting kind of race condition issue - have no idea how debug this. doesn't happen time, when it's frustrating well. noticed 2 database records within 5 seconds of each other. (and yes disable button when user clicks submit button). unicorn 4.8.2 ruby 1.9.3 rails 3.2.14 any great! thanks! although may not fix problem, upgrade ruby 2.0.0. there blog mentioning idea upgrade ruby 2.0.0 if using unicorn. for example: https://www.digitalocean.com/community/articles/how-to-optimize-unicorn-workers-in-a-ruby-on-rails-app specifically: if using ruby 1.9, ...
Read more