Inserting Columns

[CARBOB]

I have in columns H:IY a 5-digit value. I would like to insert between each column a heading SKIP, so it wolud look like the bottom image. Is there an easy way to do this, or am I stuck with entering each column separate?

Excel Workbook
	H	I	J
1	0,2,4,5,7	0,4,5,6,7	2,3,4,7,8
Sheet1

Excel 2007

Excel Workbook
	H	I	J	K
1	0,2,4,5,7	SKIP	0,4,5,6,7	SKIP
5 DIGIT PAIRS

Excel 2007

 

[Nalani]

How about this:

Sub InsertWord()
    Dim LC As Long
    LC = Range("H1").End(xlToRight).Column
    Application.ScreenUpdating = False
    Columns("I:I").Insert Shift:=xlToRight
    Application.Goto Reference:=ActiveSheet.Range("I1")
    ActiveCell.Value = "SKIP"
    For i = 9 To LC
        ActiveCell.Copy
        ActiveCell.Offset(0, 2).Select
        Selection.Insert Shift:=xlToRight
    Next i
    Application.CutCopyMode = False
End Sub

It does what you asked for but it will place "SKIP" as the last entry in SQ1

 

[Smitty]

How's this:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> foo()<br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>        <SPAN style="color:#00007F">For</SPAN> i = Cells(1, "IY").Column <SPAN style="color:#00007F">To</SPAN> Cells(1, "H").Column <SPAN style="color:#00007F">Step</SPAN> -1<br>            <SPAN style="color:#00007F">With</SPAN> Cells(1, i)<br>                .EntireColumn.Insert<br>                .Offset(, 1).Value = "SKIP"<br>            <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>        <SPAN style="color:#00007F">Next</SPAN> i<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

 

[CARBOB]

Thank you, it works, but it took 6 hours to run.

 

[CARBOB]

Works like a charm, less than 30 seconds!!!! Very much appreciated, thank you!!

How's this:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> foo()<br>****<SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>********<SPAN style="color:#00007F">For</SPAN> i = Cells(1, "IY").Column <SPAN style="color:#00007F">To</SPAN> Cells(1, "H").Column <SPAN style="color:#00007F">Step</SPAN> -1<br>************<SPAN style="color:#00007F">With</SPAN> Cells(1, i)<br>****************.EntireColumn.Insert<br>****************.Offset(, 1).Value = "SKIP"<br>************<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>********<SPAN style="color:#00007F">Next</SPAN> i<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,