返回列表 上一主題 發帖

[發問] 利用一個巨集,複製A檔案到B檔案問題

[發問] 利用一個巨集,複製A檔案到B檔案問題

爬了一下先前的文章,也去YouTube看了一些複製的教學影片
都是看到同個EXCEL複製到不同的資料表
沒看到類似的應用 ,不知道如何利用一個檔案假設是C檔案
去搜尋A檔案某欄位與B檔案某欄位,一樣的 複製去B檔案
A檔案檔名oldB檔案檔名FMC
發問.png
2015-10-24 11:02


如圖....如果A檔案B欄位等於B檔案B欄位
則將A檔案C、D、F、G欄位複製到B檔案C、D、F、G欄位

欄位都從第7行開始 B7 C7 D7 F7 G7

回復 3# lpk187


    感謝大大的指點!以及詳細的註解!
自己爬的文都是使用Range(欄位).select         Range(欄位).copy    Activesheet.Paste 的方式~
又多學了一招

TOP

回復 5# blunt


    FMC是我自己設的資料表名稱拉~~~~那行的意思應該是打開A檔案的"FMC"資料表
如果你資料表示預設的應該就是sheet1

TOP

回復 3# lpk187

請問一下VBA有辦法做到貼上保留來源格式嗎?(來源欄寬、高)

TOP

回復 8# lpk187


    感謝大大的提供...實際Run過之後才真的感覺沒什麼意義...
真不好意思!也讓我多學到一課!

TOP

本帖最後由 v03586 於 2015-12-13 00:53 編輯

回復 8# lpk187


    請問一下大大...最近又拿起這個巨集自己修改一下..
將別樣資訊帶入報表中~只是有一個疑問是成功複製過去了...但如何讓他指定去 R S T U 欄位呢
目前執行後 會再J欄旁邊K欄位依序往右邊存放
R.jpg
2015-12-13 00:40

C.jpg
2015-12-13 00:51

A檔案內容如下圖~~~
BD.jpg
2015-12-13 00:53
  1. Public Sub ex()
  2.     Dim bSh As Worksheet, aSh As Worksheet
  3.     Dim ARng As Range, BRng As Range
  4.     mPath = ThisWorkbook.Path & "\" '設定路徑為和C檔案同路徑
  5.     bData = "FMC.xls" '設定B檔案的完整名稱(報表)
  6.     aData = "吸嘴Table.xls" '設定A檔案的完整名稱(Table)
  7.     Set aSh = Workbooks.Open(mPath & aData).Worksheets("Rubber Tip") '設定aSh是A檔案的FMC工作表物件,打開A檔案(Table)
  8.     Set bSh = Workbooks.Open(mPath & bData).Worksheets("FMC") '設定bSh是B檔案的FMC工作表物件,打開B檔案(報表)
  9.         For Each ARng In aSh.Range("A2:A" & aSh.Cells(65535, 2).End(xlUp).Row) 'ARng為A檔案.Worksheets("FMC")的B欄(Table)
  10.             For Each BRng In bSh.Range("J7:J" & bSh.Cells(65535, 2).End(xlUp).Row) ''BRng為B檔案.Worksheets("FMC")的B欄(報表)
  11.                 If ARng.Value = BRng.Value Then
  12.                     BRng.Offset(, 1) = ARng.Offset(, 1) 'B欄
  13.                     BRng.Offset(, 2) = ARng.Offset(, 2) 'C欄
  14.                     BRng.Offset(, 3) = ARng.Offset(, 3) 'D欄
  15.                     BRng.Offset(, 4) = ARng.Offset(, 4) 'E欄
  16.                 End If
  17.             Next
  18.         Next
  19. '        Workbooks(bData).Close True '關閉B檔案
  20.         Workbooks(aData).Close True '關閉A檔案
  21. End Sub
複製代碼
請問大大如何修改呢?

TOP

        靜思自在 : 滴水成河。粒米成蘿,勿輕己靈,勿以善小而不為。
返回列表 上一主題