Concatenate and maybe countif? but how?

W

wrylie

New Member
Joined
Dec 3, 2008
Messages
9
Hi all!
I have a list as shown below left. I need the list to look like the one below right. I have tried ump-teen different ways, and spent hours googling, but cannot figure it out. Can anyone help?
Thanks a million!​


<TABLE dir=ltr cellSpacing=0 cellPadding=12 width=578 border=1><TBODY><TR><TD vAlign=bottom width="16%" height=0>bob

​
</TD><TD vAlign=bottom width="16%" height=0>form1

​
</TD><TD vAlign=bottom width="20%" height=0>Take this
<---

​
</TD><TD vAlign=bottom width="16%" height=0>bob
​
</TD><TD vAlign=bottom width="31%" height=0>form1, form2, form3
​
</TD></TR><TR><TD vAlign=bottom width="16%" height=0>bob
​
</TD><TD vAlign=bottom width="16%" height=0>form2

​
</TD><TD vAlign=bottom width="20%" height=0>
​
</TD><TD vAlign=bottom width="16%" height=0>mary
​
</TD><TD vAlign=bottom width="31%" height=0>form1, form2
​
</TD></TR><TR><TD vAlign=bottom width="16%" height=0>bob

​
</TD><TD vAlign=bottom width="16%" height=0>form3

​
</TD><TD vAlign=bottom width="20%" height=0>Turn it into this --->

​
</TD><TD vAlign=bottom width="16%" height=0>ken

​
</TD><TD vAlign=bottom width="31%" height=0>form1, form2, form3, form4

​
</TD></TR><TR><TD vAlign=bottom width="16%" height=0>mary

​
</TD><TD vAlign=bottom width="16%" height=0>form1

​
</TD><TD vAlign=bottom width="20%" height=0>

​
</TD><TD vAlign=bottom width="16%" height=0>

​
</TD><TD vAlign=bottom width="31%" height=0>

​
</TD></TR><TR><TD vAlign=bottom width="16%" height=0>mary

​
</TD><TD vAlign=bottom width="16%" height=0>form2

​
</TD><TD vAlign=bottom width="20%" height=0>

​
</TD><TD vAlign=bottom width="16%" height=0>

​
</TD><TD vAlign=bottom width="31%" height=0>

​
</TD></TR><TR><TD vAlign=bottom width="16%" height=0>ken

​
</TD><TD vAlign=bottom width="16%" height=0>form1

​
</TD><TD vAlign=bottom width="20%" height=0>

​
</TD><TD vAlign=bottom width="16%" height=0>

​
</TD><TD vAlign=bottom width="31%" height=0>

​
</TD></TR><TR><TD vAlign=bottom width="16%" height=0>ken

​
</TD><TD vAlign=bottom width="16%" height=0>form2

​
</TD><TD vAlign=bottom width="20%" height=0>

​
</TD><TD vAlign=bottom width="16%" height=0>

​
</TD><TD vAlign=bottom width="31%" height=0>

​
</TD></TR><TR><TD vAlign=bottom width="16%" height=0>ken

​
</TD><TD vAlign=bottom width="16%" height=0>form3

​
</TD><TD vAlign=bottom width="20%" height=0>

​
</TD><TD vAlign=bottom width="16%" height=0>

​
</TD><TD vAlign=bottom width="31%" height=0>

​
</TD></TR><TR><TD vAlign=bottom width="16%" height=0>ken

​
</TD><TD vAlign=bottom width="16%" height=0>form4

​
</TD><TD vAlign=bottom width="20%" height=0>

​
</TD><TD vAlign=bottom width="16%" height=0>

​
</TD><TD vAlign=bottom width="31%" height=0>

​
</TD></TR></TBODY></TABLE>​
 
Sort by date Sort by votes
try
Code: 
Sub test()
Dim a, i
ReDim b(1 To UBound(a,1), 1 To 2)
With CreateObject("Scripting.Dictionary")
    .Comparemode = vbTextCompare
    For i = 1 To UBound(a, 1)
        .item(a(i, 1)) = .item(a(i, 1)) & IIf(.item(a(i, 1)) <> "",",","") & a(i, 2)
    Next
    Range("d1").Resize(.count, 2).Value = _
    Application.Transpose(Array(.keys, .items))
