Multiple find replace with count of replacement made

R

rohansnaik

New Member
Joined
Jan 12, 2014
Messages
3
As You can See i have Data in Sheet 1 which contains sites which in string and in Sheet 2 i have site list i wanted to add one more | Pipe sign in site list ,So When I run macro it should give me result in Sheet 3 with All data with || (2Pipe sign) and Report of count of replacement done of every sites and if no of replacement is 0 than it should show replacement count as 0

___________________________________________________________________________________________________
I have Data in Sheet1 as shown below

[TABLE="width: 64"]
<tbody>[TR]
[TD="width: 64"]1234|ABCD1|XYZ1|ABCDEF1|GHUIJK1|AB1|yahoo.com|12345|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1235|EFGH2|STU1|ABCDEF2|GHUIJK11|BC1|gmail.com|12346|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1236|ABCD2|XYZ2|ABCDEF3|GHUIJK21|DC1|mail.com|12347|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1237|EFGH3|STU2|ABCDEF4|GHUIJK31|JC1|indiatimes.com|12348|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1238|ABCD3|XYZ2|ABCDEF5|GHUIJK41|AB2|timesofindia.com|12349|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1239|EFGH4|STU2|ABCDEF6|GHUIJK51|BC2|wechat.com|12350|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1240|ABCD4|XYZ3|ABCDEF7|GHUIJK61|DC2|radiomirchi.com|12351|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1241|EFGH5|STU3|ABCDEF8|GHUIJK71|JC2|clickonce.com|12352|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1242|ABCD5|XYZ3|ABCDEF9|GHUIJK81|AB3|ragaa.com|12353|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1243|EFGH6|STU3|ABCDEF10|GHUIJK91|BC3|slice.com|12354|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1244|ABCD6|XYZ4|ABCDEF11|GHUIJK101|DC3|fanta.com|12355|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1245|EFGH7|STU4|ABCDEF12|GHUIJK111|JC3|coke.com|12356|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1246|ABCD7|XYZ4|ABCDEF13|GHUIJK121|AB4|thumpsup.com|12357|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1247|EFGH8|STU4|ABCDEF14|GHUIJK131|BC4|lyrics.com|12358|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1248|ABCD2|XYZ2|ABCDEF15|GHUIJK141|AB2|yahoo.com|12359|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1249|EFGH3|STU2|ABCDEF16|GHUIJK151|BC2|gmail.com|12360|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1250|ABCD3|XYZ3|ABCDEF17|GHUIJK161|DC2|mail.com|12361|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1251|EFGH4|STU3|ABCDEF18|GHUIJK171|JC2|indiatimes.com|12362|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1252|ABCD4|XYZ3|ABCDEF19|GHUIJK181|AB3|timesofindia.com|12363|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1253|EFGH5|STU3|ABCDEF20|GHUIJK191|BC3|wechat.com|12364|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1254|ABCD5|XYZ4|ABCDEF21|GHUIJK201|DC3|radiomirchi.com|12365|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1255|EFGH6|STU4|ABCDEF22|GHUIJK211|JC3|clickonce.com|12366|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1256|ABCD6|XYZ4|ABCDEF23|GHUIJK221|AB4|ragaa.com|12367|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1257|EFGH7|STU4|ABCDEF24|GHUIJK231|BC4|slice.com|12368|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1258|ABCD7|XYZ5|ABCDEF25|GHUIJK241|DC4|fanta.com|12369|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1259|EFGH8|STU5|ABCDEF26|GHUIJK251|JC4|coke.com|12370|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1260|ABCD8|XYZ5|ABCDEF27|GHUIJK261|AB5|thumpsup.com|12371|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1261|EFGH9|STU5|ABCDEF28|GHUIJK271|BC5|lyrics.com|12372|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1262|ABCD3|XYZ3|ABCDEF29|GHUIJK281|AB3|yahoo.com|12373|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1263|EFGH4|STU3|ABCDEF30|GHUIJK291|BC3|gmail.com|12374|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1264|ABCD4|XYZ4|ABCDEF31|GHUIJK301|DC3|mail.com|12375|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1265|EFGH5|STU4|ABCDEF32|GHUIJK311|JC3|indiatimes.com|12376|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1266|ABCD5|XYZ4|ABCDEF33|GHUIJK321|AB4|timesofindia.com|12377|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1267|EFGH6|STU4|ABCDEF34|GHUIJK331|BC4|wechat.com|12378|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1268|ABCD6|XYZ5|ABCDEF35|GHUIJK341|DC4|radiomirchi.com|12379|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1269|EFGH7|STU5|ABCDEF36|GHUIJK351|JC4|clickonce.com|12380|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1270|ABCD7|XYZ5|ABCDEF37|GHUIJK361|AB5|ragaa.com|12381|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1271|EFGH8|STU5|ABCDEF38|GHUIJK371|BC5|slice.com|12382|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1272|ABCD8|XYZ6|ABCDEF39|GHUIJK381|DC5|fanta.com|12383|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1273|EFGH9|STU6|ABCDEF40|GHUIJK391|JC5|coke.com|12384|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1274|ABCD9|XYZ6|ABCDEF41|GHUIJK401|AB6|thumpsup.com|12385|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1275|EFGH10|STU6|ABCDEF42|GHUIJK411|BC6|lyrics.com|12386|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1276|ABCD4|XYZ4|ABCDEF43|GHUIJK421|AB4|yahoo.com|12387|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1277|EFGH5|STU4|ABCDEF44|GHUIJK431|BC4|gmail.com|12388|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1278|ABCD5|XYZ5|ABCDEF45|GHUIJK441|DC4|mail.com|12389|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1279|EFGH6|STU5|ABCDEF46|GHUIJK451|JC4|indiatimes.com|12390|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1280|ABCD6|XYZ5|ABCDEF47|GHUIJK461|AB5|timesofindia.com|12391|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1281|EFGH7|STU5|ABCDEF48|GHUIJK471|BC5|wechat.com|12392|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1282|ABCD7|XYZ6|ABCDEF49|GHUIJK481|DC5|radiomirchi.com|12393|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1283|EFGH8|STU6|ABCDEF50|GHUIJK491|JC5|clickonce.com|12394|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1284|ABCD8|XYZ6|ABCDEF51|GHUIJK501|AB6|ragaa.com|12395|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1285|EFGH9|STU6|ABCDEF52|GHUIJK511|BC6|slice.com|12396|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1286|ABCD9|XYZ7|ABCDEF53|GHUIJK521|DC6|fanta.com|12397|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1287|EFGH10|STU7|ABCDEF54|GHUIJK531|JC6|coke.com|12398|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1288|ABCD10|XYZ7|ABCDEF55|GHUIJK541|AB7|thumpsup.com|12399|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1289|EFGH11|STU7|ABCDEF56|GHUIJK551|BC7|lyrics.com|12400|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1290|ABCD5|XYZ5|ABCDEF57|GHUIJK561|AB5|yahoo.com|12401|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1291|EFGH6|STU5|ABCDEF58|GHUIJK571|BC5|gmail.com|12402|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1292|ABCD6|XYZ6|ABCDEF59|GHUIJK581|DC5|mail.com|12403|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1293|EFGH7|STU6|ABCDEF60|GHUIJK591|JC5|indiatimes.com|12404|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1294|ABCD7|XYZ6|ABCDEF61|GHUIJK601|AB6|timesofindia.com|12405|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1295|EFGH8|STU6|ABCDEF62|GHUIJK611|BC6|wechat.com|12406|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1296|ABCD8|XYZ7|ABCDEF63|GHUIJK621|DC6|radiomirchi.com|12407|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1297|EFGH9|STU7|ABCDEF64|GHUIJK631|JC6|clickonce.com|12408|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1298|ABCD9|XYZ7|ABCDEF65|GHUIJK641|AB7|ragaa.com|12409|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1299|EFGH10|STU7|ABCDEF66|GHUIJK651|BC7|slice.com|12410|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1300|ABCD10|XYZ8|ABCDEF67|GHUIJK661|DC7|fanta.com|12411|ABC@yahoo.com[/TD]
[/TR]
[TR]
[TD]1301|EFGH11|STU8|ABCDEF68|GHUIJK671|JC7|coke.com|12412|JCD@yahoo.com[/TD]
[/TR]
[TR]
[TD]1302|ABCD11|XYZ8|ABCDEF69|GHUIJK681|AB8|thumpsup.com|12413|ABC@yahoo.com[/TD]
[/TR]
</tbody>[/TABLE]

