go4649回答ポイント 60ptウォッチ

再質問です。よく内容を読んでお答え頂きますよう宜しくお願いします。

【エクセル】エクセル2003で下記内容を計算させる方法を教えて下さい。よろしくお願い致します。

A----B----C----A`----`B`----C`
山田---10---5---山田----10----11
鈴木---10---5---山田----22----6
伊藤---20---4---伊藤----20----4
川上---15---4---伊藤----10----8
伊藤---10---8---川上----15----12
山田---10---6---鈴木----10----5
山田---22---6
川上---15---8

上記内容で
１．Aの中に「同じ文字」があり、Bも「同じ数値」の場合はCの数字を合計してA‘、B‘、C‘のセルに表示
２．Aの中に「同じ文字」があり、Bは「違う数値」の場合はCの数字を個別に表示
３．Aの中に「違う文字」があり、Bは「同じ数値」の場合はCの数字を個別に表示
４．Aの中は「文字」です！数値ではありません。しかも文字には規則性がなくランダムに続きます
５．例文は8行ですが複数行続きます

• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• ootatmt2005/12/21 14:43:03

  満足20pt

  http://www.atmarkit.co.jp/fwin2k/win2ktips/359pivot/pivot.html

  ＠IT：Windows TIPS -- Tips：ピボットテーブルでクロス集計を行う

  ピボットテーブルを使えば一発です。

  
  

  A,B,Cの先頭に行の名前をつけておいて、

  ピボットテーブルのデータ範囲を $A:$C にして、

  行のフィールドに A をドラッグ

  列のフィールドに B をドラッグ

  データアイテムに C をドラッグすれば

  クロス集計できます。

  スター

  • go4649 2005/12/21 15:28:41

    関数を使用して行いたいのです

Baku77702005/12/21 14:57:25

満足20pt

http://homepage1.nifty.com/kenzo30/ex_kisotoku/ex_ks_tokubetu9_1...

　まず、集計用のデータを抽出します。




　質問文でA’,B’の列にあるデータです。

「データ」→「フィルタオプション」で

指定した範囲をオン

リスト範囲$A$1:$A$8

検索条件範囲$A$9:$B$9

抽出範囲$A$10:$A$16

重複するレコードは無視するにチェックを入れる




で抽出されます。もしＡに数字が入っているのを無視したいのなら、Ｄ列に=IF(ISTEXT(A1),”○”,”×”)としてフィルタで抽出する際に除くようにします。Ｂ列が数字かどうかもチェックしたければ、ISNUMBER関数を使って同様に除くこともできます。




　抽出したデータを所定の位置に貼り付けます。




　Ｃ列の前に１つ列を挿入し、A1&B1で質問文であれば「山田10」というデータを作り、全行に複写します。




C’にも一端同じようにします。で、D’1に=SUMIF($C$1:$D$10,$C’$1,$D$1:$D$8)で入れると１件の場合はそのままの値が計算できますし、複数件の場合はその合計が計算されます。




　文字が入っているかをチェックしたければ先程の○×も条件に加えれば可能です。

スター

• go4649 2005/12/21 15:29:17

  関数で行いたいのです

takomaro2005/12/21 14:58:21

満足20pt

http://www.hatena.ne.jp/1

人力検索はてな

やはり複数行あったんですね。(^^;)

マクロで処理するしかないでしょう。

以下の手順で

①名前がランダムでとありますが一応戻せるようにA列に追加し行番号を追加(Data数分)。

例）

1--山田--10

2--鈴木--10

3--伊藤--20




②「データ(D)」-「並べ替え(S)」で

「優先されるキー」を「列2」

「2番目に優先されるキー」を「列3」としてソート

例）

5--伊藤--10

3--伊藤--20

1--山田--10




③以下のマクロを実行します。




Dim Xbef, Ybef, Xaft, Yaft, I

’

Sub Macro1()

Xbef = 2: Ybef = 1 ’元データの座標

Xaft = 6: Yaft = 1 ’抽出先の座標

Cells(Ybef, Xbef).Select

For I = 0 To 2 ’データの1つ目は複写

Cells(Yaft, Xaft + I) = Cells(Ybef, Xbef + I)

Next I

Ybef = Ybef + 1

’2つ目以降

Do Until Cells(Ybef, Xbef) = ””

Cells(Ybef, Xbef).Select

