|
Kein さんレスありがとうございます。
エラートラップはなしにして・・・
buf2 = Application.GetOpenFilename("*.xls,*.xls")
If buf2 = "False" Then Exit Sub
Workbooks.Open buf2
Set ObjBook1 = ActiveWorkbook
With ActiveWorkbook.Worksheets("DS桑名")
Ad = .Range("A2", .Range("A65536").End(xlUp)).Address
End With
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
ObjBook1.Close True
Set ObjBook1 = Nothing
ObjSht1.Application.ActiveWorkbook.Close False
Set ObjSht1 = Nothing
なぜか項目に同じ内容がかさなってでてきてしまうんですよね・・・・
なぜなんでしょう・・・
右側の空白をなくすVBAってありませんでしたでしょうか??
LなんとかとかRなんとかってのがあった気がするんですが・・・
それを利用すると明確になるんでしょうか??
|
|