【エクセルマクロ】特定文字の隣のセルに値入力する:自動化で時短術

ExcelVBA-特定文字の隣のセルに値を入力-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、特定文字の隣のセルに値を入力するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください!

特定文字の隣のセルに値入力する

以下のExcelVBAを実行すると、指定文字の隣のセルに値を入力します。


Sub 特定文字の隣のセルに値入力()

Dim LastRow As Long
Dim i As Long

    '最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    '1~最終行までループ
    For i = 1 To LastRow
    
        'A列が「東京都」だったら
        If Cells(i, 1) = "東京都" Then
        
            'B列に「〇」を入力
            Cells(i, 1).Offset(0, 1) = "〇"
        
        End If
    Next i
    
End Sub

 

マクロ実行前


 

マクロ実行後

A列の文字を判別して、特定の文字の場合にB列に「〇」を入力します。


 
 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】ワークシート処理を自動化する:超便利33選
...

 

「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!