如何在Excel中一次锁定公式中的所有单元格引用？

Sub test() Dim xRg As Range Dim xTxt As String Dim xCell As Range On Error Resume Next If ActiveWindow.RangeSelection.Count > 1 Then xTxt = ActiveWindow.RangeSelection.AddressLocal Else xTxt = ActiveSheet.UsedRange.AddressLocal End If Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8) If xRg Is Nothing Then Exit Sub For Each xCell In xRg xCell.Formula = Application.ConvertFormula(xCell.Formula, xlA1, , xlAbsolute) Next End Sub

申请前 Kutools for Excel请 首先下载并安装.

  如果您想免费试用（30-day) 这个实用程序， 请点击下载，然后按照上述步骤进行操作。

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！