End With
End Sub
 
Upvote 0
jindon's code didn't work for me, so here is another suggestion. Try it on a copy of your workbook.

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> Rearrange()<br>    <SPAN style="color:#00007F">Dim</SPAN> lr <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, r <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <br>    Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br>    lr = Range("A" & Rows.Count).End(xlUp).Row<br>    <SPAN style="color:#00007F">For</SPAN> r = lr <SPAN style="color:#00007F">To</SPAN> 2 <SPAN style="color:#00007F">Step</SPAN> -1<br>        <SPAN style="color:#00007F">With</SPAN> Cells(r, 1)<br>            <SPAN style="color:#00007F">If</SPAN> .Value = .Offset(-1).Value <SPAN style="color:#00007F">Then</SPAN><br>                .Offset(-1, 1).Value = .Offset(-1, 1).Value & ", " _<br>                                        & .Offset(, 1).Value<br>                .EntireRow.Delete<br>            <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    <SPAN style="color:#00007F">Next</SPAN> r<br>    Columns("B").AutoFit<br>    Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>
 
Upvote 0
Oh Wow!. I mean...wow! Peter, that was so slick! Thank you. That did EXACTLY what I needed it to do, and quickly. Jindon, thank you as well.
 
Upvote 0
Hey all,

The soluntion that Peter provided was excellent and worked for a year but my data has now changed. Can anyone assist me to get beyond the hurdle of the change. I have googled it for a while and I'm struggling with the change.

<TABLE class="" style="WIDTH: 382pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=508 border=0><COLGROUP class=""><COL class="" style="WIDTH: 45pt" width=60><COL class="" style="WIDTH: 49pt" width=65><COL class="" style="WIDTH: 33pt" width=44><COL class="" style="WIDTH: 67pt" width=89><COL class="" style="WIDTH: 45pt" width=60><COL class="" style="WIDTH: 110pt" width=146><COL class="" style="WIDTH: 33pt" width=44><TBODY class=""><TR class="" style="HEIGHT: 15pt" height=20><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; HEIGHT: 15pt; TEXT-ALIGN: center" width=60 height=20>mellickd</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 49pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=65>sub</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=44>R</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 67pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=89>Take this</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=60>mellickd</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 110pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=146>sub</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=44>R</TD></TR><TR class="" style="HEIGHT: 15pt" height=20><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; HEIGHT: 15pt; TEXT-ALIGN: center" width=60 height=20>mellickd</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 49pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=65>rls</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=44>RIUDE</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 67pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=89><---</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=60>mellickd</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 110pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=146>rls, tgl, vlr</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=44>RIUDE</TD></TR><TR class="" style="HEIGHT: 15pt" height=20><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; HEIGHT: 15pt; TEXT-ALIGN: center" width=60 height=20>mellickd</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 49pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=65>tgl</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=44>RIUDE</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 67pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=89></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=60>miklosc</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 110pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=146>rls</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=44>R</TD></TR><TR class="" style="HEIGHT: 15pt" height=20><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; HEIGHT: 15pt; TEXT-ALIGN: center" width=60 height=20>mellickd</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 49pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=65>vlr</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=44>RIUDE</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 67pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=89>Turn into this</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=60>miklosc</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 110pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=146>sub, tgl, vlr</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif">RIUDE</TD></TR><TR class="" style="HEIGHT: 15pt" height=20><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; HEIGHT: 15pt; TEXT-ALIGN: center" width=60 height=20>miklosc</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 49pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=65>rls</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=44>R</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 67pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=89>---></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=60>paintert</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 110pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=146>apopdest</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=44>R</TD></TR><TR class="" style="HEIGHT: 15pt" height=20><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; HEIGHT: 15pt; TEXT-ALIGN: center" width=60 height=20>miklosc</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 49pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=65>sub</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=44>RIUDE</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 67pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=89></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=60>paintert</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 110pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif" width=146>ap_pc2ls, apgtt, appctl</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif">RIUDE</TD></TR><TR class="" style="HEIGHT: 15pt" height=20><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; HEIGHT: 15pt; TEXT-ALIGN: center" width=60 height=20>miklosc</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 49pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=65>tgl</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=44>RIUDE</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 67pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=89></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD></TR><TR class="" style="HEIGHT: 15pt" height=20><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; HEIGHT: 15pt; TEXT-ALIGN: center" width=60 height=20>miklosc</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 49pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=65>vlr</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=44>RIUDE</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 67pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=89></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD></TR><TR class="" style="HEIGHT: 15pt" height=20><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; HEIGHT: 15pt; TEXT-ALIGN: center" width=60 height=20>paintert</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 49pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=65>apopdest</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=44>R</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 67pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=89></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD></TR><TR class="" style="HEIGHT: 15pt" height=20><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; HEIGHT: 15pt; TEXT-ALIGN: center" width=60 height=20>paintert</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 49pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=65>ap_pc2ls</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=44>RIUDE</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 67pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=89></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD></TR><TR class="" style="HEIGHT: 15pt" height=20><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 45pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; HEIGHT: 15pt; TEXT-ALIGN: center" width=60 height=20>paintert</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 49pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=65>apgtt</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 33pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=44>RIUDE</TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; WIDTH: 67pt; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif; TEXT-ALIGN: center" width=89></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD><TD class="" style="PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FONT-SIZE: 11pt; PADDING-BOTTOM: 0px; VERTICAL-ALIGN: bottom; COLOR: black; PADDING-TOP: 1px; FONT-FAMILY: Calibri, sans-serif"></TD></TR></TBODY></TABLE>
 
