"最後の確認")'OK(=6=はい)なら次へ。中断(=7=ダメ=いいえ)ならプログラムを抜ける(=終わる)。InputBox("最終セルの行番号を入力してください。")'インプットボックスでキャンセルされたときの処理'MsgBoxキャンセルされると「空文字」の「""」を返してきます。'で、それが変数LastCelRowNum01に代入されるので、もし'変数LastCelRowNum01に「""」が代入されていればキャンセルされた、'と判断することができます。そのための処理をここでやります。'それをやっておかないと、エラーが出てしまうのでエラー回避の意味でもやっておきます。If'●メイン処理:今居るセルが空白だったら、前のセルの値で埋めて、最終セルまで行く、という処理。'←行番号が「2」~「最終セルの番号」まで繰り返す、の意味です。現在のセルの値を代入します。値が空白かどうかを調べてそれぞれの自動処理をします。値=今のセル」が空白だったら・・・'今居るセルに、前のセルの値と同じ値を代入します。1).ValueElse'空白じゃないときの処理。'何もせずスルーします。LastCelRowNum01」の行に戻ります。Sub'''################################################################'ピボットの自動作成(2010用)'2003タイプの表示形式にしてあります。'ソースの表は自動的に名前の定義をするので、行や列が増減しても'ソースの範囲の再設定をする必要はありません。'できあがったピボットには、「ここに行のフィールドをドラッグします」などの'文言が表示されます。'空のシートで動かすとエラーになりますのでエラー回避コードは自作してください。String'現在のシート(アクティブなシート)の行と列が増えても'ピボットの再設定をしなくても済むようにする処置'「=OFFSET($A$1,0,0,COUNTA($A:$A),COUNTA($1:$1))」にて'名前の定義の操作をして、ソースとなる表に「pvtsrc01」という名前を付けます。""'ピボットキャッシュの作成(名前の定義をした「pvtsrc01」をソースにして。(実際に使いたいときは以降の部分をコメントアウトして試してみてください。行ラベルの設定(1つだけの場合。2段、3段、なら、多分だけど、Array("1段目の列名","2段目の列名","3段目の列名")でやる。Columnも同じだと思う。Sub'################################################################'ピボットの自動作成(2000用)(今回は使いません)'2003タイプの表示形式にしてあります。'ソースの表は自動的に名前の定義をするので、行や列が増減しても'ソースの範囲の再設定をする必要はありません。'ただし、できあがったピボットには、「ここに行のフィールドをドラッグします」'などの文言が表示され「ません」。'空のシートで動かすとエラーになりますのでエラー回避コードは自作してください。String'現在のシート(アクティブなシート)の行と列が増えてもピボットソースの再設定をしなくても'済むようにする処置。'具体的には、「名前の定義」の機能にて、'範囲の設定に「=OFFSET($A$1,0,0,COUNTA($A:$A),COUNTA($1:$1))」を使って、'ソースとなる表に「pvtsrc01」という名前を付けます。'(ピボットのソース範囲の指定には、この「pvtsrc01」という名前を使います。ピボットテーブルで行や列を設定して集計をする例。(実際に使いたいときは以降の部分をコメントアウトして試してみてください。'作ったピボットテーブルをオブジェクト変数に代入。'「顧客ID」列を、1段目の行ラベルに設定。'「氏名」列を、2段目の行ラベルに設定。'「住所01」列を、1段目の列ラベルに設定。'「単価」列を、1段目の集計フィールドに設定。'「数量」列を、2段目の集計フィールドに設定。ツールバーに、階層化したドロップダウンのメニューボタンを追加する例6個めまでは前述のコードとまったく同じです。違うのは7個目以降だけです。True」の行の間にコピペしてもOKです。本サンプルでは、7個目のボタンをドロップダウン形式のメニューボタンにし、さらにその中の3個目も、ドロップダウン形式のメニューボタンにしました。これで階層化ができるので、インターフェイスが少しすっきりできるのではないかと思います。こちらのテストでは、Excel2000、Excel2010、どちらでも動きました。(アイコンの絵の対応表が無いので絵は適当な番号で変えてあります。)↓こんな感じになります。標準モジュールにコピペするなどしてテストしてみてください。※ボタンのアイコンの絵は、2003側で気に入った絵をみつけて、あらかじめその番号を調べておかないといけなかったと思います。