【エクセルマクロ】入力規則を別シートから作成：自動化で作業効率アップ

エクセルマクロで、入力規則のリストを別シートから作成するVBAコードをご紹介します。

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

入力規則を別シートから作成

以下のExcelVBAを実行すると、別シートと連動してプルダウンを設定します。


Sub ドロップダウンリスト別シート参照して作成()

Dim MyList() As Variant
Dim i As Long

    Sheets("Sheet2").Select
    
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        ReDim Preserve MyList(i)
        MyList(i) = Cells(i, 1)
    Next i

    With Sheets("Sheet1").Range("A2:A6").Validation
        .Delete
        .Add Type:=xlValidateList, _
             Operator:=xlEqual, _
             Formula1:=Join(MyList, ",")
    End With

End Sub

マクロ実行後

別シートの値を配列で取得し、入力規則のリストに反映します。

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

【エクセルマクロ】入力規則を自動操作する：超便利7選

...