入力規則を設定する:Excel VBA入門セル範囲に名前を定義する topへ 最初にSheet2に以下のように入力しておきます。そして、「項目リスト」および各セル範囲に名前を定義します。 A1:C1に「項目リスト」、A2:A4に「野菜」、B2:B4に「肉」、C2:C3に「果物」と名前を定義します。 コード例 Sub name_1() Dim lCol As Long, lRow As Long Dim i As Long, nName As String On Error Resume Next With Sheets("Sheet2") lCol = .Range("A1").End(xlToRight).Column ActiveWorkbook.Names("項目リスト").Delete ActiveWorkbook.Names.Add Name:="項目リスト", _ RefersTo:=.Range(.Cells(
