About Us

Yes; this does the trick.
Thanks Dave

"Dave Peterson" wrote:

I put headers in row 1 and ran this:

Option Explicit
Sub testme()

Application.ScreenUpdating = False

Dim wks As Worksheet
Dim ColA As Range
Dim ColB As Range
Dim iRow As Long
Dim myCols As Long

Set wks = Worksheets("sheet1")
wks.DisplayPageBreaks = False
With wks
'row 1 has headers!
Set ColA = .Range("a2", .Cells(.Rows.Count, "A").End(xlUp))
Set ColB = .Range("b2", .Cells(.Rows.Count, "B").End(xlUp))

With ColA
.Sort key1:=.Cells(1), order1:=xlAscending, header:=xlNo
End With

'change the mycols to the number of columns that
'are associated with column B

myCols = 1 ' columns B only
With ColB.Resize(, myCols)
.Sort key1:=.Cells(1), order1:=xlAscending, header:=xlNo
End With

iRow = 2
Do
If Application.CountA(.Cells(iRow, "A").Resize(1, 2)) = 0 Then
Exit Do
End If

If .Cells(iRow, "A").Value = .Cells(iRow, "B").Value _
Or Application.CountA(.Cells(iRow, "A").Resize(1, 2)) = 1 Then
'do nothing
Else
If .Cells(iRow, "A").Value .Cells(iRow, "B").Value Then
.Cells(iRow, "A").Insert shift:=xlDown
Else
.Cells(iRow, "B").Resize(1, myCols).Insert shift:=xlDown
End If
End If
iRow = iRow + 1
Loop
End With

Application.ScreenUpdating = True

End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

uffe1909 wrote:

I am trying to line up 2 sets of values wherer the 2 sets might contain the
same values. so for example:
set 1 set 2
1 2
2 5
3 7
5 10

The result should be
set 1 set 2
1
2 2
3
5 5
7
10
Any suggestions on how to get this result?

--

Dave Peterson

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Display empty cells	botany_girl	Excel Discussion (Misc queries)	1	July 19th 05 05:51 PM
How can I convert empty strings to empty cells?	Shane	Excel Discussion (Misc queries)	2	July 19th 05 12:10 PM
How do I setup criteria in DSUM to sum values NOT equal (<>)	Mark Rucker	Excel Worksheet Functions	1	June 22nd 05 06:56 PM
Trendline to ignore empty cells	Kara	Charts and Charting in Excel	0	June 9th 05 05:39 PM
Trendline to ignore empty cells	Kara	Charts and Charting in Excel	2	June 7th 05 05:30 PM

Menu

About Us