VBAで列全体にテキストをコピー

Question

「出力例」と定義を含む別の列を含むExcelブックの列があります。出力例が定義に必要です。私は写真を添付

Sub Exampletransfer() 
' 
' Exampletransfer Macro 
' 
' Keyboard Shortcut: Ctrl+Shift+E 
' 
    Range("H2").Select 
    ActiveCell.FormulaR1C1 = _ 
     "The age range, in years of a customer. Ex: " 
    Range("I2").Select 
    ActiveCell.FormulaR1C1 = "1-4" 
    Range("H2").Select 
    ActiveCell.FormulaR1C1 = _ 
     "The age range, in years of a customer. Ex: 1-4" 
    Range("H3").Select 
End Sub 

：「EX」の後にコピーした後、隣接する列とペーストのそれをからテキストをテキストの末尾：だから私は、フレーズ「EX」を置くマクロを書きました。私はこれを列全体に起こす必要があります。私はマクロを列の下に続ける方法を理解していないと思います。ここに行く

What I have What I need

Answer 1

。 RangeメソッドとCellメソッドの両方で、データの開始位置を変更してください！

Sub AppendData() 

Dim myRange As range 
Dim myCell As range 

'Change where you data starts. My practice started in B4, so that's 
'what I used. 
Set myRange = range("B4", Cells(Rows.count, "B").End(xlUp)) 


For Each myCell In myRange 
    If myCell.Value <> "" Then 
     myCell.Value = myCell.Value & " Ex: " & myCell.Offset(0, 1).Value 
    End If 
Next myCell 


End Sub