VBA FOR文の一時変数と列番号を連結したい

Question

お疲れ様です。VBAで質問があります。
Excelで「セルを連結して中央揃え」を各行で実行したいです。

Range("C17:17").Select
を行数で遷移させたいのですが、どのように連結させればよいのかわかりません。

以下コードです。

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+a
'
    For i = 18 To 91
        Range("C" + i + ":" + "G" + i).Select
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        Selection.Merge
    Next i
End Sub

実行すると以下のエラーが表示されます。

実行エラー13
型が一致しません

Answer 1

エラーが発生しているのは、以下の部分です。
VBAで文字列を連結する演算子は、'&'なのに、'+'が使われている事が原因です。
('+'で文字列を連結するのは、C#などです）

Range("C" + i + ":" + "G" + i).Select

プログラム言語が異なると、演算子が異なることが多いです。
どの言語を使用しているか認識しながら、プログラミングしてください。

Comments

[Chandler_Bing]

はい。ありがとうございます。

Answer 2

Range("C" + i + ":" + "G" + i).Select
を
Range("C" & i & ":" & "G" & i).Select
に変えてください。

Comments

[Chandler_Bing]

ありがとうございます。上手くいきました。「+」と「&」と記憶していたのですが、違うのですね。

Answer 3

For-Next構文を修正してみました。動作済みです。

For i = 18 To 91
    With Range("C" & i & ":" & "G" & i)
        .HorizontalAlignment = xlCenter
        .MergeCells = True
    End With
Next i

Comments

[Chandler_Bing]

回答ありがとうございます。結果は同じでした。（エラー13）

[TanakaHiroaki]

初歩的な誤りを見逃していました。
（Range中の + を ＆ に変更）

[Chandler_Bing]

ありがとうございます。