麻辣家族討論版版 - Powered by Discuz! Board

標題: 簡化程式碼 [打印本頁]

作者: tinching 時間: 2012-2-16 20:14 標題: 簡化程式碼

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

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

作者: register313 時間: 2012-2-16 20:20

回復 1# tinching

[N1] = [L1]

作者: tinching 時間: 2012-2-16 21:06

如此，只會複制了[L1] 的值。

作者: GBKEE 時間: 2012-2-16 21:12

回復 3# tinching
[L1].Copy [ N1]

作者: register313 時間: 2012-2-16 22:09

回復 3# tinching

原程式碼
Range("L1").Select                                           '選擇L1儲存格
  Selection.Copy                                              '複製L1儲存格
Range("N1").Select                                           '選擇N1儲存格
  Selection.PasteSpecial Paste:=xlPasteValues       '選擇性貼上值

作者: tinching 時間: 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。

作者: Hsieh 時間: 2012-2-16 23:57

本帖最後由 Hsieh 於 2012-2-17 00:11 編輯

回復 6# tinching

[N1]=Range([L1].Text).Value

作者: register313 時間: 2012-2-17 00:16

回復 6# tinching

Range([L1]).Copy [N1]

作者: tinching 時間: 2012-2-17 16:05

Hsieh 的只可將F4的資料複制到N1，F5及F6沒有。
register313 的是可以做小弟的要求。

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)