Differences

This shows you the differences between two versions of the page.

--- microsoft_excel:macro_insert_column [2020/11/15 20:43] – created peter
+++ microsoft_excel:macro_insert_column [2021/08/04 14:22] (current) – removed peter
@@ Line 1: / Line 1: @@
-====== Microsoft Excel - Macro Insert Column ======
-<code>
-Sub InsertColumns()
-'PURPOSE: Insert column(s) into the active worksheet
-'SOURCE: www.TheSpreadsheetGuru.com
-'Insert Column to the left of Column F
-  Columns("E:E").Insert Shift:=xlToRight, _
-    CopyOrigin:=xlFormatFromRightOrBelow
-    Range("E1").Value = "CELL1_NO"
-    Range("E:E").Interior.Color = xlNone
-'Insert Column to the left of Column K
-  Columns("J:J").Insert Shift:=xlToRight, _
-    CopyOrigin:=xlFormatFromRightOrBelow
-    Range("J1").Value = "CELL2_NO"
-    Range("J:J").Interior.Color = xlNone
-'Insert Column to the left of Column P
-  Columns("O:O").Insert Shift:=xlToRight, _
-    CopyOrigin:=xlFormatFromRightOrBelow
-    Range("O1").Value = "CELL3_NO"
-    Range("O:O").Interior.Color = xlNone
-'Insert Column to the left of Column K
-  Columns("S:S").Insert Shift:=xlToRight, _
-    CopyOrigin:=xlFormatFromRightOrBelow
-    Range("S1").Value = "CELL4_NO"
-    Range("S:S").Interior.Color = xlNone
-'Insert Column to the left of Column K
-  Columns("W:W").Insert Shift:=xlToRight, _
-    CopyOrigin:=xlFormatFromRightOrBelow
-    Range("W1").Value = "CELL5_NO"
-    Range("W:W").Interior.Color = xlNone
-'Insert Column to the left of Column K
-  Columns("Z:Z").Insert Shift:=xlToRight, _
-    CopyOrigin:=xlFormatFromRightOrBelow
-    Range("Z1").Value = "CELL6_NO"
-    Range("Z:Z").Interior.Color = xlNone
-'Insert Column to the left of Column K
-  Columns("AB:AB").Insert Shift:=xlToRight, _
-    CopyOrigin:=xlFormatFromRightOrBelow
-    Range("AB1").Value = "CELL7_NO"
-    Range("AB:AB").Interior.Color = xlNone
-End Sub
-</code>