- 帖子
- 193
- 主題
- 29
- 精華
- 0
- 積分
- 222
- 點名
- 0
- 作業系統
- Windows7
- 軟體版本
- OFFICE2013
- 閱讀權限
- 20
- 註冊時間
- 2015-9-18
- 最後登錄
- 2023-4-29
|
本帖最後由 v03586 於 2015-12-13 00:53 編輯
回復 8# lpk187
請問一下大大...最近又拿起這個巨集自己修改一下..
將別樣資訊帶入報表中~只是有一個疑問是成功複製過去了...但如何讓他指定去 R S T U 欄位呢
目前執行後 會再J欄旁邊K欄位依序往右邊存放
A檔案內容如下圖~~~
- Public Sub ex()
- Dim bSh As Worksheet, aSh As Worksheet
- Dim ARng As Range, BRng As Range
- mPath = ThisWorkbook.Path & "\" '設定路徑為和C檔案同路徑
- bData = "FMC.xls" '設定B檔案的完整名稱(報表)
- aData = "吸嘴Table.xls" '設定A檔案的完整名稱(Table)
- Set aSh = Workbooks.Open(mPath & aData).Worksheets("Rubber Tip") '設定aSh是A檔案的FMC工作表物件,打開A檔案(Table)
- Set bSh = Workbooks.Open(mPath & bData).Worksheets("FMC") '設定bSh是B檔案的FMC工作表物件,打開B檔案(報表)
- For Each ARng In aSh.Range("A2:A" & aSh.Cells(65535, 2).End(xlUp).Row) 'ARng為A檔案.Worksheets("FMC")的B欄(Table)
- For Each BRng In bSh.Range("J7:J" & bSh.Cells(65535, 2).End(xlUp).Row) ''BRng為B檔案.Worksheets("FMC")的B欄(報表)
- If ARng.Value = BRng.Value Then
- BRng.Offset(, 1) = ARng.Offset(, 1) 'B欄
- BRng.Offset(, 2) = ARng.Offset(, 2) 'C欄
- BRng.Offset(, 3) = ARng.Offset(, 3) 'D欄
- BRng.Offset(, 4) = ARng.Offset(, 4) 'E欄
- End If
- Next
- Next
- ' Workbooks(bData).Close True '關閉B檔案
- Workbooks(aData).Close True '關閉A檔案
- End Sub
|
|
發表於 2015-10-24 11:08
| 
