●CSVなどで、文字列を足すときに便利。
Sub addtext()
Dim i As Integer
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
Cells(i, 3).Value = Cells(i, 3).Value & " 安い のし・包装紙無料 出産内祝い 内祝い 引き出物 香典返し 快気祝い 結婚 引出物 ギフト 引越し お返 グルメ ギフトカタログ グルメカタログギフト 体験 法要 香典 記念品 新築 最大30%OFF"
Next i
End Sub