VBA ループで頭２文字を一括削除

ループで頭２文字を削除

Sub test()

    '　ループで頭２文字を一括削除

    Dim i As Long
    Dim x As Long

    For i = 3 To 10
        ' 対象セルの文字数を取得
        x = Len(Cells(i, "A"))
        
        '　2文字取り除いたものを取得
        Cells(i, "C") = Right(Cells(i, "A"), x - 2)
    Next

End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA 複数列に数式をまとめて入力』

『VBA　配列数式の入力』

『VBA　セル数式のコピペ』

『VBA 最終行・列の取得』

『VBA　セルに数式を入力・取得』

『VBA 連続データの作成　AutoFillメソッド』

『VBA セル選択範囲の変更 Resizeプロパティ』

『VBA セル入力規則の設定（Validation）』