Upvote 0
Try changing
Code: 
If .Value = .Offset(-1).Value Then
to
Code: 
If .Value = .Offset(-1).Value And .Offset(, 2).Value = .Offset(-1, 2).Value Then
 
Upvote 0
With 2 columns:

Code: 
Sub tst()
  sq = Filter(WorksheetFunction.Transpose([(A1:A200) & "," & (B1:B200)]), "")
  Do
    c01 = c01 & vbCr & Split(sq(0), ",")(0) & "|" & Replace(Join(Filter(sq, Split(sq(0), ",")(0)), ""), Split(sq(0), ",")(0), "")
    sq = Filter(sq, Split(sq(0), ",")(0), False)
  Loop Until sq(0) = ","
    
  With Cells(1, 5).Resize(UBound(Split(c01, vbCr)))
     .Value = WorksheetFunction.Transpose(Split(Replace(Mid(c01, 2), "|,", "|"), vbCr))
     .TextToColumns , 1, -4142, , False, False, False, False, True, "|"
  End With
End Sub

with three columns:

Code: 
Sub tst()
  sq = Filter(WorksheetFunction.Transpose([(A1:A200) & "," & (B1:B200) & "," & (C1:C200)]), "")
  Do
    c01 = c01 & vbCr & Split(sq(0), ",")(0) & "|" & Replace(Join(Filter(sq, Split(sq(0), ",")(0)), ""), Split(sq(0), ",")(0), "")
    sq = Filter(sq, Split(sq(0), ",")(0), False)
  Loop Until sq(0) = ","
    
  With Cells(1, 5).Resize(UBound(Split(c01, vbCr)))
    .Value = WorksheetFunction.Transpose(Split(Replace(Mid(c01, 2), "|,", "|"), vbCr))
    .TextToColumns , 1, -4142, , False, False, False, False, True, "|"
  End With
End Sub
 
Upvote 0
Hello Excel board.

I have a situation similar to what the OP had but involves a 3rd column to be included as well. When testing it out the code worked fine for 2 columns as what was asked, but when the 3rd column came into play, testing started to fail. I tried snb_s' code for 3 columns but it gave me a Subscript out of range error at his
Code: 
Loop Until sq(0) = ","
line. Also for some reason it didn't work on the 3rd column but that may have been a placing error on my part. The number of rows varies from 100-300 a day, and the information in the 2nd and 3rd column needs to be combined so look like this:

