返回列表 上一主題 發帖

[發問] 篩選後新增工作表

葉國洲

帖子
31 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
win10 
軟體版本
office 2016 
閱讀權限
10 
性別
男 
註冊時間
2016-10-4 
最後登錄
2017-10-17 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2016-11-15 18:44 | 顯示全部帖子
37行改為
  1. Set MyRange = Sheets("result").Range("A2")
  2. If MyRange.Count > 1 Then Set MyRange = Range(MyRange, MyRange.End(xlDown))
複製代碼

TOP

葉國洲

帖子
31 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
win10 
軟體版本
office 2016 
閱讀權限
10 
性別
男 
註冊時間
2016-10-4 
最後登錄
2017-10-17 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2016-11-15 18:58 | 顯示全部帖子
抱歉,樓上是錯的37行是
  1. If yn = vbYes Then Set MyRange = Range(MyRange, MyRange.End(xlDown))
複製代碼

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題