質問: 先ほどはご回答くださりありがとうございました。
回答: ちょいとミスがあったので再投稿します。 他の方へのレスでみましたが、0-36のボタンとやらに Call マクロ1 とでも入れておき、標準モジュールに Sub マクロ1() v1 = Sheets("計算表").Range("T2").Value Sheets("計算表").Range("T10").Value = WorksheetFunction.VLookup(v1, Sheets("10点").Range("A2:C33"), 3, False) End Sub として呼び出してはどうでしょうか。