返回列表 上一主題 發帖

[發問] 請問VBA可以做到兩檔案比對後再產生另一檔案的比對結果嗎?

vocolboy

帖子
2 
主題
1 
精華
0 
積分
21 
點名
0  
作業系統
xp 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2013-7-18 
最後登錄
2018-5-22 
1# 跳轉到 »
發表於 2013-7-25 14:47 | 顯示全部帖子
本帖最後由 vocolboy 於 2013-7-25 14:48 編輯

回復 1# happycoccolin

我也是剛學的不能下載付件直接從你上述的寫

Sub 比對()
Set d = CreateObject("Scripting.Dictionary")          '字典
With Workbooks("A.xls").Sheets(1)                       'with 報名名稱.工作表名稱
  For Each a In .Range(.[E2], .[E65536].End(xlUp))
   d(a & "") = Array(a.Offset(, -4).Value)
  Next
End With
With Workbooks("B.xls").Sheets(1)                                       
  For Each a In .Range(.[J2], .[J65536].End(xlUp))
    a.Offset(, 1).Resize(, 1).Value = d(a & "")
  Next
End With
End Sub


這個結果並不會產生到C新的上
他會match在B裡面
我想這只是個複製貼上小問題@@

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題