初心者も簡単ブログにコピペだけ!1クリック高単価7〜42円。登録無料最短1分でスタート。

VBA For文のサンプルコード

最終行を取得しFor文でセルの値に文字列Aを追加する

既存のセルに文字列Aを追加するシンプルなコードです。
下記の例だと、B2を起点に値の入っている最終行を取得後、
ループで既存の値と”A”を合わせた値を入れています。

サンプルコードは下記の通りです。

Sub addStr()
'変数の型定義
Dim lastRow As Integer
Dim i as Integer

'B2セルを選択
Cells(2,2).select

'変数lastRowに最終行の行番号を入れる
lastRow=Cells(Rows.Count,1).end(xlup).Row

'2行目から最終行目までループして、既存の値 + A を入力する。
For i = 2 To lastRow Step 1
    Cells(i,2)=Cells(i,2).Value & "A"
Next
End Sub

初心者も簡単ブログにコピペだけ!1クリック高単価7〜42円。登録無料最短1分でスタート。