将一个表的数据转移至另一个表——两朵玫瑰哦~

ashengz86

老师们
数据文件.xlsx：是我想要将数据导出到目标文件.xlsx的数据存储文件
目标文件.xlsx：这个表是我要最终得到使用的表，需要将数据文件.xlsx的数据导入到这个表

我想按照 数据文件.xlsx的D列 与 目标文件.xlsx的A列 去匹配号码，将数据文件.xlsx的G和H列自动导入到 目标文件.xlsx的CD列，并且目标文件.xlsx的同行的F列自动填入“U”，请看目标文件.xlsx的sheet2的效果样子

注：
可以的话请弹出一个对话框，让我去选择 目标文件.xlsx，因为实际中文件夹下会有很多文件
而且数据量不仅仅是这11行，会有很多，而且不连续！
由于目标文件.xlsx这个表的文件名每次都会变，并且不希望在此表中存在任何公式，因此不想通过写vlookup实现

请老师们帮忙
不胜感激！

zax010

Sub zz()
    Dim d, arr
    Set d = CreateObject("Scripting.Dictionary")
    Workbooks.Open (ThisWorkbook.Path & "\数据文件.xlsx")
    arr = ActiveWorkbook.Sheets(1).Range("D3").CurrentRegion
    ActiveWorkbook.Close False
    For i = 1 To UBound(arr)
        d(arr(i, 1)) = Array(arr(i, 4), arr(i, 5))
    Next
    For i = 2 To [a65536].End(3).Row
        If Cells(i, 6) = "" Then Cells(i, 3).Resize(1, 2) = d(Cells(i, 1).Value)
    Next
End Sub

zax010

>>>>>>>>>>>>>>>>>>>>

help1.rar (26.17 KB, 下载次数: 6)

2014-12-18 12:38 上传

点击文件名下载附件

ashengz86

zax010 发表于 2014-12-18 12:38
>>>>>>>>>>>>>>>>>>>>

老师
我希望是在数据文件.xlsx里有个按钮点击进行转移，而且最好有个对话框能够让我选择文件夹下的文件——去选择目标文件.xlsx，在转移的同时，目标文件.xlsx同行的F列自动填入U，附件里请看sheet2，那里有想要的最终效果

ashengz86

老师们！求帮助！附件啥都有，求帮助啊~