返回列表下一主題上一主題發帖

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

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-12-20 10:40 | 只看該作者

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

A1 公式放入 "= B1" ' 不能放 = $B$1

滑鼠選取 A1 -> 複製 -> 滑鼠移至 A2 -> 貼上

觀察A2 , A2 公式變成 "= B2"

但是我希望的是 A2 公式一樣 "= B1"

請問要如何做呢?

謝謝

樓主熱帖

K_Wing

中學生 Rank: 2

帖子: 140
主題: 27
精華: 0
積分: 158
點名: 0
作業系統: Windows10
軟體版本: office 2013
閱讀權限: 20
性別: 男
註冊時間: 2014-11-27
最後登錄: 2023-2-26

2^#

發表於 2014-12-20 11:43 | 只看該作者

回復 1# bobomi

那麼為何不在A2直接放入"=B1"

TOP

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

3^#

發表於 2014-12-20 11:52 | 只看該作者

回復 bobomi

那麼為何不在A2直接放入"=B1"
K_Wing 發表於 2014-12-20 11:43

因為其實要貼上的區域是 A2 到 A100

上面只是舉例而已

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

4^#

發表於 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

ML089