２つの表の異なる行をマクロで抽出し、挿入する

質問

月の１０日に商品納入明細を使ってトレース表を作成し、２０日に更新された納入明細で新規納入先の行を確認して１０日に作成したトレース表に挿入して更新しています。マクロを使って１０日の納入明細に２０日の納入明細の異なる行のみ抽出して挿入することは出来ないでしょうか？現在は２つの表を見比べて異なる行を挿入していますが非常に時間と労力が掛かります。宜しくお願いします。

回答No.1

kmetu · ベストアンサー

どのセルを比較しているのか不明ですが
たとえば、シート1のA列とシート2のA列を比較して
異なる行をシート2からシート１に追加します。

Sub test()
Dim mRange As Range, sRange As Range
Dim firstAddress As String
Dim AddFlg As Boolean

With Worksheets(2)
For Each sRange In .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
AddFlg = True
With Worksheets(1).Range("A1:A" & Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row)
Set mRange = .Find(sRange.Value, LookIn:=xlValues)
If Not mRange Is Nothing Then
firstAddress = mRange.Address
Do
AddFlg = False
Set mRange = .FindNext(mRange)
If mRange Is Nothing Then Exit Do
Loop Until mRange.Address = firstAddress
End If
End With
If AddFlg = True Then
.Rows(sRange.Row).Copy
Worksheets(1).Rows(Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial
End If
Next
End With
End Sub

お礼

ありがとうございました。
マクロ実施してみます。

回答No.3

cistronezk

＞現在は２つの表を見比べて異なる行を挿入していますが非常に時間と労力が掛かります。

マクロで苦労されるのもよい勉強となりますが、作業列を作れば簡単に差分が分かります。
たとえば複数列（Ａ、Ｂ列）で２表の違いを判断しているとします。

（１）１０日納品明細表シートに作業列（例、Ｋ列）を用意し、そこに「=A1&B1」を全行にフィルします。
（２）２０日納品明細表シートに作業列（例、Ｋ列）を用意し、そこに「=COUNTIF(１０日納品明細表シート!K:K,A1&B1)」を全行にフィルします。
（３）２０日納品明細表シートのＡ－Ｋ列を選択して「データ」－「オートフィルタ」をかけます。
（４）Ｋ列が０のものを抽出して１０日納品明細表シートにコピペします。

以上です。

お礼

ありがとうございました。
実施してみます。今まで手動で非常に時間が掛かっていました。

回答No.2

imogasi

>出来ないでしょうか
出来るとおもう。しかし質問が丸投げで、コードを書いてださい的な
内容ではないか。このコーナーの規約違反のはず。
それに（簡潔なポイントを押さえた）模擬実例も挙げないで、コードなどかけない。
（１）Find法＋挿入　＃１のようなやり方
（２）両シートをソートー（マッチングして）マージ法。第３のシートに結果を出すから、挿入処理は要らない。
（３）総なめ法＋挿入
私なら（２）でやる。
まあVBAも中級以上のプログラム的（レコード処理のロジックを考える必要がある）課題なので質問者には無理だろう。

お礼

すいません。
初心者でうまく困っている内容を記載できませんでした。
すいません。