|
>比較した結果、book.xlsのA列にある物品コードまでbook.xlsのA列の最終に追加
それはつまり、全データで一致するものが見当たらない、ということを示しています。
もし前後にスペースがあって、一致しないということが分かっているなら
With ActiveWorkbook.Worksheets("Sheet1")
For Each C In .Range("A2", .Range("A65536").End(xlUp))
C.Value = Trim(C.Value)
Next
Ad = .Range("A2", .Range("A65536").End(xlUp)).Address
End With
For Each C In ObjSht1.Range("A2", ObjSht1.Range("A65536").End(xlUp))
C.Value = Trim(C.Value)
Next
With ObjSht1.Range("A2", ObjSht1.Range("A65536").End(xlUp)).Offset(, 1)
.Formula = "=MATCH($A2,[" & Dir(buf2) & "]Sheet1!" & Ad & ",0)"
For Each C In .SpecialCells(3, 16)
ActiveWorkbook.Worksheets("Sheet1").Range("A65536") _
.End(xlUp).Offset(1).Value = C.Offset(, -1).Value
Next
.ClearContents
End With
というようにスペースを削除します。どちらか一方でよければ、他方のループ処理
部分は不要になります。データの途中にスペースが含まれていないなら、Replaceで
取り除くこともできますね。
|
|