返回列表 上一主題 發帖

[發問] 如何從sheet1 儲存至Sheet3

老夏

帖子
109 
主題
22 
精華
0 
積分
134 
點名
0  
作業系統
Win7 
軟體版本
Office 2000 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-5-1 
最後登錄
2023-3-5 

論壇貢獻勳章
1# 跳轉到 »
發表於 2010-5-11 08:52 | 顯示全部帖子
本帖最後由 老夏 於 2010-5-11 20:08 編輯

[Sub Macro1()
[A].Copy [N]
End Sub

Sheet1.JPG (87.4 KB)

Sheet1.JPG

Sheet3.JPG (91.2 KB)

Sheet3.JPG

TOP

老夏

帖子
109 
主題
22 
精華
0 
積分
134 
點名
0  
作業系統
Win7 
軟體版本
Office 2000 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-5-1 
最後登錄
2023-3-5 

論壇貢獻勳章
2#
發表於 2010-5-12 11:14 | 顯示全部帖子
脫褲子放屁

sheet3資料清單
資料直接輸入便是

TOP

老夏

帖子
109 
主題
22 
精華
0 
積分
134 
點名
0  
作業系統
Win7 
軟體版本
Office 2000 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-5-1 
最後登錄
2023-3-5 

論壇貢獻勳章
3#
發表於 2010-5-13 08:02 | 顯示全部帖子
本帖最後由 老夏 於 2010-5-13 14:13 編輯

111.rar (8.59 KB)

從善如流,那就脫褲子吧!


定義名稱
A=OFFSET(Sheet1!$B$6,,,COUNTA(Sheet1!$B$6:$B$25),7)
N=OFFSET(Sheet3!$B$5,COUNTA(Sheet3!$B$5:$B$65536),)

Sub 脫褲子放屁()
    [A].Copy [N]'複製到
    [A].ClearContents'清除
End Sub

**************************************************
工作表可以
更名
刪除A欄

VBA無宣告

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題