不同欄位複製到另一工作表

各位大大,你好

因為我每次入存庫都要由網上下載一個空白的模板重新輸入資料, 如果我想從"Inventory(test)" 的檔案複製資料到"Inventory-12-29-16-12blank"這個檔案, 但當中有一些欄位名稱次序是不同的, 我只做到相等名稱可以複製, 但如果要做到完全對應,應怎樣修改呢? 還有一點, 如果我想程式寫成, 可自行選取剛下載空白模板應怎樣修改呢??

謝謝

INVENTORY.rar (20.16 KB)

樓主熱帖

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

2^#

發表於 2021-1-20 23:52 | 只看該作者

回復 1# mdr0465

有空幫我試試看是不是這樣感謝

Public Sub 跨工作簿練習()
Application.ScreenUpdating = False
Arr = [A1].CurrentRegion
Workbooks.Open ThisWorkbook.Path & "\Inventory-12-29-16-12blank.xlsx"
Workbooks("Inventory-12-29-16-12blank.xlsx").Activate
For X = 2 To UBound(Arr)
Cells(X, 1) = Arr(X, 1)
Cells(X, 2) = Arr(X, 3)
Cells(X, 6) = Arr(X, 6)
Cells(X, 10) = Arr(X, 10)
Cells(X, 18) = Arr(X, 18)
Cells(X, 19) = Arr(X, 19)
Next X
Workbooks("Inventory-12-29-16-12blank.xlsx").Close True
Application.ScreenUpdating = True
End Sub

複製代碼

TOP

mdr0465

中學生 Rank: 2

帖子: 163
主題: 45
精華: 0
積分: 246
點名: 28
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-12-7

3^#

發表於 2021-1-21 09:23 | 只看該作者

回復 2# 軒云熊

軒師兄,你好:

謝謝你的回覆和幫忙, 但有一些問題想請你再幫忙

因為我每次都要下載最新的版本(Inventory-12-29-16-12blank)輸入資料, 而A列的名稱有可能會改變,能否做到A欄名稱改變了, 原有固定已輸入模板的資料(Inventory(test))可以隨著最新版本的格式而自動配對正確位置呢?

還有一樣是因為程式是預設特定的檔案名稱, 請問能否做到一個功能類似開啟檔案模式一樣,每次都可以自行選取某一個檔案來複製資料呢??

萬分感激幫忙, 謝謝

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

4^#

發表於 2021-1-21 13:21 | 只看該作者

回復 3# mdr0465

用軒大的程式修改
Sub ex1()
Dim d As Object, X%, Y%
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
Arr = [a1].CurrentRegion
For Each a In Range([a1], [a1].End(2))
d(a.Value) = a.Column '紀錄"Inventory(test)"各名稱的欄位值
Next
Workbooks.Open ThisWorkbook.Path & "\Inventory-12-29-16-12blank.xlsx"
Workbooks("Inventory-12-29-16-12blank.xlsx").Activate
For X = 2 To UBound(Arr)
For Y = 1 To [a1].CurrentRegion.Columns.Count
Cells(X, Y) = Arr(X, d(Cells(1, Y).Value)) '利用"Inventory-12-29-16-12blank"的名稱判斷"Inventory(test)"資料欄位值
Next Y
Next X
Workbooks("Inventory-12-29-16-12blank.xlsx").Close True
Application.ScreenUpdating = True
End Sub

還有一樣是因為程式是預設特定的檔案名稱, 請問能否做到一個功能類似開啟檔案模式一樣,每次都可以自行選取某一個檔案來複製資料呢??
-->是程式自行開啟Inventory(test)再將資料複製於Inventory-12-29-16-12blank嗎??

TOP

mdr0465