返回列表 上一主題 發帖

簡化程式碼

tinching

帖子
38 
主題
18 
精華
0 
積分
115 
點名
0  
作業系統
xp 
軟體版本
office xp 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-5-11 
最後登錄
2025-10-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-2-16 20:14 | 顯示全部帖子

簡化程式碼

請問各位：
以下程式碼該如何簡化？

Range([L1].Value).Select
  Selection.Copy
Range("N1").Select
  Selection.PasteSpecial Paste:=xlPasteValues
收藏 分享

tinching

帖子
38 
主題
18 
精華
0 
積分
115 
點名
0  
作業系統
xp 
軟體版本
office xp 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-5-11 
最後登錄
2025-10-10 
2#
發表於 2012-2-16 21:06 | 顯示全部帖子
如此，只會複制了[L1] 的值。

TOP

tinching

帖子
38 
主題
18 
精華
0 
積分
115 
點名
0  
作業系統
xp 
軟體版本
office xp 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-5-11 
最後登錄
2025-10-10 
3#
發表於 2012-2-16 22:47 | 顯示全部帖子
回復  tinching
    [L1].Copy  [ N1]
GBKEE 發表於 2012-2-16 21:12



    這樣便複制了 [L1] 的函數。
讓小弟解釋一下：
[L1]的函數是：=K1&":F"&K22，得出答案是[F4:F9]。動作是複制F4:F9到N1。

TOP

tinching

帖子
38 
主題
18 
精華
0 
積分
115 
點名
0  
作業系統
xp 
軟體版本
office xp 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-5-11 
最後登錄
2025-10-10 
4#
發表於 2012-2-17 16:05 | 顯示全部帖子
Hsieh 的只可將F4的資料複制到N1，F5及F6沒有。
register313 的是可以做小弟的要求。

無論如何，謝謝兩位解答！

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題