@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
私は何も知らないことを知っている (ソクラテス)
