Move cells down

G

gary

If the left 11 characters in column E do not match the left 11
characters in column A, how can I move the cells in column E down
until they do match?

a b c
d e
001531594-8 2001 33 001531594-8 CF 5501 PM
001531594-8 2002 33 001531596-0 CF 4345 NN
001531594-8 2003 33 001531598-2 CF 5500 PM
001531594-8 2004 33 001531602-2 CF 4455 PK
001531596-0 2011 33 001531609-9 CF 6898 SB
001531598-2 2004 33 001531611-0 CF 6888 PG
001531602-2 2009 33 001531622-0 CF 6879 PG
001531602-2 2010 33 001531631-8 CF 4909 NR
001531602-2 2011 33 001531645-1 CF 5451 PL
001531609-9 2006 33 001531650-5 CF 7174 PJ
001531611-0 2005 33 001531653-8 CF 5438 PL


Here are the results I'm looking for:

a b c
d e
001531594-8 2001 33 001531594-8 CF 5501 PM
001531594-8 2002 33
001531594-8 2003 33
001531594-8 2004 33
001531596-0 2011 33 001531596-0 CF 4345 NN
001531598-2 2004 33 001531598-2 CF 5500 PM
001531602-2 2009 33 001531602-2 CF 4455 PK
001531602-2 2010 33
001531602-2 2011 33
001531609-9 2006 33 001531609-9 CF 6898 SB
001531611-0 2005 33 001531611-0 CF 6888 PG
 
D

Don Guillett

If the left 11 characters in column E do not match the left 11
characters in column A, how can I move the cells in column E down
until they do match?

           a                          b           c
d                             e
001531594-8 2001                33              001531594-8 CF 5501 PM
001531594-8 2002                33              001531596-0 CF 4345 NN
001531594-8 2003                33              001531598-2 CF 5500 PM
001531594-8 2004                33              001531602-2 CF 4455 PK
001531596-0 2011                33              001531609-9 CF 6898 SB
001531598-2 2004                33              001531611-0 CF 6888 PG
001531602-2 2009                33              001531622-0 CF 6879 PG
001531602-2 2010                33              001531631-8 CF 4909 NR
001531602-2 2011                33              001531645-1 CF 5451 PL
001531609-9 2006                33              001531650-5 CF 7174 PJ
001531611-0 2005                33              001531653-8 CF 5438 PL

Here are the results I'm looking for:

           a                          b           c
d                             e
001531594-8 2001                33              001531594-8 CF 5501 PM
001531594-8 2002                33
001531594-8 2003                33
001531594-8 2004                33
001531596-0 2011                33              001531596-0 CF 4345 NN
001531598-2 2004                33              001531598-2 CF 5500 PM
001531602-2 2009                33              001531602-2 CF 4455 PK
001531602-2 2010                33
001531602-2 2011                33
001531609-9 2006                33              001531609-9 CF 6898 SB
001531611-0 2005                33              001531611-0 CF 6888 PG
Click to expand...


Sub moveemdowntomatchSAS()Dim i As LongFor i = 2 To Cells(Rows.Count,
"e").End(xlUp).RowIf Left(Cells(i, "e"), 11) <> Left(Cells(i, "a"),
11) ThenCells(i, "e").InsertEnd IfNext iEnd Sub
 
D

Don Guillett

Sub moveemdowntomatchSAS()
Click to expand...
Dim i As LongFor i = 2 To Cells(Rows.Count, "e").End(xlUp).Row
If Left(Cells(i, "e"), 11) <> Left(Cells(i, "a"),> 11) Then
Cells(i, "e").Insert
End If
Next i
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Move cells down to match cells 3
Move cells down to match cells 1
Move cells down 1
sum values from range of cells if cells correcponding have the sam 15
adding values if the same - SUMIF in range of cells? 4
Problem with EWF volume on CF 5
outlook 2003 shut down error 5
DVD writing error 1

Top