空白セル（データ）を含むマッチングについて

はじめまして。vbaや関数などで
a列　ｂ列．．c列　　．．．　
01　　△ 02　　△ 05 △
といったexcelデータで空白の列があります。
それを重複を含む一覧よりマッチチングしたら
フラグを立てたいのです
１：ｎです。
関数でcontif,vbaでやってみましたがうまくいきません。
初心者ですみませんが誰がおしえていただけないでしょうか？
よろしくお願いします。

No.5 ベストアンサー 回答者： nishi6 回答日時： 2004/06/11 20:31

[Sheet1]

　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　・・・　Ｚ　　ＡＡ
１　01　　05　　　 　06　　　　 ・・・　09　　TRUE

[Sheet2]
　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　・・・　Ｚ
１　01　　01　　01　　　　　02　・・・
２　01　　05　　　 　01　　　　 ・・・　09
３　01　　05　　　 　06　　　　 ・・・　09
４　01　　01　　01　　　　　02　・・・

の状態を想定します。

Sheet1のAA1にユーザー定義関数をセットします。式は、
AA1: =fn_HaniHikaku(A1:Z1,Sheet2!A1:Z4)

最初の解答とが違い、ユーザー定義関数で指定範囲全てを調べています。
第１引数と第２引数の列数は同じとしています。
第１引数は調べる元のセル範囲、第２引数は一覧のセル範囲。見つからなければFalseが表示されます。


下のユーザー定義関数は標準モジュールに貼り付けます。


Function fn_HaniHikaku(Rng1 As Range, Rng2 As Range)
　　Dim rg As Range　　　　 '// セル
　　Dim rw As Long　　　　　'// 行カウンタ
　　Dim col As Integer　　　'// 列カウンタ
　　Dim judge As Boolean　　'// 判定

　　For rw = 1 To Rng2.Rows.Count
　　　　judge = True
　　　　For col = 1 To Rng2.Columns.Count
　　　　　　'// 行rwの各要素を比較する
　　　　　　If Rng1.Cells(1, col) <> Rng2.Cells(rw, col) Then
　　　　　　　　'// 一つでも違えば不一致
　　　　　　　　judge = False
　　　　　　　　Exit For
　　　　　　End If
　　　　Next
　　　　　　'// 1行でも全要素が一致すればいい
　　　　　　If judge = True Then
　　　　　　　　Exit For
　　　　　　End If
　　Next
　
　　'// 結果を返す
　　fn_HaniHikaku = judge

End Function

この回答へのお礼

大変お役にたちました。
こんなやり方（考え方）もあるんですね。
ありがとうございました。

お礼日時：2004/06/14 00:50

No.4 回答者： nishi6 回答日時： 2004/06/10 22:42

　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　・・・　Ｚ　　ＡＡ

１　01　　05　　　　06　　　　 ・・・　09　TRUE
２　01　　01　　01　　　　　02　・・・　　　　0
３　01　　05　　　　01　　　　 ・・・　09　　0
４　01　　05　　　　06　　　　 ・・・　09　　1
５　01　　01　　01　　　　　02　・・・　　　　0

質問の意味を掴むのが一番難しいのですが・・・

上のようになった表で、１行目Ａ列～Ｚ列の内容が
２行目から５行目でＡ列～Ｚ列と全て等しいなら『1』をＡＡ列に書いてみます。
AA列の２行目以下でどこかに『1』があれば、一致する行があることになります。

力技で各セルをセル単位に照合すればできますが、ばかばかしいので、ユーザー定義関数を作ってみます。

AA2セルに　=fn_HaniHikaku($A$1:$Z$1,A2:Z2) として、AA3以下はこれをコピーします。
（Ｚ列まで使ったのは例です）

AA1セルに　=IF(SUM(AA2:AA5)>0,TRUE,FALSE)　とします。


質問の意味を捉えていればいいんですが・・・
質問に書いてあることをそのままコードに書いたつもりです。参考にして下さい。


Function fn_HaniHikaku(Rng1 As Range, Rng2 As Range)
　　Dim rg As Range　　　　 '// セル
　　Dim col As Integer　　 '// 列カウンタ
　　Dim judge As Integer　　'// 判定

　　judge = 1
　　For col = 1 To Rng1.Columns.Count
　　　　'// 各要素を比較する
　　　　If Rng1.Cells(1, col) <> Rng2.Cells(1, col) Then
　　　　　　'// 一つでも違えば不一致
　　　　　　judge = 0
　　　　　　Exit For
　　　　End If
　　Next
　　
　　'// 結果を返す
　　fn_HaniHikaku = judge

