返回列表 上一主題 發帖

[發問] 如何化簡這幾段程式?

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-3-20 16:06 | 顯示全部帖子

[發問] 如何化簡這幾段程式?

  1.     Sheets("Sheet3").Select
  2.     Sheets("Sheet3").Range("B2:D2").Select
  3.     Selection.Copy
  4.     Sheets("Sheet1").Select
  5.     Sheets("Sheet1").Range("B2").Select
  6.     ActiveSheet.Paste
  7.     Application.Goto Reference:="R2C2:R200C4"
  8.     Application.CutCopyMode = False
  9.     Selection.FillDown
  10.     Sheets("Sheet2").Select
複製代碼
執行程式的按鈕在Sheet2
當我把第一段Sheets("Sheet3").Select取消時，他會顯是錯誤
收藏 分享

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
2#
發表於 2014-3-21 11:00 | 顯示全部帖子
回復 2# owen06


    讓我學習了很多
如果b2:d2 是公式 也能這樣用嗎？
再次感謝

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題