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

Platinum Contributor

Sep 18, 2022

VBAなし

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

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

Forum Discussion

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