Sub InputCode() Dim InputCode As Variant Dim lastRow As Long Dim inputName As Variant Dim inputQuantity As Variant Dim recordSheet As Worksheet Dim listSheet As Worksheet Dim i As Long ' 記録シートを選択 Set recordSheet = Worksheets("記録"…