データテーブルとデータテーブルの完全一致を突合する方法を教えてください。製品の検品に利用したいです。

Occasional Visitor

A表のデータとB表のデータの完全一致を突合する方法を教えてください。完全一致条件は①データの内容一致②順序の一致③データ数の一致

 

1 Reply

@muchan 

VBAなし

MATCH 関数

 

VBAで

 

sub example()
Dim Ber1 As Range
Dim Ber2 As Range
Found Dim As Range
Dim such value
Set Ber1 = Sheets("Sheet1").Range("A:A").SpecialCells(xlCellTypeConstants)
Set Range2 = Sheets("Sheet2").Range("G:G")
For Each searchValue In Range1
Set found = Calc2.Find(searchValue, , , xlWhole) 'Search, whole term only
If Not found Is Nothing Then 'if found
Found.Offset(0, 1).Copy searchValue.Offset(0, 1) 'Copy value
found.Offset(0, 1).Interior.Color = vbGreen 'optional: found values green to mark
'Else
found nothing
End If
Set gef = Nothing
Next search value
Set Calc1 = Nothing
Set Ber2 = Nothing
end sub

 

VBA コードはインターネットからのもので、残念ながらどちら側から指定すればよいかわかりません。

 

この例では、両方の日付が同じブックにあると想定しています。 比較値を他のワークブックから取得する場合、またはこれらも開く場合は、それに応じてコードを変更する必要があります。

 

このテキストの著者は、この言語を知りません (知りたくても)。 テキストには、文法上または表現上のエラーが含まれている可能性があります。

 

この情報がお役に立てば幸いです。

ニコリノDE

私は何も知らないことを知っている (ソクラテス)