PTT數位生活區 / Office

[算表] VB選取原檔案之資料 複製 貼上

看板Office作者 (Endless Fighting)時間2年前 (2022/10/27 15:02), 編輯推噓2(2推 0噓 6→)
留言8則, 3人參與, 2年前最新討論串1/1
軟體:excel 版本:office 365 我是VB新手，在錄製巨集，想要用巨集將 A檔案的庫存資訊 存入 B檔案之中 庫存資訊大概是兩個資訊，料號及數量 料號 數量 100-100-100 50 100-100-200 49 100-100-300 30 因為隨著新產品開發，會有新的料號產生，但是若執行巨集 只會將原本錄製的三列複製到B檔案之中 (以上面的例子就是 B2:B4) 想要請問VB有辦法寫出找到 A欄最後有值的欄位 (例如我又進了兩個貨) 料號 數量 100-100-100 50 100-100-200 49 100-100-300 30 100-100-400 20 100-100-500 25 以這個例子，是B2:B6的值複製到 B檔案去嗎？ 不然每次有新產品，我就得進VB去修改，就沒有巨集的方便性了 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.194.137.131 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1666854174.A.B0B.html
→
10/27 16:50, 2年前 , 1F
UsedRange 參考看看?
10/27 16:50, 1F
→
10/27 16:52, 2年前 , 2F
如果是新手我覺得先複製全部列數的內容
10/27 16:52, 2F
→
10/27 16:52, 2年前 , 3F
然後把複製後的"料號 數量"那列刪掉可能比較簡單
10/27 16:52, 3F
推
10/27 20:50, 2年前 , 4F
r = Columns("A:E").Find("*", , -4163, , 1, 2).Row
10/27 20:50, 4F
→
10/27 20:50, 2年前 , 5F
r = Columns("B:B").Find("*", , -4163, , 1, 2).Row
10/27 20:50, 5F
→
10/27 20:51, 2年前 , 6F
debug.print r
10/27 20:51, 6F
推
10/28 11:09, 2年前 , 7F
〔A65536〕.end (xlup).row
10/28 11:09, 7F
→
10/28 11:09, 2年前 , 8F
先定義A欄最後一列
10/28 11:09, 8F
‣ 更多 andy4624 的文章
文章代碼(AID): #1ZMYqUiB (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 andy4624 的文章
文章代碼(AID): #1ZMYqUiB (Office)