How to insert columns aftre each column of data

  • Thread starter Thread starter vcff
  • Start date Start date
V

vcff

Hi All

I need to insert blank columns after each column of data on several
worksheets.
Can help?

Thanks in advance.

vcff
 
Group the worksheets that should have this done to them.
Click on the first tab and ctrl-click on subsequent.

Then run a macro:

Option Explicit
Sub testme()

Dim wks As Worksheet
Dim iCol As Long
For Each wks In ActiveWindow.SelectedSheets
With wks
For iCol _
= .Cells.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1
.Columns(iCol).Insert
Next iCol
End With
Next wks
End Sub

If you're new to macros:

Debra Dalgleish has some notes how to implement macros here:
http://www.contextures.com/xlvba01.html

David McRitchie has an intro to macros:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Ron de Bruin's intro to macros:
http://www.rondebruin.nl/code.htm

(General, Regular and Standard modules all describe the same thing.)
 
ps. remember to ungroup the sheets when you're done.

Rightclick on one of the selected sheets and choose Ungroup Sheets.
 
Try this simple macro:

Sub column_adder()
Application.ScreenUpdating = False
Dim r As Range
For i = Columns.Count To 2 Step -1
Set r = Columns(i)
r.Select
If Application.WorksheetFunction.CountA(r) > 0 Then
Selection.Insert Shift:=xlToRight
End If
Next
Application.ScreenUpdating = True
End Sub
 
This macro would work.

Sub InsertCols()
'assume that a column has data if there is something in row 1
Range("IV1").End(xlToLeft).Select
Let Y = ActiveCell.Column 'there are Y # of columns to insert
For X = 1 To Y
Columns(X + X).Select
Selection.Insert Shift:=xlToRight
Next

End Sub
 
Hi Dave,

Thanks for the reminder.

vcff

Dave Peterson said:
ps. remember to ungroup the sheets when you're done.

Rightclick on one of the selected sheets and choose Ungroup Sheets.
Click to expand...
 
Back
Top