Excel VBA Вставить столбец со стандартным именем + номер

Question

Sub AddAdjustment()
'
' AddAdjustment Macro
'

Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("D:D").Select
With Range("D13").Select
ActiveCell.FormulaR1C1 = "Adjustment 1"
Range("D13").Select
With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlTop
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
End With
    Range("D18").Select
End Sub

У меня есть лист, в который я хочу вставить столбец с именем «Adjustment #» в верхней части столбца. Каждый раз, когда я запускаю макрос, я хочу, чтобы он был корректировкой 1, корректировкой 2, корректировкой 3 и т. Д. c ....

Как это было бы возможно? Я могу вставить столбцы, но я не могу понять, как заставить имя увеличиваться в числе каждый раз. Спасибо!

Answer 1

Ну, исходя из вашего вопроса и предоставленного кода - вот возможное решение:

Option Explicit

Sub AddAdjustment()
Static colNo As Long

colNo = colNo + 1

Cells(1, 4).EntireColumn.Insert CopyOrigin:=xlFormatFromLeftOrAbove

With Cells(13, 4)
    .Value = "Adjustment " & colNo
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlTop
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
    .EntireColumn.AutoFit
End With

    Cells(18, 4).Select

End Sub