[發問] 如何複製工作表一的所有資料至表二的不同欄位

帖子: 20
主題: 6
精華: 0
積分: 76
點名: 0
作業系統: win7
軟體版本: sp1
閱讀權限: 20
註冊時間: 2012-2-3
最後登錄: 2025-8-27

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-8-3 21:53 | 顯示全部帖子

[發問] 如何複製工作表一的所有資料至表二的不同欄位

各位先進好..
  以下有個檔,用函數的話,是可以解決此問題,但因資料龐大,計算較慢,而想用vba解決
  1.表一的資料列位是固定的
  2.表二的列位,會因廠商忽然改變列位,排列順序會不同
  3.希望能在表二變動列位時..能把表一的資料複製到表二
  謝謝各位先進

test1.rar (13.8 KB)

樓主熱帖

帖子: 20
主題: 6
精華: 0
積分: 76
點名: 0
作業系統: win7
軟體版本: sp1
閱讀權限: 20
註冊時間: 2012-2-3
最後登錄: 2025-8-27

2^#

發表於 2017-8-4 18:09 | 顯示全部帖子

本帖最後由 hungrn 於 2017-8-4 18:11 編輯

版主好
Cells(2, i).Resize(.Rows.Count) = .Value
我改成sheets("工作2").Cells(2, i).Resize(.Rows.Count) = .Value
就可正確執行了..謝謝
請問是否有不須加入名稱的寫法..?

帖子: 20
主題: 6
精華: 0
積分: 76
點名: 0
作業系統: win7
軟體版本: sp1
閱讀權限: 20
註冊時間: 2012-2-3
最後登錄: 2025-8-27

3^#

發表於 2017-8-7 22:59 | 顯示全部帖子

謝謝3位版主的指導...
CreateObject("Scripting.Dictionary")
可參考 http://gb.twbts.com/index.php?topic=510.0
這篇

帖子: 20
主題: 6
精華: 0
積分: 76
點名: 0
作業系統: win7
軟體版本: sp1
閱讀權限: 20
註冊時間: 2012-2-3
最後登錄: 2025-8-27

4^#

發表於 2019-5-2 13:16 | 顯示全部帖子

請問...如果不是全部使用範圍UsedRange..
而是某一個選取範圍如range("a5:d50") 該如何更改
因為我用定義範圍不行

麻煩各位了

帖子: 20
主題: 6
精華: 0
積分: 76
點名: 0
作業系統: win7
軟體版本: sp1
閱讀權限: 20
註冊時間: 2012-2-3
最後登錄: 2025-8-27

5^#

發表於 2019-5-2 14:03 | 顯示全部帖子

抱歉各位了...是我範圍定義錯誤
已經解決了...謝謝各位