- ベストアンサー
データの並べ替えやカウント方法について
- データの並べ替えやカウント方法について教えてください
- 会社ごとに重複しないユニーク請求数のカウント方法やデータの並び替え方を教えてください
- ExcelやAccessを使用したデータの並び替えやカウント方法について教えてください
- reelee
- お礼率100% (3/3)
- その他MS Office製品
- 回答数3
- ありがとう数16
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
B2からI2までのセル範囲に，数字でA社の請求番号が記入されていたり空欄だったりするとして。 そこにある数字の種類は =COUNT(1/FREQUENCY(B2:I2,B2:I2)) で計算できます。
その他の回答 (2)
- layy
- ベストアンサー率23% (292/1222)
’セル内容を１つずつ編集します ’Ａ１を基準に、横１０列×縦２０列のセルの操作を繰り返す Public Sub AA() Dim W As String Dim X As Long Dim Y As Long I = 0 J = 0 Z = "" Sheets(1).Select Range("A1").Select For X = 1 To 10 For Y = 1 To 20 W = Cells(Y, X) If W = "" Or Len(W) = 0 Then セルに何もないときの処理 Else セルに何かあるときの処理 End If Next Y Next X MsgBox ("完了") End End Sub 応用できます。 体裁悪いのは、すみませんが勘弁願います。
お礼
ご回答ありがとうございます。 無事に実行できました。 引き継ぐ作業になるので、きちんとロジックを残しておきたいと思います。 助かりました！
- himajin100000
- ベストアンサー率54% (1660/3060)
SELECT COUNT(*) FROM( SELECT DISTINCT 請求NO FROM (SELECT 社名,請求NO1 As 請求NO From Abc Where 請求NO1 <> '' UNION ALL SELECT 社名,請求NO2 From Abc Where 請求NO2 <> '' UNION ALL SELECT 社名,請求NO3 From Abc Where 請求NO3 <> '' UNION ALL SELECT 社名,請求NO4 From Abc Where 請求NO4 <> '' ) WHERE 社名="A社"); A社の件数「3」を求めるSQL文 ---------------------------- ExcelよりはAccessで正規化までやっちゃったほうが今苦労しても後で活用しやすいかなと。 CSVにしてAccess 2007に取り込んで、一応できたことは出来たんだけど… ●イラついたので１を1に等直しているので、上記原文ママだと通らない(笑) Mimer SQL-2003 Validator http://developer.mimer.com/validator/parser200x/index.tml#parser ●あまり実装依存にはしたくないので一応チェックしようとしたが、 カラムやテーブルの名前に日本語等が含まれるとエラーになってしまうので 実際の検証では直してから検証している。 ●AccessではCount(Distinct column_name)の構文が使えないので http://blogs.msdn.com/access/archive/2007/09/19/writing-a-count-distinct-query-in-access.aspx 多少長い書き方にならざるを得ない ●Validatorによれば、どうやら上記の書き方はCore SQL-2003外の F591, "Derived tables" という奴を使ってしまっているらしい。何とか回避策はないだろうか？
お礼
早速のご回答ありがとうございます。 ACCESSの方法を試してみようとしたのですが、複雑でわたしの力では最後まで いきつくことができませんでした。。。涙 繰り返し作業だと、ACCESSがいいと思うので、時間をとって再チャレンジ しようと思います。 ありがとうございました。
お礼
ご回答ありがとうございました！ 引き継ぐ作業だったので、今後のメンテナンスなども考慮し、 一番簡単な方法をベストアンサーにさせていただきました。 助かりました。