excel - Find values in range and print to column -
how can generate excel in image below via macro? briefly make:
- numbers between a1 , b1 print d column;
- numbers between a2 , b2 print e column;
- numbers between a3 , b3 print f column.
columns , b have thousands of values.
only because puzzles:
sub u5758() dim x long dim long dim oarr() variant dim arr() long dim rng range dim ws worksheet application.screenupdating = false set ws = activesheet x = 4 ws oarr = .range(.cells(1, 1), .cells(.rows.count, 2).end(xlup)).value j = lbound(oarr, 1) ubound(oarr, 1) redim arr(oarr(j, 1) oarr(j, 2)) = lbound(arr) ubound(arr) arr(i) = next .cells(1, x).resize(ubound(arr) - lbound(arr) + 1).value = application.transpose(arr) x = x + 1 next j end application.screenupdating = true end sub
Comments
Post a Comment