Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Numbers from first column
Col A contains:
1 5 7 10 14 Col B contains: 2 3 6 Col C contains: 4 6 8 11 13 Col D contains: 1 5 8 9 10 12 13 14 15 How do I put, in Col E, each number from the FIRST column it occurred in: 1 (came from Col A) 2 (came from Col B) 3 (came from Col B) 4 (came from Col C) 5 (came from Col A) 6 (came from Col B) 7 (came from Col A) 8 (came from Col C) 9 (came from Col D) 10 (came from Col A) 11 (came from Col C) 12 (came from Col D) 13 (came from Col C) 14 (came from Col A) 15 (came from Col D) |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Numbers from first column
On Sunday, April 1, 2012 1:13:00 PM UTC-5, gwc wrote:
Col A contains: 1 5 7 10 14 Col B contains: 2 3 6 Col C contains: 4 6 8 11 13 Col D contains: 1 5 8 9 10 12 13 14 15 How do I put, in Col E, each number from the FIRST column it occurred in: 1 (came from Col A) 2 (came from Col B) 3 (came from Col B) 4 (came from Col C) 5 (came from Col A) 6 (came from Col B) 7 (came from Col A) 8 (came from Col C) 9 (came from Col D) 10 (came from Col A) 11 (came from Col C) 12 (came from Col D) 13 (came from Col C) 14 (came from Col A) 15 (came from Col D) try this macro Option Explicit Sub camefromcolSAS() Dim i As Long With ActiveSheet.UsedRange 5 On Error Resume Next For i = 1 To Application.Max(.Value) Cells(i, "e") = i & " found in col " & .Find(What:=i, _ LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext).Column Next i End With Columns("e").AutoFit End Sub |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Numbers from first column
On Sunday, April 1, 2012 1:13:00 PM UTC-5, gwc wrote:
Col A contains: 1 5 7 10 14 Col B contains: 2 3 6 Col C contains: 4 6 8 11 13 Col D contains: 1 5 8 9 10 12 13 14 15 How do I put, in Col E, each number from the FIRST column it occurred in: 1 (came from Col A) 2 (came from Col B) 3 (came from Col B) 4 (came from Col C) 5 (came from Col A) 6 (came from Col B) 7 (came from Col A) 8 (came from Col C) 9 (came from Col D) 10 (came from Col A) 11 (came from Col C) 12 (came from Col D) 13 (came from Col C) 14 (came from Col A) 15 (came from Col D) oops. Need to search by COLUMNS Option Explicit Sub camefromcolSAS() Dim i As Long With ActiveSheet.UsedRange 5 On Error Resume Next For i = 1 To Application.Max(.Value) Cells(i, "e") = i & " found in col " & .Find(What:=i, _ LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext).Column Next i End With Columns("e").AutoFit End Sub |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Numbers from first column
Thanks, Don. You macro worked. But I just realized that the cells in
columns A thru D actually contain more data than just the number. For example; Col A contains: 1 xxxxxxx 5 yyyyyyyyyyyyyy 7 xxxxxxx 10 yyyyyyyyyyyyyy 14 zzz Col B contains: 2 yyyyyyyyyyyyyy 3 xxxxxxx 6 zzz Col C contains: 4 xxxxxxx 6 yyyyyyyyyyyyyy 8 xxxxxxx 11 zzz 13 xxxxxxx Col D contains: 1 yyyyyyyyyyyyyy 5 yyyyyyyyyyyyyy 8 xxxxxxx 9 zzz 10 xxxxxxx 12 xxxxxxx 13 xxxxxxx 14 yyyyyyyyyyyyyy 15 xxxxxxx How do I put the number plus its other data from the FIRST column it occurred in into Col E? For example: 1 xxxxxxx (came from Col A) 2 yyyyyyyyyyyyyy (came from Col B) 3 xxxxxxx (came from Col B) 4 xxxxxxx (came from Col C) 5 yyyyyyyyyyyyyy (came from Col A) 6 yyyyyyyyyyyyyy (came from Col B) 7 xxxxxxx (came from Col A) 8 xxxxxxx (came from Col C) 9 zzz (came from Col D) 10 yyyyyyyyyyyyyy (came from Col A) 11 zzz (came from Col C) 12 xxxxxxx (came from Col D) 13 xxxxxxx (came from Col C) 14 zzz (came from Col A) 15 xxxxxxx (came from Col D) |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Numbers from first column
Thanks, Don. Your macro worked. But I just realized that the cells in
columns A thru D actually contain more data than just the number. For example: Col A contains: 1 xxxxxxx 5 yyyyyyyyyyyyyy 7 xxxxxxx 10 yyyyyyyyyyyyyy 14 zzz Col B contains: 2 yyyyyyyyyyyyyy 3 xxxxxxx 6 zzz Col C contains: 4 xxxxxxx 6 yyyyyyyyyyyyyy 8 xxxxxxx 11 zzz 13 xxxxxxx Col D contains: 1 yyyyyyyyyyyyyy 5 yyyyyyyyyyyyyy 8 xxxxxxx 9 zzz 10 xxxxxxx 12 xxxxxxx 13 xxxxxxx 14 yyyyyyyyyyyyyy 15 xxxxxxx How do I put the number plus its other data from the FIRST column it occurred in into Col E? For example: 1 xxxxxxx (came from Col A) 2 yyyyyyyyyyyyyy (came from Col B) 3 xxxxxxx (came from Col B) 4 xxxxxxx (came from Col C) 5 yyyyyyyyyyyyyy (came from Col A) 6 yyyyyyyyyyyyyy (came from Col B) 7 xxxxxxx (came from Col A) 8 xxxxxxx (came from Col C) 9 zzz (came from Col D) 10 yyyyyyyyyyyyyy (came from Col A) 11 zzz (came from Col C) 12 xxxxxxx (came from Col D) 13 xxxxxxx (came from Col C) 14 zzz (came from Col A) 15 xxxxxxx (came from Col D) (Note: I do NOT need the "(came from Col xxx)" info). |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
Numbers from first column
On Sunday, April 1, 2012 1:13:00 PM UTC-5, gwc wrote:
Col A contains: 1 5 7 10 14 Col B contains: 2 3 6 Col C contains: 4 6 8 11 13 Col D contains: 1 5 8 9 10 12 13 14 15 How do I put, in Col E, each number from the FIRST column it occurred in: 1 (came from Col A) 2 (came from Col B) 3 (came from Col B) 4 (came from Col C) 5 (came from Col A) 6 (came from Col B) 7 (came from Col A) 8 (came from Col C) 9 (came from Col D) 10 (came from Col A) 11 (came from Col C) 12 (came from Col D) 13 (came from Col C) 14 (came from Col A) 15 (came from Col D) I no longer have the test file so send your file to dguillett1 @gmail.com |
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
Numbers from first column
On Mon, 2 Apr 2012 07:15:30 -0700 (PDT), gwc wrote:
Thanks, Don. You macro worked. But I just realized that the cells in columns A thru D actually contain more data than just the number. For example; Col A contains: 1 xxxxxxx 5 yyyyyyyyyyyyyy 7 xxxxxxx 10 yyyyyyyyyyyyyy 14 zzz Col B contains: 2 yyyyyyyyyyyyyy 3 xxxxxxx 6 zzz Col C contains: 4 xxxxxxx 6 yyyyyyyyyyyyyy 8 xxxxxxx 11 zzz 13 xxxxxxx Col D contains: 1 yyyyyyyyyyyyyy 5 yyyyyyyyyyyyyy 8 xxxxxxx 9 zzz 10 xxxxxxx 12 xxxxxxx 13 xxxxxxx 14 yyyyyyyyyyyyyy 15 xxxxxxx How do I put the number plus its other data from the FIRST column it occurred in into Col E? For example: 1 xxxxxxx (came from Col A) 2 yyyyyyyyyyyyyy (came from Col B) 3 xxxxxxx (came from Col B) 4 xxxxxxx (came from Col C) 5 yyyyyyyyyyyyyy (came from Col A) 6 yyyyyyyyyyyyyy (came from Col B) 7 xxxxxxx (came from Col A) 8 xxxxxxx (came from Col C) 9 zzz (came from Col D) 10 yyyyyyyyyyyyyy (came from Col A) 11 zzz (came from Col C) 12 xxxxxxx (came from Col D) 13 xxxxxxx (came from Col C) 14 zzz (came from Col A) 15 xxxxxxx (came from Col D) Assuming your data starts in A1 and occupies the first four columns Each valid entry starts with a series of digits you want the output in numeric order you are not interested in the column source as part of the output Try this macro: ================================ Option Explicit Sub ReturnByColumn() Dim vSrc As Variant, vRes() As String Dim LastRow As Long Dim coll As Collection Dim i As Long, j As Long For i = 1 To 4 'check columns A-D j = Cells(Rows.Count, i).End(xlUp).Row If j LastRow Then LastRow = j Next i vSrc = Range(Cells(1, 1), Cells(LastRow, 4)) Set coll = New Collection On Error Resume Next For i = 1 To UBound(vSrc, 1) For j = 1 To UBound(vSrc, 2) If Not IsEmpty(vSrc(i, j)) And Val(vSrc(i, j)) 0 Then _ coll.Add Item:=vSrc(i, j), Key:=CStr(Val(vSrc(i, j))) Next j Next i On Error GoTo 0 i = 1: j = 1 ReDim vRes(1 To coll.Count, 1 To 1) Do Until j coll.Count On Error GoTo NoKey vRes(j, 1) = coll(CStr(i)) j = j + 1: i = i + 1 Loop On Error GoTo 0 Range("E1").EntireColumn.ClearContents Range("E1", Cells(UBound(vRes, 1), "E")) = vRes Exit Sub NoKey: If Err.Number = 5 Then j = j - 1 Resume Next Else MsgBox ("Error: " & Err.Number & vbLf & Err.Description) End If Stop End Sub ======================================== |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Changing A Column Of Text numbers To True Numbers: How ? | New Users to Excel | |||
Excel, change column of negative numbers to positive numbers? | New Users to Excel | |||
Can I change a column of calculated numbers to absolute numbers? | Excel Discussion (Misc queries) | |||
Changing column of numbers made of formulas to just numbers | Excel Discussion (Misc queries) | |||
Excel Formula - Add column of numbers but ignore negative numbers | Excel Worksheet Functions |