データの並べ替え、または並べ替えなくてもカウントできる方法があれば、教

質問

データの並べ替え、または並べ替えなくてもカウントできる方法があれば、教えてください。
下記のようなデータについて、同一会社の請求NOが同じものは重複カウントせず、
請求数を計算したいと思っています。

社名　　請求NO１　　請求NO２　　請求NO３　請求NO４
A社　　　1110　　　　1115　　　　1110　　　1500
B社　　　1115　　　　1112　　　　
C社　　　1200　　　
D社　　　1111
E社　　　1110　　　　1112　　　　1500

会社ごとに重複しないユニーク請求数のカウント方法、または、
下記のように並び替える方法を教えていただけませんか？

社名　　請求NO
A社　　　1110
A社　　　1115　　　　
A社　　　1110
A社　　　1500
B社　　　1115
B社　　　1112　　　　
C社　　　1200　　　
D社　　　1111
E社　　　1110
E社　　　1112
E社　　　1500

方法はEXCELでもACCESSでも大丈夫です。
よろしくお願いします。

回答No.3

keithin · ベストアンサー

B2からI2までのセル範囲に，数字でA社の請求番号が記入されていたり空欄だったりするとして。
そこにある数字の種類は
=COUNT(1/FREQUENCY(B2:I2,B2:I2))
で計算できます。

お礼

ご回答ありがとうございました！
引き継ぐ作業だったので、今後のメンテナンスなども考慮し、
一番簡単な方法をベストアンサーにさせていただきました。
助かりました。

回答No.2

layy

’セル内容を１つずつ編集します
’Ａ１を基準に、横１０列×縦２０列のセルの操作を繰り返す

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

応用できます。
体裁悪いのは、すみませんが勘弁願います。

お礼

ご回答ありがとうございます。
無事に実行できました。
引き継ぐ作業になるので、きちんとロジックを残しておきたいと思います。
助かりました！

回答No.1

himajin100000

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がいいと思うので、時間をとって再チャレンジ
しようと思います。
ありがとうございました。