データの比較

質問

エクセルデータの「リストＡ（前日分)」と「リストＢ（当日分）」の２つのファイルがあります。
そのデータはどちらもオートフィルタで抽出されたデータで、「管理番号（数字が文字列として入力）」
「伝票番号」「金額」を含む複数の項目で構成されています。
「リストＡ（前日分)」と「リストＢ（当日分）」の「管理番号」「伝票番号」「金額」を比較して、

「管理番号」「伝票番号」「金額」が「リストＡ（前日分)」になくて「リストＢ（当日分）」にある
→→→新規

「管理番号」「伝票番号」「金額」が「リストＢ（当日分)」になくて「リストＡ（前日分）」にある
→→→解消

「伝票番号」「金額」が「リストＡ（前日分)」になくて「リストＢ（当日分）」にあり、かつ、
「管理番号」が「リストＡ（前日分)」にある
→→→処理なし

この「新規」「解消」「処理なし」のデータの内容を抽出したいのですが、どのようにしたらよいのかが
わかりません。他の方の質問と回答を基に関数やマクロで作ってみたのですがうまくいきませんでした。
毎日行う処理＆私以外の人も使うツールなのでわかりやすく正確なものにしたいのです。

皆様知恵を貸してください。お願いします。

回答No.3

n-jun · ベストアンサー

＞まず金額(2)が0のデータを抽出する
Sub　test()
　Dim　wb1　As　Workbook
　Dim　wb2　As　Workbook
　Dim　ws1　As　Worksheet
　Dim　ws2　As　Worksheet
　Dim　i　As　Long,　j　As　Long,　k　As　Integer
　Dim　v　As　Variant,　w　As　Variant

　Set　wb1　=　Workbooks("Book1.xls")
　Set　wb2　=　ThisWorkbook
　Set　ws1　=　wb1.Worksheets("Sheet1")
　Set　ws2　=　wb2.Worksheets("Sheet1")

　ws2.Range("A1:E1").Value　=　ws1.Range("A1:E1").Value
　ws2.Columns("A").NumberFormatLocal　=　"m""月""d""日"""
　ws2.Columns("B:C").NumberFormatLocal　=　"@"

　With　ws1
　　　　　　v　=　.Range(.Range("A2"),　.Cells(Rows.Count,　1).End(xlUp).Offset(0,　4)).Value
　End　With

　ReDim　w(1　To　5,　1　To　UBound(v,　1))
　For　i　=　1　To　UBound(v,　1)
　　　　　If　v(i,　5)　<>　0　Then
　　　　　　　　j　=　j　+　1
　　　　　　　　For　k　=　1　To　5
　　　　　　　　　　　　w(k,　j)　=　v(i,　k)
　　　　　　　　Next
　　　　　End　If
　Next
　ReDim　Preserve　w(1　To　5,　1　To　j)
　ws2.Range("A2").Resize(j,　5).Value　=　Application.Transpose(w)
　Erase　v,　w
End　Sub
で精一杯かな？参考になれば幸いですが。
あとは難しいっす。

お礼

いろいろ考えていただいてありがとうございます！
早速試してみますね＾＾

回答No.4

n-jun

＞まず金額(2)が0のデータを抽出する
>　　　　If　v(i,　5)　<>　0　Then
　　　　If　v(i,　5)　=　0　Then
訂正。

回答No.2

n-jun

＞「シートレイアウトで掲示」とはどういう風にすればよいのでしょうか？
回答者側にはシートにデータがどのように配置されているのか、
わかりません。
それをわかりやすく提示して頂きたいと思っての発言です。
近々の質問等を見て頂ければ、どんな感じかわかるかと。

＞エクセルデータの「リストＡ（前日分)」と「リストＢ（当日分）」の２つのファイルがあります。
同一ブックのシートの比較ではなく、別ブックのとあるシート毎の比較になるのでしょうか？

お礼

回答してくださる方々への配慮が足りませんでした。
申し訳ありません。。

＞同一ブックのシートの比較ではなく、別ブックのとあるシート毎の比較になるのでしょうか？
その通りです。
前日分のファイルが１つ、当日分のファイルが１つで、項目のレイアウトは前日と当日は同じです。今考えているのは、前日分と当日分を比較するための関数やマクロを取り入れた「比較」ファイルを作ることを考えています。

元データ（前日分・当日分）のシートレイアウトは
　　　　　日付　　管理番号　　伝票番号　　金額(1)　　金額(2)
　　　　　6/10 00020081 00123456 1000 0
6/11 00020081 00123456 1000 1000
このデータから、まず金額(2)が0のデータを抽出する（前日・当日どちらも）

「前日分」と「当日分」のデータを「比較」ファイルの中の
シートにコピー、貼り付け。

「新規」「解消」「処理なし」の判定は「管理番号」「伝票番号」
「金額(1)」を使って行う。
「
新規」「解消」「処理なし」のデータがそれぞれ抽出されるように
する。

これでわかっていただけましたでしょうか。。

回答No.1

n-jun

Ｅｘｃｅｌであればシートレイアウトで提示された方がいいかと。
あとマクロ（ＶＢＡ）は検討範囲内なのでしょうか？

お礼

回答ありがとうございます！

「シートレイアウトで掲示」とはどういう風にすればよいのでしょうか？

マクロ（ＶＢＡ）は検討範囲内です♪

会社の決まりで他のデータ比較ソフトなどをダウンロードや
インストールできないことになっているので、マクロなどを
使って自分で作るしかないのです（ＯＦＦＩＣＥは一式あります）