vba - Combine Two Rows in Excel -


i have 2 rows in excel sheet . columns identical except one.something enter image description here

how can achieve ? not familiar pivot concept.

any ?

regards.

hope want:

sub quickcombine()     dim x()     dim y()     dim objdic object     dim lngrow long     dim lngcol long     dim ws worksheet      x = range([a1], cells(rows.count, "g").end(xlup))     y = x     set objdic = createobject("scripting.dictionary")      lngrow = 1 ubound(x, 1)         if not objdic.exists(lcase$(x(lngrow, 1) & x(lngrow, 2)))             objdic.add lcase$(x(lngrow, 1) & x(lngrow, 2)), lngrow         else             y(lngrow, 1) = vbnullstring             y(objdic.item(lcase$(x(lngrow, 1) & x(lngrow, 2))), 3) = y(objdic.item(lcase$(x(lngrow, 1) & x(lngrow, 2))), 3) & "," & x(lngrow, 3)         end if     next      set ws = sheets.add     [a1].resize(ubound(x, 1), ubound(x, 2)) = y     columns("a").specialcells(xlblanks).entirerow.delete  end sub 

got here.


Comments

Popular posts from this blog

java - nested exception is org.hibernate.exception.SQLGrammarException: could not extract ResultSet Hibernate+SpringMVC -

sql - Postgresql tables exists, but getting "relation does not exist" when querying -

asp.net mvc - breakpoint on javascript in CSHTML? -