insert a blank column between each column in a data file

G

Guest

I have a file with 60 columns, I need to insert a blank column between each
of these 60 columns, is there a macro or command I could use?

Thanks.
 
G

Guest

hi
manual = select every other column and hit ctrl++
or you can paste this in a standard module
Sub addcol()
Dim c As Range
Dim cc As Range
Set c = Cells(1, 2)
For i = 1 To 60
Set cc = c.Offset(0, 1)
c.EntireColumn.Insert
Set c = cc
Next i
End Sub

regards
FSt1
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel Add 60 days to column 1 or column 2 based on whether column 2 has data 1
Excel Concatenate with line breaks but ignore blank cells 3
How to insert columns aftre each column of data 7
Nested Greater than or less than Formula 4
counting blank cells within two columns 2
Insert blank column every other column 2
Display index of column headers in column A 9
Copy column from different sheets and plot a graph 3

Top