返回列表 上一主題 發帖

資料轉寫+VBA月份流水號

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
1# 跳轉到 »
發表於 2012-5-5 22:15 | 顯示全部帖子
本帖最後由 play9091 於 2012-5-5 22:18 編輯

可以試試看貼到"Sheet2"上面的時候，用"貼上值"，這樣子就不會跑掉了！
  1.   If Not Rng Is Nothing Then
  2.      Rng.Copy
  3.      Sheet2.[A65536].End(xlUp).Offset(1).PasteSpecial xlPasteValues
  4.      Rng.EntireRow.Delete
  5.   End If
複製代碼
初學VBA乍到twbts

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題