I missed that you had to paste to alternate columns. In that case you
could work on a copy of the data and follow the same steps with the
adjustment below to select only even columns:

4. Edit . Goto Special blanks followed by Ctrl+0

With columns B,D,F,... selected press delete to remove the data.
Then copy all data cells and paste to new sheet with the option to skip
blank cells

It assumes all cells in the data are populated, so you might have to do
an initial replace on blanks. This is all recordable but convoluted and
a custom macro is probably a better option...



Dave Peterson wrote:

That pasted the visible cells, but it didn't paste into every other column.

Lori wrote:

To select alternate columns try the following:

1. Insert a line in row 1
2. Type 1 in B1
3. Select A1:B1 and drag right to the end of the data (so each
alternate column has a value)
4. With this selection press Ctrl+\ followed by Ctrl+0 to hide
alternate columns
5. Delete row 1
6. Select all columns of data and press Alt+;

Now when you copy the selection only the alternating columns will be
pasted.
To restore the original layout, select all cells and press Ctrl+Shift+0
(format column unhide)

--

Dave Peterson