• 2006-06-13 16:03:34
• 回答No.3

＃０２です。一番簡単そうな方法で説明します。

過去の問題が登録されているBOOKを開いて、ツール→マクロ→新しいマクロの記録　を選びます。「マクロの記録」といウィンドウはそのままＯＫでよいです。

次にツール→マクロ→記録終了　を選びます。これで（見えませんが）標準モジュールシートが作成されました。次にそのシートを表示させます。そのためには　Aｌｔ＋Ｆ１１　を押下します。

すると　「Sub Macro1()　・・以下省略」のような、今記録したマクロが表示されているはずです。この１行目のSub Macro1()の上に＃０２のマクロ全文をペーストしてください。（Option Explicitが先頭行になるように）

元の問題文のシートに戻り、シート名を”過去問”に変更して、Alt+f8 を押下すると、実行可能なマクロのリストが表示されますから、その中から”問題作成”を選んで「実行」ボタンをクリックしてみてください。

なお＃０２のマクロは夜中に急いで作ったので、美しくありません（→言い訳です）
A列の番号は途中の行が空白でも良いですが、最小値は１で抜け番がないことが前提となっていますのでお気をつけください。抜け番があると
k = Application.Match(NO(l - 1), Worksheets("過去問").Range("A1:A2000"), 0)
の行でエラーとなる場合があります。

過去問（第６回以降）を行の末尾に追加してもマクロは動作するはずです。