VBAで1つ飛びに列を挿入したいが、スマートなやり方があれば教えてほしい

Question

前提・実現したいこと

Microsoft360のエクセルを使っています。
VBAでヘッダの最終列を取得した後、C列から飛び飛びで列を挿入したいのですが、範囲にしたい文字列を無理やり作るやり方しか思いつきませんでした。もし、もう少しスマートな記述法があったらご教示お願い致します。

該当のソースコード

Private Sub CommandButton2_Click()
Dim apc As Integer
Dim dc As Integer
Dim i As Integer
Dim pc As Integer
Dim rg As String
Dim rgs As String
Dim edc As String
Dim edcs As String
Dim edcs2 As String

'枠組み作製
dc = Range("A1").End(xlToRight).Column '最終入力列を取得
 For i = 2 To dc '数字に対応したアルファベットを作ってRange()に格納する範囲を作成
  rg = Chr(i + 65)
  edc = Chr((i * 2 - 1) + 64)
  rgs = rgs + rg + ":" + rg + ","
  edcs = edcs + edc + ":" + edc + ","
  edcs2 = edcs2 + edc + ","
  
 Next i
rgs = Left(rgs, Len(rgs) - 1)
edcs = Left(edcs, Len(edcs) - 1)
edcs2 = Left(edcs2, Len(edcs2) - 1)'余計なカンマを削除


Range("" + rgs + "").Insert '飛び飛び列挿入
Range("" + edcs + "").ClearFormats

End Sub

Answer 1

こんなイメージですか？

Private Sub CommandButton2_Click()

Dim dc As Long
    dc = Range("a1").End(xlToRight).Column

Dim i As Long
For i = dc To 3 Step -1
    Columns(i).Insert
Next

End Sub

Comments

[halmichi]

ありがとうございます。
最終行から挿入していくのがミソだったんですね。
勉強になりました。