Select columns using "for" - beginner guide

[makiwara]

Hi! Im stuck with this problem, it would be great if you could help me


For o = 3 To Z
Columns(o).Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Next

________

I want to select the column C,D,E and so on, up to the Z variable, and then insert 2 new columns before every selected column. Could you help me? I try to figure out this for a half hour:D Have a nice day!

 

[Fluff]

Try

For o = Z To 3 Step -1
   Columns(o).Resize(, 2).Insert
Next o

 

[makiwara]

Hi Fluff, thank you for your answer!

It doesn't work, I suspect that I couldn't tell you clearly what i'm looking for.
https://ibb.co/m4rLQd
Can you help me? Have a nice day!

Try

For o = Z To 3 Step -1
   Columns(o).Resize(, 2).Insert
Next o

 

[Fluff]

In what way doesn't it work? If I start off with this

Excel 2013 32 bit
	A	B	C	D	E	F	G	H
1	Postcode	In Use?	Latitude	Longitude	Easting	Northing	GridRef	County
2	AL10 9WX	Yes	51.750259	-0.234901	521944	207203	TL219072	Hertfordshire
3	AL6 0PB	Yes	51.829624	-0.16166	526777	216154	TL267161	Hertfordshire
4	AL6 0PE	Yes	51.83425	-0.168206	526313	216657	TL263166	Hertfordshire
5	AL6 9TU	Yes	51.83911	-0.223619	522482	217103	TL224171	Hertfordshire
6	AL6 9UG	Yes	51.855995	-0.206283	523630	219010	TL236190	Hertfordshire
7	AL6 9UJ	Yes	51.840265	-0.223907	522459	217231	TL224172	Hertfordshire
8	AL7 1UU	No	51.816179	-0.194575	524546	214602	TL245146	Hertfordshire
9	AL7 2ZY	No	51.799543	-0.170106	526279	212794	TL262127	Hertfordshire
10	AL7 3JH	Yes	51.792809	-0.178267	525735	212031	TL257120	Hertfordshire
Postcodes (2)

I end up with

Excel 2013 32 bit
	A	B	C	D	E	F	G	H	I	J	K	L	M	N
1	Postcode	In Use?			Latitude			Longitude			Easting			Northing
2	AL10 9WX	Yes			51.750259			-0.234901			521944			207203
3	AL6 0PB	Yes			51.829624			-0.16166			526777			216154
4	AL6 0PE	Yes			51.83425			-0.168206			526313			216657
5	AL6 9TU	Yes			51.83911			-0.223619			522482			217103
6	AL6 9UG	Yes			51.855995			-0.206283			523630			219010
7	AL6 9UJ	Yes			51.840265			-0.223907			522459			217231
8	AL7 1UU	No			51.816179			-0.194575			524546			214602
9	AL7 2ZY	No			51.799543			-0.170106			526279			212794
10	AL7 3JH	Yes			51.792809			-0.178267			525735			212031
Postcodes (2)

 

[My Aswer Is This]

Try this:

Sub Insert_Columns()
'Modified 5/9/2018 5:10 PM  EDT
Application.ScreenUpdating = False
    For i = 26 To 3 Step -1
        Columns(i).Resize(, 2).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Next
Application.ScreenUpdating = True
End Sub

 

[makiwara]

Dear Fluff, I tried your code in a new workbook with random data, and it worked, so you have right.

But in my current project it's not, and I don't know why.

https://imgur.com/a/XD3QvFQ

The BASIC data in my worksheet is in Column A and every other cell in the worksheet is EMPTY!
The VBA code fills them with data, so it makes the splitting of the strings too. But unfortunately when I insert you code, it runs, but gives no result. How can it be possible, that here it doesn't works? Thank you for your help, i am really lost now.

 

[makiwara]

Thank you, I dont now what was the problem, but it works fine with this code. Thank you for your help both have a nice day

Try this:

Sub Insert_Columns()
'Modified 5/9/2018 5:10 PM  EDT
Application.ScreenUpdating = False
    For i = 26 To 3 Step -1
        Columns(i).Resize(, 2).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Next
Application.ScreenUpdating = True
End Sub

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thank you, I dont now what was the problem, but it works fine with this code. Thank you for your help both have a nice day