_________________________________________________________________________________________________
I have Data in Sheet 2 as

[TABLE="width: 242"]
<tbody>[TR]
[TD]yahoo.com[/TD]
[TD]|yahoo.com[/TD]
[/TR]
[TR]
[TD]gmail.com[/TD]
[TD]|gmail.com[/TD]
[/TR]
[TR]
[TD]mail.com[/TD]
[TD]|mail.com[/TD]
[/TR]
[TR]
[TD]indiatimes.com[/TD]
[TD]|indiatimes.com[/TD]
[/TR]
[TR]
[TD]timesofindia.com[/TD]
[TD]|timesofindia.com[/TD]
[/TR]
[TR]
[TD]wechat.com[/TD]
[TD]|wechat.com[/TD]
[/TR]
[TR]
[TD]radiomirchi.com[/TD]
[TD]|radiomirchi.com[/TD]
[/TR]
[TR]
[TD]clickonce.com[/TD]
[TD]|clickonce.com[/TD]
[/TR]
[TR]
[TD]ragaa.com[/TD]
[TD]|ragaa.com[/TD]
[/TR]
[TR]
[TD]slice.com[/TD]
[TD]|slice.com[/TD]
[/TR]
[TR]
[TD]fanta.com[/TD]
[TD]|fanta.com[/TD]
[/TR]
[TR]
[TD]coke.com[/TD]
[TD]|coke.com[/TD]
[/TR]
[TR]
[TD]thumpsup.com[/TD]
[TD]|thumpsup.com[/TD]
[/TR]
[TR]
[TD]lyrics.com[/TD]
[TD]|lyrics.com[/TD]
[/TR]
</tbody>[/TABLE]

