Help copying a range with spaces to a range without spaces
Hi, I'm trying to find the simplest solution (well, any solution) to the
following problem: 1 2 3 4 5 6 A F B F Y S C D G E I need to list the above as: F F G Y S In other words listing all the contents of Column 1 from Rows A:E, in the order they appear, ignoring spaces, followed by the contents of Column 2 etc. Up to Column whatever. There may be duplicates which I want to keep, except for the spaces. I can do it in my head, but I have no idea how to code it. Any ideas? Andy |
Help copying a range with spaces to a range without spaces
This should work:
Sub Tester() For i = 1 To 5 For j = 1 To 256 sTest = Cells(i, j) If sTest < Empty Then LastCell = Cells(65536, 1).End(xlUp).Row If LastCell < 5 Then LastCell = 5 Cells(LastCell + 1, 1) = sTest End If Next j Next i Rows("1:5").Delete End Sub Regards, Shockley "Andy" wrote in message ... Hi, I'm trying to find the simplest solution (well, any solution) to the following problem: 1 2 3 4 5 6 A F B F Y S C D G E I need to list the above as: F F G Y S In other words listing all the contents of Column 1 from Rows A:E, in the order they appear, ignoring spaces, followed by the contents of Column 2 etc. Up to Column whatever. There may be duplicates which I want to keep, except for the spaces. I can do it in my head, but I have no idea how to code it. Any ideas? Andy |
All times are GMT +1. The time now is 03:43 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com