End Function

この回答への補足

ありがとうございます。検索元のデータは別シートで
対象範囲のシートからマッチングして結果を返したいのですがコードはどのようにかえればよいのでしょうか？

補足日時：2004/06/11 00:24

No.3 回答者： imogasi 回答日時： 2004/06/10 09:09

出来ない（「複雑でいやになっちゃう」も含めて）と思います。

下記をご参考にしてください。
（１）エクセル関数では、セルの、１つの文字列にしないと、それを対象にしてしか検索できない。
（２）セルの文字列の結合において「各列定幅（桁）性」を持たせないと比較ができない。A列「AB」B列「C」を結合して「ABC」、A列「A」B列「BC」も結合して「ABC」。両者が等しくなっては（一般的には）困るので、例えばA列は固定４桁、B列は固定３桁とか、合理的に各列の桁数を決めて結合しないといけない。AB・・C・・（・はスペースなど）後者ではA・・・BC・のように。
しかしフィールドが多くなるとそれを作る関数式が結構面倒である。
同じく「検索のために指定する値」もそのフィールド桁数ルールを守って入力しないといけない。結構神経を使う。
（３）空白列の存在に対処するのも（２）と似ていて
全行と決まっておれば、空白の場合は何桁かを決める必要がある。
（４）救いの手は、簡単なVBAを使い、ユーザー関数を作る
ことでしょう。
Function ketugou(a)
r = a.Row
l = Array(4, 3, 5, 3, 4)
sl = 0
For i = 0 To UBound(l)
sl = sl + l(i)
Next i
s = String(sl, "-")
'----
p = 1
For i = 0 To UBound(l)
Mid(s, p, Len(Cells(r, i + 1))) = Cells(r, i + 1)
p = p + l(i)
Next i
ketugou = s
End Function
例えば
A列　　　B列　　　C列　　　D列　　　E列
ab　　　（空白）xyz　（空白）　　ijk
cdf　　（空白）v 　（空白）　　jkll
43534
最下行の桁数で桁数幅を考えた時
F1に=ketugou(A1)と入れると
ab-----xyz-----ijk-
F2に=ketugou(A2)と入れると
cdf----v-------jkll
がセットされると言う風に。（スペースでは桁が判りにくいので、判りやすいように－にした）
（５）後はF１をF2セル以下複写すればF列に望みの
検索される方の文字列が出来る。
（６）ここを対象にしてVLOOKUP関数で検索する。
しかしVlookup関数の検索される列は最左列でないといけなかったと思うので、取りたい情報（例えば会社名）はF列より右にあるかF列をA列（列挿入した後のA列）にもってくる必要がある。
Match関数ならそのような心配はない。

No.2 回答者： papayuka 回答日時： 2004/06/10 01:11

スペースとは、半角又は全角の文字が入っているって事？

０１△０５△△０６△０９　は　「０１　０５　　０６　０９」？

検索範囲のデータはそれぞれ別の列に入ってる？

A1に０１、B1は全角１文字、C1は０５、D1は全角１文字・・・・
それとも
A1に０１、B1は空、C1は０５、D1は空・・・・

とりあえずデータを結合してMatch関数やVLOOKUP関数を使えば良いのでは？

検索範囲の列を結合したデータを作る。

=A1&B1&C1&D1&E1

もし空白文字を含まない列を含むなら結合データ作成を工夫する。

=if(A1="","　",A1) & if(B1="","　",B1) & ......

そのうえで、検索データのセルとマッチさせる。

=Match(検索データ,検索範囲,FALSE)

No.1 回答者： papayuka 回答日時： 2004/06/09 23:58

ちょっと意味が掴み難いです。

何処と何処をどうマッチさせ、どんな結果を得たいのかサンプル値でも良いので実例を上げた方が良いのでは？

この回答への補足

わかりにくくてすみません。
このようなことがしたいのです。

検索データ：０１△０５△△０６△０９
==========================================
検索範囲：
０１△０１△０１△０２
０１△０５△△０１△０９
０１△０５△△０６△０９
０１△０１△０１△０２
　　　　.
.
.
=========================================
結果
データがマッチしからtrueやなければflase
を返す

excel関数でなんとかしたいです。

検索データにはスペースを含みます。
△はスペースです。
探索先(範囲）には検索したいデータは必ずあるのが前提ですがなれればエラーを返すようにしたいです（優先度は低いです）
また検索範囲内でデータ重複があります。
マッチして時点でtrueが返ればいいです。

補足日時：2004/06/10 00:17