簡化程式碼

tinching

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

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

register313

回復 1# tinching

[N1] = [L1]

tinching

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

GBKEE

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

register313

回復 3# tinching

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

tinching

回復  tinching
    [L1].Copy  [ N1]
GBKEE 發表於 2012-2-16 21:12

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

Hsieh

回復 6# tinching


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

register313

回復 6# tinching

Range([L1]).Copy [N1]

tinching

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

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