[TABLE="class: grid, width: 400, align: left"]
<tbody>[TR]
[TD]A[/TD]
[TD][/TD]
[TD]a[/TD]
[TD]<<<[/TD]
[TD]into[/TD]
[TD]>>>[/TD]
[TD]A[/TD]
[TD][/TD]
[TD]a[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD][/TD]
[TD]b[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]B[/TD]
[TD][/TD]
[TD]b, c[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD][/TD]
[TD]c[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]C[/TD]
[TD]1[/TD]
[TD]d[/TD]
[/TR]
[TR]
[TD]C[/TD]
[TD]1[/TD]
[TD]d[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]D[/TD]
[TD]2, 3, 4[/TD]
[TD]e, e, f[/TD]
[/TR]
[TR]
[TD]D[/TD]
[TD]2[/TD]
[TD]e[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]E[/TD]
[TD][/TD]
[TD]g[/TD]
[/TR]
[TR]
[TD]D[/TD]
[TD]3[/TD]
[TD]e[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]F[/TD]
[TD]5[/TD]
[TD]a[/TD]
[/TR]
[TR]
[TD]D[/TD]
[TD]4[/TD]
[TD]f[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]G[/TD]
[TD][/TD]
[TD]i, i[/TD]
[/TR]
[TR]
[TD]E[/TD]
[TD][/TD]
[TD]g[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]H[/TD]
[TD]6, 7[/TD]
[TD]b, e[/TD]
[/TR]
[TR]
[TD]F[/TD]
[TD]5[/TD]
[TD]a[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]G[/TD]
[TD][/TD]
[TD]i[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]G[/TD]
[TD][/TD]
[TD]i[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]H[/TD]
[TD]6[/TD]
[TD]b[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]H[/TD]
[TD]7[/TD]
[TD]e[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

I work for a shipping company so the first column represents customer being shipped to (customer code), 2nd column represents shipping method (some have tracking numbers, some don't, none are the same) and 3rd column represents items sent to them. I have a feeling for some reason that a line of code needs to be added to what Peter responded with, but I can't figure out what it would be. Any help would be appreciated and thank you in advance...
 
Upvote 0
Calvinball96 said:
Hello Excel board.

I have a situation similar to what the OP ...
Click to expand...
Welcome to the MrExcel board!

Try this code in copy of your workbook.

I've assumed your data starts in cell A1.

I wasn't sure if you wanted the results in a new column or replacing the original data.
My codes writes the results to columns G:I but if you want the old data over-written, just change the G1 at the bottom of the code to A1.

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> Rearrange()<br>  <SPAN style="color:#00007F">Dim</SPAN> a, b<br>  <SPAN style="color:#00007F">Dim</SPAN> r <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, rws <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, k <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>  <SPAN style="color:#00007F">Dim</SPAN> c1 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>, c2 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>, c3 <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br>  <br>  rws = Range("A" & Rows.Count).End(xlUp).Row + 1<br>  a = Range("A1").Resize(rws, 3).Value<br>  <SPAN style="color:#00007F">ReDim</SPAN> b(1 <SPAN style="color:#00007F">To</SPAN> rws, 1 <SPAN style="color:#00007F">To</SPAN> 3)<br>  c1 = a(1, 1)<br>  c2 = a(1, 2)<br>  c3 = a(1, 3)<br>  <SPAN style="color:#00007F">For</SPAN> r = 2 <SPAN style="color:#00007F">To</SPAN> rws<br>    <SPAN style="color:#00007F">If</SPAN> a(r, 1) = c1 <SPAN style="color:#00007F">Then</SPAN><br>      c2 = c2 & ", " & a(r, 2)<br>      c3 = c3 & ", " & a(r, 3)<br>    <SPAN style="color:#00007F">Else</SPAN><br>      <SPAN style="color:#00007F">Do</SPAN> <SPAN style="color:#00007F">While</SPAN> Left(c2, 1) = ","<br>        c2 = Mid(c2, 3)<br>      <SPAN style="color:#00007F">Loop</SPAN><br>      k = k + 1<br>      b(k, 1) = c1<br>      b(k, 2) = c2<br>      b(k, 3) = c3<br>      c1 = a(r, 1)<br>      c2 = a(r, 2)<br>      c3 = a(r, 3)<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>  <SPAN style="color:#00007F">Next</SPAN> r<br>  Range("G1").Resize(rws, 3).Value = b<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>
 
Upvote 0
Peter you are quite the awesome person and thank you very much for the response to this. I didn't know if it needed to be mentioned initially that there are 2 more columns of data, which are all text which will be condensed like column 1, so it goes from A to G. In my example I just figured it would delete the rows after being utilized and the code wouldn't have mattered because the last 2 rows are just more in depth of the 1st and 3rd. The table would look like this (before and after):

[TABLE="class: grid, width: 750, align: left"]
<tbody>[TR]
[TD]A[/TD]
[TD][/TD]
[TD]a[/TD]
[TD]AA[/TD]
[TD]AA[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]A[/TD]
[TD][/TD]
[TD]a[/TD]
[TD]AA[/TD]
[TD]AA[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD][/TD]
[TD]b[/TD]
[TD]BB[/TD]
[TD]BB[/TD]
[TD]<<<[/TD]
[TD]into[/TD]
[TD]>>>[/TD]
[TD]B[/TD]
[TD][/TD]
[TD]b, c[/TD]
[TD]BB[/TD]
[TD]BB[/TD]
[/TR]
[TR]
[TD]B[/TD]
[TD][/TD]
[TD]c[/TD]
[TD]BB[/TD]
[TD]BB[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]C[/TD]
[TD]1[/TD]
[TD]d[/TD]
[TD]CC[/TD]
[TD]CC[/TD]
[/TR]
[TR]
[TD]C[/TD]
[TD]1[/TD]
[TD]d[/TD]
[TD]CC[/TD]
[TD]CC[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]D[/TD]
[TD]2, 3, 4[/TD]
[TD]e, e, f[/TD]
[TD]DD[/TD]
[TD]DD[/TD]
[/TR]
[TR]
[TD]D[/TD]
[TD]2[/TD]
[TD]e[/TD]
[TD]DD[/TD]
[TD]DD[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]E[/TD]
[TD][/TD]
[TD]g[/TD]
[TD]EE[/TD]
[TD]EE[/TD]
[/TR]
[TR]
[TD]D[/TD]
[TD]3[/TD]
[TD]e[/TD]
[TD]DD[/TD]
[TD]DD[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]F[/TD]
[TD]5[/TD]
[TD]a[/TD]
[TD]FF[/TD]
[TD]FF[/TD]
[/TR]
[TR]
[TD]D[/TD]
[TD]4[/TD]
[TD]f[/TD]
[TD]DD[/TD]
[TD]DD[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]G[/TD]
[TD][/TD]
[TD]i, i[/TD]
[TD]GG[/TD]
[TD]GG[/TD]
[/TR]
[TR]
[TD]E[/TD]
[TD][/TD]
[TD]g[/TD]
[TD]EE[/TD]
[TD]EE[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]H[/TD]
[TD]6, 7[/TD]
[TD]b, e[/TD]
[TD]HH[/TD]
[TD]HH[/TD]
[/TR]
[TR]
[TD]F[/TD]
[TD]5[/TD]
[TD]a[/TD]
[TD]FF[/TD]
[TD]FF[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]G[/TD]
[TD][/TD]
[TD]i[/TD]
[TD]GG[/TD]
[TD]GG[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]G[/TD]
[TD][/TD]
[TD]i[/TD]
[TD]GG[/TD]
[TD]GG[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]H[/TD]
[TD]6[/TD]
[TD]b[/TD]
[TD]HH[/TD]
[TD]HH[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]H[/TD]
[TD]7[/TD]
[TD]e[/TD]
[TD]HH[/TD]
[TD]HH[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
I'm really sorry about this, didn't know the code would make a difference and I attempted to modify it but wasn't able to produce anything.
 
Upvote 0
You must log in or register to reply here.

Similar threads

V
  • Question Question
How to Expand Components of an Assembly while preserving Dates
Replies
2
Views
121
Vog2654
V
A
  • Question Question
Switch data between columns on same row
Replies
8
Views
161
Peter_SSs
Peter_SSs
SFCChase
  • Question Question
Use Dropdown to search other tabs
Replies
4
Views
243
SFCChase
SFCChase
D
  • Solved
VBA Function to Paste Table into Outlook Email Resulting in HTML language in Email
Replies
8
Views
951
smozgur
smozgur
N
  • Solved
Averaging every Nth cell in a column
Replies
9
Views
214
Peter_SSs
Peter_SSs

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top