| |
▼ドカ さん：
こんにちは
Sheet2に、列ラベル、行ラベルを記述した形で動作確認OKとのこと、よかったです。
お分かりの通り、このコードは、Sheet1の項目のなかから分析したい項目のみを
Sheet2に書いて、それを集計するというものです。
一方、Sheet1にあるもの全てを集計したいというニーズもあるかもしれません。
様々な方法がありますが、一番手っ取り早いのは、アップしたコードの最初に
Sheet1の項目からSheet2の列ラベル、行ラベルを作り出す部分を追加しておくということでしょうね。
以下をマクロ記録すると、ほとんど、そのまま使えるコードが生成されます。
前トピで申し上げたように、お化粧直し、少なくともSelect/Selection のあたりのお化粧直しを
されたほうがいいと思いますけど、最悪（？）、★注で申し上げるところのみを変更すれば
ちゃんとしたマクロコードとして使うことはできます。
１．Sheet1を選択
２．１行目に行挿入
３．挿入された１行目のA1に、"A"、B1に"B" (文字列は何でもOKです)
４．Sheet2を選択
５．Sheet2のセルを全て選びDeleteキーでクリア
６．Sheet2のA1を選択
７．データーメニューのフィルター->フィルターオプションの設定
（もし、2007以降ならデータタブのフィルターの詳細設定）
８．リスト範囲(L)に、Sheet1のA列を選択していれる
９．指定範囲(O)にチェックして、抽出範囲(T)に、Sheet2のA1を指定
１０．重複するレコードは無視(R)にチェックしてOK。
１１．フィルーターオプションを選ぶ（７．と同じ操作）
１２．リスト範囲(L)に、Sheet1のB列を選択していれる
１３．指定範囲(O)にチェックして、抽出範囲(T)に、Sheet2のB1を指定
１４．重複するレコードは無視(R)にチェックしてOK。
１５．Sheet2のA列を選択して昇順並び替え
１６．Sheet2のB列を選択して昇順並び替え
１７．Sheet2のB列の2行目(B2)からB列のデータの最後(B●)まで選択してCtrl/C ★注
１８．Sheet2のA1を選択して、形式を選択して貼付け、行列を入れ替えるにチェックして実行。
１９、Sheet2のA1を選択して、セルの挿入、右方向にシフト
これで、Sheet2に列ラベル、行ラベルができあがります。
上記★注 と記述した１７．のみ、B●のセルが固定値になっていますので、これを実際の
最終行番号に直す必要があります。B列の最終行番号の値は
Sheets("Sheet2").Range("B1").end(xldown).Row で求めることができますので、
その値を使ってください。
|
|
UO3
- 12/3/16(金) 10:08 -
