VBA ECサイトに使える_001

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