i want have multiple city numbers , amount of blocks provided in data given. here image of i'm looking @ , out put of need like. image of needed done
in column see 41288 , in column b see integer value of 4
in empty column lets c,d,e,f,g,h ..... want space out between cells shown in column e , f.
so, believe question how space out between integer number , digit number in (a)?
i know there has got formula. however, not knowing ask on google can no where.
the vba answer (which gives in exact format after) follows:
sub digitblocks() dim rng range, double, b double, c double, d double, e double set rng = activesheet.range("a2").currentregion = val(right(left(rng.address, instr(rng.address, ":") - 1), len(left(rng.address, instr(rng.address, ":") - 1)) - instrrev(left(rng.address, instr(rng.address, ":") - 1), "$"))) + 1 b = 3 d = rng.rows.count range("e" & b).value = range("a" & d).value e = range("b" & d).value c = 1 e range("f" & b + c - 1).value = c next c b = b + c next d end sub
given amended requirements in comments answer now:
sub digitblocks() dim rng range, double, b double, c double, d double, e double set rng = activesheet.range("a2").currentregion = val(right(left(rng.address, instr(rng.address, ":") - 1), len(left(rng.address, instr(rng.address, ":") - 1)) - instrrev(left(rng.address, instr(rng.address, ":") - 1), "$"))) + 1 b = 3 d = rng.rows.count range("m" & b).value = range("j" & d).value e = range("k" & d).value c = 1 e range("n" & b + c - 1).value = c next c b = b + c next d end sub
Comments
Post a Comment