- 帖子
- 77
- 主題
- 30
- 精華
- 0
- 積分
- 110
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2013-7-14
- 最後登錄
- 2018-10-3
|
發問∶請各位高手指導修正
請各位指導一下我哪寫錯了--------
在二份資料中(以相同工作頁為例)比對客戶編號與下單者同時符合時，在第一份資料符合資料的欄位將第二份資料的配送地回寫！
例如：客戶編踸22888060是王大二下單的，比對符合後，就將配送地-台北回寫在 第一份資料的王大二 欄位後面！
客戶編號 訂單編號 公司 下單者 客戶編號 下單者 配送地
22888060 106917613 大勝貿易 王大二 台北 22888060 陳甲子 新竹
23659070 106917615 來來行 陳甲子 22888060 王大二 台北
23659070 林中中 台中
23659070 陳甲子 台南
Sub aa()
Dim rng(1 To 6), E As Range
Set rng(1) = Sheets(1).Range("A2")
Set rng(2) = Sheets(1).Range("G:G")
Set rng(3) = Sheets(1).Range("H:H")
Do While rng(1) <> ""
Set rng(3) = rng(2).Find(rng(1), lookat:=xlWhole)
If Not rng(3) Is Nothing Then
Set rng(4) = rng(2).Offset(, 1)
For Each E In rng(4)
If rng(1) = E Then
rng(1).Offset(, 4).Value = E.Offset(, 1)
End If
Next
End With
End If
'
'
Loop
End Sub |
-
-
測試.rar
(5.97 KB)
|
發表於 2014-1-24 20:52
| 
