duplicate rows

J

JAWS1

New Member
Joined
Oct 22, 2017
Messages
19
I have had this question before and the macro does not work any more any suggestions the top half is single and the bottom half is where I want to get to.
[TABLE="width: 374"]
<colgroup><col span="2"><col><col><col><col><col></colgroup><tbody>[TR]
[TD="align: right"][TABLE="width: 567"]
<colgroup><col span="2"><col><col><col><col><col></colgroup><tbody>[TR]
[TD="align: right"]25[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]BIBBY[/TD]
[TD]JAMES[/TD]
[TD]ROSCOE[/TD]
[TD]SARAH[/TD]
[/TR]
[TR]
[TD="align: right"]26[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]DURNING ?[/TD]
[TD]JAMES[/TD]
[TD]CARBERRY[/TD]
[TD]ANN[/TD]
[/TR]
[TR]
[TD="align: right"]26[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]HANRATTY[/TD]
[TD]OWEN[/TD]
[TD]HANRATTY[/TD]
[TD]ANN[/TD]
[/TR]
[TR]
[TD="align: right"]26[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]McGOWAN[/TD]
[TD]THOMAS[/TD]
[TD]HALLIGAN[/TD]
[TD]ANN[/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]1859[/TD]
[TD]METCALF[/TD]
[TD]JOSEPH[/TD]
[TD]LOFTUS[/TD]
[TD]MARY[/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]1859[/TD]
[TD]MALADY[/TD]
[TD]MATTHEW[/TD]
[TD]DEAKIN[/TD]
[TD]ELIZABETH[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]25[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]BIBBY[/TD]
[TD]JAMES[/TD]
[TD]ROSCOE[/TD]
[TD]SARAH[/TD]
[/TR]
[TR]
[TD="align: right"]25[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]ROSCOE[/TD]
[TD]SARAH[/TD]
[TD]BIBBY[/TD]
[TD]JAMES[/TD]
[/TR]
[TR]
[TD="align: right"]26[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]DURNING [/TD]
[TD]JAMES[/TD]
[TD]CARBERRY[/TD]
[TD]ANN[/TD]
[/TR]
[TR]
[TD="align: right"]26[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]CARBERRY[/TD]
[TD]ANN[/TD]
[TD]DURNING [/TD]
[TD]JAMES[/TD]
[/TR]
</tbody>[/TABLE]
<strike></strike>
[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
 

Excel Facts

How to change case of text in Excel?
Use =UPPER() for upper case, =LOWER() for lower case, and =PROPER() for proper case. PROPER won't capitalize second c in Mccartney
Sort by date Sort by votes
I can see why the previous suggestions were not working this new data has a pair side by side whereas the last one was a single entry
 
Upvote 0
Try this :- Your data start "A1", Results start "I1".
Code: 
[COLOR="Navy"]Sub[/COLOR] MG02Jun23
[COLOR="Navy"]Dim[/COLOR] Ray [COLOR="Navy"]As[/COLOR] Variant, n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Ac [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Col [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
Ray = Range("A1").CurrentRegion
ReDim nRay(1 To UBound(Ray, 1) * 2, 1 To UBound(Ray, 2))
[COLOR="Navy"]For[/COLOR] n = 1 To UBound(Ray, 1)
   c = c + 1
  [COLOR="Navy"]For[/COLOR] Ac = 1 To UBound(Ray, 2)
     nRay(c, Ac) = Ray(n, Ac)
     [COLOR="Navy"]Next[/COLOR] Ac
      c = c + 1
      [COLOR="Navy"]For[/COLOR] Ac = 1 To UBound(Ray, 2)
        [COLOR="Navy"]Select[/COLOR] [COLOR="Navy"]Case[/COLOR] Ac
            [COLOR="Navy"]Case[/COLOR] 4: Col = 6
            [COLOR="Navy"]Case[/COLOR] 5: Col = 7
            [COLOR="Navy"]Case[/COLOR] 6: Col = 4
            [COLOR="Navy"]Case[/COLOR] 7: Col = 5
        [COLOR="Navy"]Case[/COLOR] Else: Col = Ac
        [COLOR="Navy"]End[/COLOR] Select
     nRay(c, Ac) = Ray(n, Col)
   [COLOR="Navy"]Next[/COLOR] Ac
[COLOR="Navy"]Next[/COLOR] n
Range("I1").Resize(c, UBound(Ray, 2)).Value = nRay
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Regards Mick
 
Upvote 0
You must log in or register to reply here.

Similar threads

J
  • Question Question
Office 365
Replies
8
Views
453
JAWS1
J
D
  • Question Question
Countif with multiple criteria and duplicates counted once
Replies
3
Views
1K
Marcelo Branco
M
K
  • Question Question
Choose from a list "x" random no duplicates
2
Replies
16
Views
2K
Kishan
K
M
  • Question Question
VBA remove all duplicate rows
2
Replies
13
Views
1K
Logit
Logit
S
  • Question Question
How to add or insert Number (1:50)to a row with no Duplication?
2
Replies
17
Views
2K
sezuh
S

Forum statistics

Threads
1,224,823
Messages
6,181,171
Members
453,021
Latest member
Justyna P

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