返回列表 上一主題 發帖

[發問] 絕對參照VS相對參照

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-8-23 20:07 | 顯示全部帖子

[發問] 絕對參照VS相對參照

本帖最後由 t8899 於 2014-8-23 20:10 編輯

=IF(AD395=0,"",IF(AI395=0,0,SUM(AM395:AM395)/SUM(AI395:AI395)))
此公式都無絕對參照的記號 $
如何快速複制此單元格到別的單元格仍為絕對參照(跟原公式一模一樣)
收藏 分享

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
2#
發表於 2014-8-24 06:26 | 顯示全部帖子
本帖最後由 t8899 於 2014-8-24 06:29 編輯
回復  t8899
    看不懂你要什麼?
是否舉例說明

儲存格1 = 原公式

儲存格2 = ?公式
ML089 發表於 2014-8-23 23:44


儲存格1 = IF(AD395=0,"",IF(AI395=0,0,SUM(AM395:AM395)/SUM(AI395:AI395)))
儲存格1 copy 到 儲存格2  (公式沒變)
儲存格2 = IF(AD395=0,"",IF(AI395=0,0,SUM(AM395:AM395)/SUM(AI395:AI395)))
方法
1.公式前面加個單引號，然後複製到需要的單元格。再查找替換掉單引號  ===>這麻煩
我寫一個簡單程序
Sub 絕對位址copy() '請先用mouse選擇複製的範圍
    Dim rng As Range
    Set rng = Selection
a = InputBox("輸入開始位址") '例如 A1
b = InputBox("輸入結束位址")   '例如 G1   
Range(a & ":" & b) = Selection.Formula
End Sub
用mouse選擇複製的範圍, 目的輸入的範圍的儲存格個數最好一樣

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
3#
發表於 2014-8-24 12:25 | 顯示全部帖子
再改一下新的版本 (不用輸入結束位址)
Sub 絕對位址copy() '請用mouse先選擇複製的範圍
    Dim rng As Range, a, z, r, rr
    Set rng = Selection
a = Selection.Address(0, 0)
z = InputBox("輸入開始位址")
Set r = Range(z).Offset(rng.Rows.Count - 1, rng.Columns.Count - 1)
Set rr = Range(z)
Range(rr.Address, r.Address) = Selection.Formula
End Sub

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題