![在 Excel 中同时锁定多个单元格公式中的单元格引用](https://linux22.com/image/1489924/%E5%9C%A8%20Excel%20%E4%B8%AD%E5%90%8C%E6%97%B6%E9%94%81%E5%AE%9A%E5%A4%9A%E4%B8%AA%E5%8D%95%E5%85%83%E6%A0%BC%E5%85%AC%E5%BC%8F%E4%B8%AD%E7%9A%84%E5%8D%95%E5%85%83%E6%A0%BC%E5%BC%95%E7%94%A8.png)
当单元格作为一组处理时,有没有办法锁定 Excel 表格中单元格公式中的单元格引用?(F4 键一次只能锁定一个单元格的单元格引用。)
答案1
我通常使用 F4 来获取适当的混合单元格引用。(我很少发现绝对单元格引用是必要的。)然后,我向下或横向填充(或两者兼而有之)以使我的列或行填充相同的公式。或者,根据我的工作表的布局方式,我复制并粘贴单元格,而不是向下/横向填充。
答案2
Bernie Deitrick这个 excelforum.com 主题给出以下宏,说明首先选择你的细胞,然后运行它:
Sub ConvertToAbsoluteReferences()
Dim myCell As Range
Dim storedCalc As Variant
Dim RefStyle As Variant
Dim MyMsg As String
Dim myStyle As Integer
MyMsg = "1: =A1 Relative" & Chr(10) & _
"2: =A$1 Absolute Row" & Chr(10) & _
"3: =$A1 Absolute Column" & Chr(10) & _
"4: =$A$1 Absolute" & Chr(10) & Chr(10) & _
"Choose a style: 1, 2, 3, or 4...."
myStyle = Application.InputBox(MyMsg, "Style Choice", , , , , , 1)
Select Case myStyle
Case 1
RefStyle = xlRelative
Case 2
RefStyle = xlAbsRowRelColumn
Case 3
RefStyle = xlRelRowAbsColumn
Case Else
RefStyle = xlAbsolute
End Select
With Application
storedCalc = .Calculation
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
For Each myCell In Intersect(Selection, Selection.SpecialCells(xlCellTypeFormulas))
myCell.Formula = Application.ConvertFormula( _
myCell.Formula, xlA1, xlA1, RefStyle)
Next myCell
.ScreenUpdating = True
.EnableEvents = True
.Calculation = storedCalc
End With
在我看来,它在 Office 2013 中运行良好。要运行宏,首先通过自定义功能区启用“开发人员”选项卡,然后选中右侧列中未选中的框。您会在该选项卡上找到“宏”。
另外两个想法:
- 运行宏时,请注意宏的作用,或请有能力的人为您检查它们。我不会对宏以意外方式危害您的数据或机器负责;并且
- 我个人更喜欢我在另一个答案中建议的方法。这样的宏对我来说似乎是一种钝器,尽管我可以想象在某些情况下它会是更有效的解决方案。
答案3
如果它们都在同一行或同一列,您只需查找并替换(在公式中查找)在$ $
要锁定的引用之前和之后添加符号即可。
EI. ='RATE CARD'!D5
查找!D
并替换为!$D$