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

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

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"

請問要如何做呢?

謝謝

樓主熱帖

p223941

中學生 Rank: 2

帖子: 8
主題: 0
精華: 0
積分: 50
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
性別: 女
註冊時間: 2016-1-29
最後登錄: 2021-8-2

7^#

發表於 2016-1-29 13:14 | 只看該作者

回復 5# ML089

謝謝你~解決長久的困擾

TOP

bobomi

中學生 Rank: 2

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

6^#

發表於 2015-11-2 21:03 | 只看該作者

回復 5# ML089

可以了, 謝謝

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

5^#

發表於 2015-10-26 20:54 | 只看該作者

回復 1# bobomi

A1 公式放入 '= B1 當作文字

所以任意複製都不會改變

再用資料剖析 - 分隔符號 - 輸入其他分隔符號 '，把文字變成公式

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

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

bobomi