返回列表 上一主題 發帖

如何把工作表1資料輸入工作表2

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-10-8 19:15 | 只看該作者

如何把工作表1資料輸入工作表2

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

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

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2026-8-12 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 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
複製代碼

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2026-8-12 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
3#
發表於 2013-10-9 10:24 | 只看該作者
不好意思，補充一下，
Columns("d").Hidden = True 要改成
sheet2.Columns("d").Hidden = True
這樣才不會把表一的d欄也隱藏掉

TOP

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
4#
發表於 2013-10-9 10:52 | 只看該作者
本帖最後由 周大偉 於 2013-10-9 10:54 編輯

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

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題