- 帖子
- 231
- 主題
- 55
- 精華
- 0
- 積分
- 293
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- KEELUNG
- 註冊時間
- 2010-7-24
- 最後登錄
- 2018-8-28
|
你好：
小弟疏失將總表及123二者
顛倒了。
請再重試一次
Sub aa()
Dim mDic As Object
Dim mWk1 As Workbook
Dim mSht1 As Worksheet
Dim mRng As Range
Dim E As Range
Set mDic = CreateObject("Scripting.Dictionary")
Set mWk1 = Workbooks("123")
With mWk1
Set mSht1 = .Worksheets(1)
With mSht1
Set mRng = .Range("a2:a" & .[a65536].End(xlUp).Row)
End With
For Each E In mRng
If mDic.Exists(E.Value) = False Then
mDic(E.Value) = E.Offset(, 1).Value
End If
Next
End With
With Workbooks.Open(ThisWorkbook.Path & "\" & "總表" & ".xls")
With Sheets(1)
For Each E In .Range(.[b2], .[b2].End(xlDown))
E.Offset(, 1) = mDic(E.Value)
Next
End With
.Close
End With
End Sub |
|
發表於 2011-9-1 06:32
| 
