返回列表 上一主題 發帖

[發問] 複製後, 如何貼上原始公式

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
1# 跳轉到 »
發表於 2014-12-20 16:40 | 顯示全部帖子
本帖最後由 hugh0620 於 2014-12-20 16:55 編輯

回復 3# bobomi

可以試試~ 不過我是用迴圈去跑~ 不知道你自己是不是你要的~
Sub TEST()
    For I = 2 To 100
          Range("A" & I).FormulaR1C1 = Range("B1").FormulaR1C1
    Next
End Sub
學習才能提升自己

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題