[[20070718095001]]　『件数を数える』（のの２）　ページの最後に飛ぶ

 『件数を数える』（のの２）

 win…xp　excel…2003

 いつもお世話になっています。お知恵を貸してください。
 あるシートのＡ～ＡＢ列まで項目があり、９０００件ほどデータが入っています。

 Ａ　Ｂ　Ｃ　　…　　　ＡＢ
 番号
 ↑　製造番号（英数込みの８桁）

 このＡ列の番号を、どの番号が何件あるかを数えたいのです。
 簡単に数える方法はないでしょうか？
 よろしくお願い致します。

 ピボットテーブルはどうでしょう?
 以下のような表が得られますけど・・・(Hatch)
データの個数 / 番号	
番号	合計
1	3
2	3
3	3
総計	9

 (hatch）さん

 早速ありがとうございます。
 ピボットテーブルですが、データ範囲を指定してレイアウトを選ぶと
 「フィールド名は正しくありません。ラベルの付いた列でリストとして編成された
 データを使用する 必要があります～」というようなメッセージが出来ます。
 何がいけないのでしょう…。
 （のの２）

データ範囲の一番上の列がどこか空白になってませんか？

 （kano）

 ところどころ空白の項目があります。
 それでエラーが？？？
 何か項目名を入れてやって見ます。ありがとうございます。
 （のの２）

念の為ですが、カウントしたいのはA列のデータだけなのですか？

 もしそうならピポットの範囲はA列のみでいいです。
 ほかの列を選択しても問題ないですが、必要はないので。。

（kano）

 (Kano）さん
 レイアウトの画面はでました！ありがとうございます。
 が、「ページ」「列」などの項目に何を入れたらいいのか……。
 色々試しています。

 カウントしたいのは現時点ではＡ列だけですが、上司の気分で
 付随するほかのデータも見たいといわれる可能性はあります…。

 それで…
 とりあえず、自力でも考えてみようと、フィルタオプションで別シートに
 「重複するレコードを無視」にして番号を抜き出し、countif関数で番号
 ごとの数を出してみました。
 すると…
 縦になが～く５００行ほどになります。
 Ａ列　Ｂ列しかデータは入っていないので、用紙に入るように折り返して表示させる
 方法はあるでしょうか？
 あと、長い行や列を範囲指定する際、クリック+ドラッグでず～っとマウスを握って
 いる方法ではなく、データ範囲を一括で指定する方法はないでしょうか？

 （のの２）

あまりにも大きな勘違いだったので、上記訂正しました。

 合計にチェックを入れてテストしてたみたいで、お恥ずかしい＞＜

折り返しはちょっと時間を。。。

 どなたかお分かりになられる方レスお願いします。

 データを一括指定は名前ボックスにA1：A500とか
 いれると全部選ばれます。入力後、Ctrl+Enterで全部に数式が入ります。
（kano）

 コメントありがとうございます。
 とりあえず、原始的にコピペして対応しました。
 午後からは別業務があるため、ここにこれないのですが 効率の良い作業方法を
 求めていきたいので、引き続きお願い致します。
 （のの２）

自分のコメントの訂正に頭いっぱいで、のの2さんの質問見逃してました。すいません。

 今回はA列のみとのことですので、
 ①ツールバー→データ→ピポットテーブルとピポットグラフレポート
 ②Exelのリスト/データベースにチェック、ピポットテーブルにチェック（初期状態）→次へ
 ③範囲に”Sheet1!$A:$A”と入れて次へ
 ④作成したい場所選んで完了
 枠が出てきたと思いますので、ここに行のフィールド･･･と、ここにデータアイテム･･･のところに番号をドラッグ。（下の表で番号の下にあたる部分と合計の下にあたる部分）
結果はHatchさんから拝借
－－－－－－－－－－－－－－－－
 データの個数 / 番号｜←――― ｜―ここがデータの個数になってない場合は
－－－－－－－－－－－－－－－－　　ダブルクリックで変更出来ます。
番号	　　　　　｜　合計　 ｜
－－－－－－－－－－－－－－－－
1	　　　　　　｜3　　　　｜
－－－－－－－－－－－－－－－－
2	　　　　　　｜3　　　　｜
－－－－－－－－－－－－－－－－
3	　　　　　　｜3　　　　｜
－－－－－－－－－－－－－－－－
総計	　　　　　｜9　　　　｜
－－－－－－－－－－－－－－－－
これでいけるはずです。
（kano）

 Sub TEST1()
   Dim I, J, CTL
   CTL = 3
   Cells(2, 30) = "番号": Cells(2, 31) = "件数"
   For I = 3 To 9000
     For J = 3 To CTL
       If (Cells(I, 1) = Cells(J, 30)) Then Cells(J, 31) = Cells(J, 31) + 1: Exit For
     Next J
     If (J > CTL) Then Cells(J, 30) = Cells(I, 1): Cells(J, 31) = 1: CTL = J
   Next I
 End Sub

 ＊横から失礼いたします。

 これも試してみて下さい。
 ３行目から９０００行目までを対象しています。
 答えは３０(AD)、３１(AE)列に出ます。
 外してなければ。。ご参考に。。　　　　　　　　　　　　　　　　　　　　　　    （mr_mangoos）

衝突～
別件のようなのでそのままＵＰ。

折り返しの件ですが、過去ログ見つけましたのでご紹介。

 [[20050629161738]]『1ページに印刷する[簡単な]方法ってありますか？』（スヌ）
  データがSheet1のA列～C列にあるとして、別のシートのA1セルに、
 =OFFSET(Sheet1!$A$1,MOD(ROW()-1,50)+(ROUNDUP(COLUMN()/3,0)-1)*50,MOD(COLUMN()-1,3)) と入力。
 後は、下は50行目まで、右はBH列までフィルコピーしてみて下さい。
（純丸）(o^-')b

(COLUMN()/3,0)→(COLUMN()/2,0)で２列に出来ます。

（kano）

 （kano）さん　（mr_mangoos）さん

 ピボットテーブルとマクロ、両方でやってみました。出来ました!!
 折り返して印刷する方もうまくいきました。次回からは楽に作業ができそうです。
 ありがとうございます。
 （のの２）

コメント返信：

[ 一覧(最新更新順) ]

[[20070718095001]] 『件数を数える』（のの２） ページの最後に飛ぶ

[[20070718095001]]　『件数を数える』（のの２）　ページの最後に飛ぶ