vlookup合并的資料 - Excel程式區 - 麻辣家族討論版版

198188

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

11^# 跳轉到 »

發表於 2023-12-30 09:05 | 顯示全部帖子

本帖最後由 198188 於 2023-12-30 09:07 編輯

更新版.rar (50.59 KB) 回復 18# Andy2483

我想了一個規則：
首先BF sheet 是讀取的資料，Demo 是一個固定的模板。
1. 根據BF 的 A 欄的數據，裏面現在有#001 - #009 ，那麽就複製9個Demo, Sheet Name 按照#001-#009 來命名。如 “ Result BF 工程#001”，“ Result BF 工程#002”，“ Result BF 工程#003”如此類推。
2. 讀取BF 裏面相應的資料到，“ Result BF 工程#001”，“ Result BF 工程#002”，“ Result BF 工程#003”等sheet
貨櫃號：BF工程#001， BF工程#002， BF工程#003， BF工程#004 。。。
貨櫃尺寸：45HC, 40HC, 20GP 根據A欄資料來讀取
出貨日期：根據A欄資料來讀取
制表日：執行VBA當天
欄C - 欄D 抽取欄B 裏面的資料
欄E -  欄F  抽取欄C 裏面的資料
欄G - 欄H 抽取欄D 裏面的資料
欄 I -  欄 J  抽取欄E 裏面的資料
欄K -  欄L  抽取欄F 裏面的資料

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

12^#

發表於 2024-1-2 13:53 | 顯示全部帖子

回復 21# Andy2483

我把中文變成英文，但是運行VBA沒有什麽效果出來。可以幫我看看哪裏翻譯錯了嗎？

SR1.rar (156.94 KB)

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

13^#

發表於 2024-1-2 17:58 | 顯示全部帖子

回復 21# Andy2483

牽涉到亂碼，能不能將SHEET 名命名為“#”開始加後面三個數字。
例如
#001
#002
#003

Container Map1 .rar (32.63 KB)

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

14^#

發表於 2024-1-3 08:08 | 顯示全部帖子

回復 24# Andy2483

改了之後在這個位置卡住了
With Sheets(2).Copy(after:=Worksheets(Sheets.Count))

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

15^#

發表於 2024-1-3 08:56 | 顯示全部帖子

回復 26# Andy2483

改了之後，在那個copy sheet 的位置卡住了計算sheet 是的位置

Container Map1 .rar (32.8 KB)

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

16^#

發表於 2024-1-3 09:13 | 顯示全部帖子

回復 28# Andy2483

我截圖了，你看看是不是T的數值亂碼的問題？

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

17^#

發表於 2024-1-3 10:12 | 顯示全部帖子

回復 31# Andy2483

我一改，excel 就自動關閉。:'( 試了很多次，都是這樣

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

18^#

發表於 2024-1-3 10:31 | 顯示全部帖子

回復 33# Andy2483

重複不斷試了幾十遍，終於可以了。謝謝。

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

19^#

發表於 2024-1-3 10:52 | 顯示全部帖子

回復 35# Andy2483

根據你說的那樣，亂碼換成英文，這樣就可以了
另外還有一個小的問題
能不能獨立做一個VBA 把全部sheets 裏面的文字按照附件Translate這個表裏的資料進行取代，
舉例
排櫃表 Container Maps
貨櫃號 Project Name
貨物 Description
貨櫃尺寸 Container Size
出貨日期 Ex-Work Date
櫃號 Container No
制表人 Prepared By
制表日 Date
上架 Upper Crate
下架 Lower Crate
車頭 Container Head
架長 Shelf Length

如果sheet 裏面有“排櫃表”的字眼，那麽執行程式后，“Container Maps” 取代“排櫃表”

con map.rar (20.78 KB)

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 438
主題: 67
精華: 0
積分: 531
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-11-19

20^#

發表於 2024-1-3 14:33 | 顯示全部帖子

回復 38# Andy2483

我自己加了翻譯的程式，但是我在excel加插一個SHEET 后，執行你的那個VBA，會刪除我加插的那個SHEET. 請問是哪裏的問題？

con map.rar (30.2 KB)

TOP

[發問] vlookup合并的資料

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]