標題: 如何把工作表1資料輸入工作表2 [打印本頁]

---

作者: 周大偉    時間: 2013-10-8 19:15     標題: 如何把工作表1資料輸入工作表2

本帖最後由 周大偉 於 2013-10-8 19:16 編輯

大大們, 請教一個輸入問題, 每天都必須在工作表1黃色區域填寫資料然後把資料輸入工作表2黃的色區域內, 而每次輸入工作表2都延續往下,
而現時最大的問題是工作表1資料區是有合併欄位, 在程式上是否可以做到上述要求.
[attach]16269[/attach]

---

作者: owen06    時間: 2013-10-9 09:28

本帖最後由 owen06 於 2013-10-9 09:29 編輯

回復 1# 周大偉

試試看~

1. Sub test()
   
2. Sheet1.Range("d15:" & [k65536].End(xlUp).Address(0, 0)).Copy
   
3. Sheet2.Select
   
4. Sheet2.[a65536].End(xlUp).Range("a2").Select
   
5. ActiveSheet.Paste
   
6. Columns("d").Hidden = True
   
7. Sheet2.[a65536].End(xlUp).Select
   
8. End Sub

複製代碼

---

作者: owen06    時間: 2013-10-9 10:24

不好意思，補充一下，
Columns("d").Hidden = True 要改成
sheet2.Columns("d").Hidden = True
這樣才不會把表一的d欄也隱藏掉

---

作者: 周大偉    時間: 2013-10-9 10:52

本帖最後由 周大偉 於 2013-10-9 10:54 編輯

回復 3# owen06
何來不好意思, 得到大大們回應, 多謝還來不及, 真心感謝....

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)