如何把工作表1資料輸入工作表2 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何把工作表1資料輸入工作表2

返回列表下一主題上一主題發帖

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

　暱稱: 阿軒

中學生 Rank: 2

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

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2013-10-9 09:28 | 顯示全部帖子

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

回復 1# 周大偉

試試看~

Sub test()
Sheet1.Range("d15:" & [k65536].End(xlUp).Address(0, 0)).Copy
Sheet2.Select
Sheet2.[a65536].End(xlUp).Range("a2").Select
ActiveSheet.Paste
Columns("d").Hidden = True
Sheet2.[a65536].End(xlUp).Select
End Sub

複製代碼

　暱稱: 阿軒

中學生 Rank: 2

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

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2013-10-9 10:24 | 顯示全部帖子

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

靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。

返回列表下一主題上一主題