VBAを使用している式のセルを動的に参照します。

Question

列Bと列Cを連結して列Hを埋め込むマクロを作成しようとしていますが、列Bと列Cのセルを参照する方法は分かりません。問題は次のとおりです。

Selection.Formula = "=CONCATENATE(Range("B" & i) & Range("C" & i))" 

助けてください。ここにコード全体があります。

Sub Macro() 

Dim iLastRow As Integer 
Dim i As Integer 
    iLastRow = Worksheets("Sheet1").Range("g10000").End(xlUp).Row 
    For i = 3 To iLastRow 
     Worksheets("Sheet1").Range("H" & i).Select 
     Selection.Formula = "=CONCATENATE(Range("B" & i) & Range("C" & i))" 
    Next 
End Sub 

Answer 1

このコードは動作します。

Sub Macro() 

Dim iLastRow As Integer 
Dim i As Integer 
iLastRow = Worksheets("Sheet1").Range("g10000").End(xlUp).Row 
For i = 3 To iLastRow 
    With Worksheets("Sheet1") 
     .Cells(i, 8).Value = .Cells(i, 2).Value & " " & .Cells(i, 3).Value 
    End With 
Next i 
End Sub