| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
how to extract from this column
I want to extract everything not equal to "GOOD" from this list and
place the results on another column next to it with no blank rows. Thanks. Column A Column B ======= ====== GOOD 456 GOOD 123 GOOD 2599 456 2489 GOOD 549 GOOD 123 GOOD GOOD 2589 GOOD GOOD GOOD GOOD 2489 549 GOOD GOOD GOOD GOOD |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
how to extract from this column
Try something like the following:
Dim Src As Range Dim Dest As Range Set Dest = Range("B1") For Each Src In Application.Intersect(Columns(1), ActiveSheet.UsedRange).Cells If StrComp(Src.Text, "GOOD") < 0 Then Dest.Value = Src.Text Set Dest = Dest(2, 1) End If Next Src -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "fl" wrote in message ... I want to extract everything not equal to "GOOD" from this list and place the results on another column next to it with no blank rows. Thanks. Column A Column B ======= ====== GOOD 456 GOOD 123 GOOD 2599 456 2489 GOOD 549 GOOD 123 GOOD GOOD 2589 GOOD GOOD GOOD GOOD 2489 549 GOOD GOOD GOOD GOOD |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How to extract data from a column | Excel Discussion (Misc queries) | |||
| How do I extract the numerical value of '325.00' to next column | Excel Worksheet Functions | |||
| Extract data in put in a new column | Excel Worksheet Functions | |||
| Evaluate a column and extract last value | Excel Worksheet Functions | |||
| extract column or row reference | Excel Discussion (Misc queries) | |||
Linear Mode