_____________________________________________________________________________________________________________________________________
I want Output in Sheet 3 as

[TABLE="width: 832"]
<tbody>[TR]
[TD="colspan: 2"]Output Sheet[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Site[/TD]
[TD]Duplicate Count[/TD]
[/TR]
[TR]
[TD="colspan: 8"]1234|ABCD1|XYZ1|ABCDEF1|GHUIJK1|AB1||yahoo.com|12345|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]yahoo.com[/TD]
[TD="align: right"]1295[/TD]
[/TR]
[TR]
[TD="colspan: 9"]1235|EFGH2|STU1|ABCDEF2|GHUIJK11|BC1||g|mail.com|12346|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD]gmail.com[/TD]
[TD="align: right"]87[/TD]
[/TR]
[TR]
[TD="colspan: 8"]1236|ABCD2|XYZ2|ABCDEF3|GHUIJK21|DC1||mail.com|12347|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]mail.com[/TD]
[TD="align: right"]174[/TD]
[/TR]
[TR]
[TD="colspan: 9"]1237|EFGH3|STU2|ABCDEF4|GHUIJK31|JC1|indiatimes.com|12348|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD]indiatimes.com[/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="colspan: 9"]1238|ABCD3|XYZ2|ABCDEF5|GHUIJK41|AB2|timesofindia.com|12349|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD]timesofindia.com[/TD]
[TD="align: right"]1295[/TD]
[/TR]
[TR]
[TD="colspan: 9"]1239|EFGH4|STU2|ABCDEF6|GHUIJK51|BC2|wechat.com|12350|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD]wechat.com[/TD]
[TD="align: right"]87[/TD]
[/TR]
[TR]
[TD="colspan: 9"]1240|ABCD4|XYZ3|ABCDEF7|GHUIJK61|DC2|radiomirchi.com|12351|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD]radiomirchi.com[/TD]
[TD="align: right"]174[/TD]
[/TR]
[TR]
[TD="colspan: 9"]1241|EFGH5|STU3|ABCDEF8|GHUIJK71|JC2|clickonce.com|12352|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD]clickonce.com[/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="colspan: 8"]1242|ABCD5|XYZ3|ABCDEF9|GHUIJK81|AB3|ragaa.com|12353|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]ragaa.com[/TD]
[TD="align: right"]1295[/TD]
[/TR]
[TR]
[TD="colspan: 8"]1243|EFGH6|STU3|ABCDEF10|GHUIJK91|BC3|slice.com|12354|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]slice.com[/TD]
[TD="align: right"]87[/TD]
[/TR]
[TR]
[TD="colspan: 9"]1244|ABCD6|XYZ4|ABCDEF11|GHUIJK101|DC3|fanta.com|12355|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD]fanta.com[/TD]
[TD="align: right"]174[/TD]
[/TR]
[TR]
[TD="colspan: 8"]1245|EFGH7|STU4|ABCDEF12|GHUIJK111|JC3|coke.com|12356|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]coke.com[/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="colspan: 9"]1246|ABCD7|XYZ4|ABCDEF13|GHUIJK121|AB4|thumpsup.com|12357|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD]thumpsup.com[/TD]
[TD="align: right"]174[/TD]
[/TR]
[TR]
[TD="colspan: 9"]1247|EFGH8|STU4|ABCDEF14|GHUIJK131|BC4|lyrics.com|12358|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD]lyrics.com[/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="colspan: 9"]1248|ABCD2|XYZ2|ABCDEF15|GHUIJK141|AB2||yahoo.com|12359|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1249|EFGH3|STU2|ABCDEF16|GHUIJK151|BC2||g|mail.com|12360|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1250|ABCD3|XYZ3|ABCDEF17|GHUIJK161|DC2||mail.com|12361|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1251|EFGH4|STU3|ABCDEF18|GHUIJK171|JC2|indiatimes.com|12362|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1252|ABCD4|XYZ3|ABCDEF19|GHUIJK181|AB3|timesofindia.com|12363|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1253|EFGH5|STU3|ABCDEF20|GHUIJK191|BC3|wechat.com|12364|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1254|ABCD5|XYZ4|ABCDEF21|GHUIJK201|DC3|radiomirchi.com|12365|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1255|EFGH6|STU4|ABCDEF22|GHUIJK211|JC3|clickonce.com|12366|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1256|ABCD6|XYZ4|ABCDEF23|GHUIJK221|AB4|ragaa.com|12367|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 8"]1257|EFGH7|STU4|ABCDEF24|GHUIJK231|BC4|slice.com|12368|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1258|ABCD7|XYZ5|ABCDEF25|GHUIJK241|DC4|fanta.com|12369|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 8"]1259|EFGH8|STU5|ABCDEF26|GHUIJK251|JC4|coke.com|12370|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1260|ABCD8|XYZ5|ABCDEF27|GHUIJK261|AB5|thumpsup.com|12371|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1261|EFGH9|STU5|ABCDEF28|GHUIJK271|BC5|lyrics.com|12372|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1262|ABCD3|XYZ3|ABCDEF29|GHUIJK281|AB3||yahoo.com|12373|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1263|EFGH4|STU3|ABCDEF30|GHUIJK291|BC3||g|mail.com|12374|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1264|ABCD4|XYZ4|ABCDEF31|GHUIJK301|DC3||mail.com|12375|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1265|EFGH5|STU4|ABCDEF32|GHUIJK311|JC3|indiatimes.com|12376|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1266|ABCD5|XYZ4|ABCDEF33|GHUIJK321|AB4|timesofindia.com|12377|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1267|EFGH6|STU4|ABCDEF34|GHUIJK331|BC4|wechat.com|12378|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1268|ABCD6|XYZ5|ABCDEF35|GHUIJK341|DC4|radiomirchi.com|12379|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1269|EFGH7|STU5|ABCDEF36|GHUIJK351|JC4|clickonce.com|12380|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1270|ABCD7|XYZ5|ABCDEF37|GHUIJK361|AB5|ragaa.com|12381|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 8"]1271|EFGH8|STU5|ABCDEF38|GHUIJK371|BC5|slice.com|12382|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1272|ABCD8|XYZ6|ABCDEF39|GHUIJK381|DC5|fanta.com|12383|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 8"]1273|EFGH9|STU6|ABCDEF40|GHUIJK391|JC5|coke.com|12384|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1274|ABCD9|XYZ6|ABCDEF41|GHUIJK401|AB6|thumpsup.com|12385|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1275|EFGH10|STU6|ABCDEF42|GHUIJK411|BC6|lyrics.com|12386|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1276|ABCD4|XYZ4|ABCDEF43|GHUIJK421|AB4||yahoo.com|12387|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1277|EFGH5|STU4|ABCDEF44|GHUIJK431|BC4||g|mail.com|12388|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1278|ABCD5|XYZ5|ABCDEF45|GHUIJK441|DC4||mail.com|12389|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1279|EFGH6|STU5|ABCDEF46|GHUIJK451|JC4|indiatimes.com|12390|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1280|ABCD6|XYZ5|ABCDEF47|GHUIJK461|AB5|timesofindia.com|12391|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1281|EFGH7|STU5|ABCDEF48|GHUIJK471|BC5|wechat.com|12392|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1282|ABCD7|XYZ6|ABCDEF49|GHUIJK481|DC5|radiomirchi.com|12393|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1283|EFGH8|STU6|ABCDEF50|GHUIJK491|JC5|clickonce.com|12394|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1284|ABCD8|XYZ6|ABCDEF51|GHUIJK501|AB6|ragaa.com|12395|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 8"]1285|EFGH9|STU6|ABCDEF52|GHUIJK511|BC6|slice.com|12396|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1286|ABCD9|XYZ7|ABCDEF53|GHUIJK521|DC6|fanta.com|12397|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1287|EFGH10|STU7|ABCDEF54|GHUIJK531|JC6|coke.com|12398|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1288|ABCD10|XYZ7|ABCDEF55|GHUIJK541|AB7|thumpsup.com|12399|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1289|EFGH11|STU7|ABCDEF56|GHUIJK551|BC7|lyrics.com|12400|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1290|ABCD5|XYZ5|ABCDEF57|GHUIJK561|AB5||yahoo.com|12401|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1291|EFGH6|STU5|ABCDEF58|GHUIJK571|BC5||g|mail.com|12402|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1292|ABCD6|XYZ6|ABCDEF59|GHUIJK581|DC5||mail.com|12403|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1293|EFGH7|STU6|ABCDEF60|GHUIJK591|JC5|indiatimes.com|12404|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1294|ABCD7|XYZ6|ABCDEF61|GHUIJK601|AB6|timesofindia.com|12405|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1295|EFGH8|STU6|ABCDEF62|GHUIJK611|BC6|wechat.com|12406|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1296|ABCD8|XYZ7|ABCDEF63|GHUIJK621|DC6|radiomirchi.com|12407|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1297|EFGH9|STU7|ABCDEF64|GHUIJK631|JC6|clickonce.com|12408|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1298|ABCD9|XYZ7|ABCDEF65|GHUIJK641|AB7|ragaa.com|12409|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1299|EFGH10|STU7|ABCDEF66|GHUIJK651|BC7|slice.com|12410|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1300|ABCD10|XYZ8|ABCDEF67|GHUIJK661|DC7|fanta.com|12411|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1301|EFGH11|STU8|ABCDEF68|GHUIJK671|JC7|coke.com|12412|JCD@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 9"]1302|ABCD11|XYZ8|ABCDEF69|GHUIJK681|AB8|thumpsup.com|12413|ABC@|yahoo.com[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
 
Sort by date Sort by votes
Give this macro a try...

Code: 
Sub DoubleUpVerticalBarsAndCountSites()
  Dim X As Long, LastRowData As Long, LastRowSites As Long
  Dim WSdata As Worksheet, WSsites As Worksheet, WSout As Worksheet
  Set WSdata = Worksheets("Sheet1")
  Set WSsites = Worksheets("Sheet2")
  Set WSout = Worksheets("sheet3")
  WSout.UsedRange.Clear
  LastRowData = WSdata.Cells(Rows.Count, "A").End(xlUp).Row
  LastRowSites = WSsites.Cells(Rows.Count, "A").End(xlUp).Row
  WSdata.Range("A1:A" & LastRowData).Copy WSout.Range("A1")
  For X = 1 To LastRowSites
    WSout.Cells(X, "B").Value = WSsites.Cells(X, "A").Value
    WSout.Columns("A").Replace WSsites.Cells(X, "B").Value, "|" & WSsites.Cells(X, "B"), xlPart
  Next
  For X = 1 To LastRowSites
    WSout.Cells(X, "C").Value = WorksheetFunction.CountIf(WSout.Columns("A"), "*||" & WSout.Cells(X, "B") & "|*")
  Next
End Sub
 
Upvote 0
Rick Rothstein said:
Give this macro a try...

Code: 
Sub DoubleUpVerticalBarsAndCountSites()
  Dim X As Long, LastRowData As Long, LastRowSites As Long
  Dim WSdata As Worksheet, WSsites As Worksheet, WSout As Worksheet
  Set WSdata = Worksheets("Sheet1")
  Set WSsites = Worksheets("Sheet2")
  Set WSout = Worksheets("sheet3")
  WSout.UsedRange.Clear
  LastRowData = WSdata.Cells(Rows.Count, "A").End(xlUp).Row
  LastRowSites = WSsites.Cells(Rows.Count, "A").End(xlUp).Row
  WSdata.Range("A1:A" & LastRowData).Copy WSout.Range("A1")
  For X = 1 To LastRowSites
    WSout.Cells(X, "B").Value = WSsites.Cells(X, "A").Value
    WSout.Columns("A").Replace WSsites.Cells(X, "B").Value, "|" & WSsites.Cells(X, "B"), xlPart
  Next
  For X = 1 To LastRowSites
    WSout.Cells(X, "C").Value = WorksheetFunction.CountIf(WSout.Columns("A"), "*||" & WSout.Cells(X, "B") & "|*")
  Next
End Sub
Click to expand...
I wanted to add the following to my above message, but this forum has a time limit on being able to edit a submitted message and my time for doing it had run out. Here is what I wanted to include with the above...

Just pointing out that the method you used to create the output list in your original message was flawed. It changed this line..

1235|EFGH2|STU1|ABCDEF2|GHUIJK11|BC1|gmail.com|12346|JCD@yahoo.com
Click to expand...

to this one...

1235|EFGH2|STU1|ABCDEF2|GHUIJK11|BC1||g|mail.com|12346|JCD@|yahoo.com
Click to expand...

Note the vertical bar between the "g" and "mail.com".... that came from replacing "mail.com" after replacing "gmail.com". My code does not do this. In order to have avoided the problem when you created your list, you would have needed to protect against this string within string problem by concatenating the leading and trailing vertical bar in order to make each item in your site list unique from each other.
 
Last edited:
Upvote 0
You must log in or register to reply here.

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