’列2と列3を比較

If Cells(Ybef, Xbef) = Cells(Yaft, Xaft) And Cells(Ybef, Xbef + 1) = Cells(Yaft, Xaft + 1) Then

Cells(Yaft, Xaft + 2) = Cells(Yaft, Xaft + 2) + Cells(Ybef, Xbef + 2)

Else

Yaft = Yaft + 1

For I = 0 To 2

Cells(Yaft, Xaft + I) = Cells(Ybef, Xbef + I)

Next I

End If

Ybef = Ybef + 1

Loop

End Sub

スター

• go4649 2005/12/21 15:37:38

  マクロなどではなく関数では無理でしょうか・・・？

  もっと簡単にできないでしょうか？

  再々質問するしかないですね・・・

  質問内容をもっと細かく書きます

  私の質問の仕方が悪いのでしょうか・・・

• その他の回答を読む

この質問へのコメント

• polu2005/12/21 16:34:20
  再質問する前に
  
  何故マクロを受け入れないのか明確にした方が良いです。
  
  単純に使い方が分からないのだとすれば、
  マクロの使い方を学習&質問した方が良いと思います。
  せっかく回答も貰っていますし、
  今後Excelを使用する上でも遙かに有用だと思います。
  ．．．余計なお世話ですが。
  
  質問の内容については、A’B’C’に表示する項目数が実行前に
  明らかでないのでかなり難しい(私には無理)です。
  並べ替えを間に何回か挟めば関数だけでもできるかもしれませんが．．．。
  
  以上おせっかいでした。
• きゃづみぃ2005/12/21 16:55:59
  Re:再質問する前に
  
  関数だけで やるなら別のセルに 取得したい条件を入れるような作業が必要となる。
  
• ootatmt2005/12/21 17:35:53
  クロス集計
  
  やっぱ、クロス集計にはピボットテーブル。
  いやなら、Accessでやればいいとおもぅよ。
• Baku77702005/12/21 17:52:10
  同じく再質問される前に
  
  　前回のキャンセルした質問にも、今回の質問にも書きましたが、Ａの「文字」という意味が、数値を入力されているなら除外するという意味か、単に文字が入力されているという意味なのかが分かりません。明記して下さい。
  　１つのセルに収まる関数だけでは不可能です。データの抽出（質問文でA’,B’のデータを作る方法）ができません。
  　ソートを掛けられ、作業用の列が設けられるなら可能ですが。ただし、これなら文字なのか数値なのかチェックはできません。
• takomaro2005/12/21 19:26:18
  ちなみに
  
  急いで作成したので手操作＋VBAとなってしまいましたが
  「Sub Macro1()」の直後に以下のVBAをコピペすれば全て自動で出来ます。
  
  ’ナンバリング
  Columns(1).Insert
  Xbef = 1: Ybef = 1 ’元データの座標
  Do
  Cells(Ybef, Xbef) = Ybef
  Ybef = Ybef + 1
  Loop Until Cells(Ybef, Xbef + 1) = ””
  ’ソート
  Cells(1, 1).Select
  Selection.Sort Key1:=Range(”B1”), Order1:=xlAscending, Key2:=Range(”C1”), Order2:=xlAscending, _
  Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin
  
  ただ特別な理由があってその他の手操作(ソートとか)なしでワークシート関数のみでとなるとちょっと思いつきません。
  

質問の情報

登録日時

2005-12-21 14:04:20

終了日時

--

回答条件

回答にURL必須 1人2回まで

この質問のカテゴリ

• コンピュータ
• 生活

この質問に含まれるキーワード

人気の質問

• 親族（実家）の犬が無駄吠えをしています。朝方に一時間くらい吠えているらしい。昼にも一時間くらい吠え続…匿名質問者1120時間前
• 東京都は山に四方を囲まれています。風水的にはどうですか？。匿名質問者11日前
• 誰か読んでくれませんか？ ゲームの話です アンダーテールっていうんですけど 話し相手が全然いないんです…yun_10241日前
• スマホ（アンドロイド）に、TypeAppを入れております。登録になっているメアドのいくつかを削除したいので…匿名質問者120時間前
• アスペルガー精神3級会社員男性(34歳独身)です。 元々眠りが浅いのに最近尚更深刻な夢や深く考え過ぎる夢を…hayakushinene16時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