【エクセルマクロ】隣のセルに値を自動入力する：動画あり

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

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

隣のセルに値を自動入力

以下のExcelVBAを実行すると、隣のセルに特定文字を自動的に入力します。


Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 1 Then

        With Cells(Target.Row, Target.Column)
    
            '北海道だったら
            If .Value = "北海道" Then
    
                '右隣に指定値を入力
                .Offset(0, 1) = "じゃがいも"
    
            '静岡県だったら
            ElseIf .Value = "静岡県" Then
    
                '右隣の指定値を入力
                .Offset(0, 1) = "お茶"
    
            End If
        End With
    End If

End Sub