Берни Дейтрик (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. Чтобы запустить макросы, сначала включите вкладку «Разработчик», настроив ленту, а затем поставив флажок в соответствующем столбце в правом столбце. Вы найдете Макросы на этой вкладке.
Две дополнительные мысли:
- при работе с макросами знайте, что делают макросы, или попросите компетентного человека проверить их для вас. Я не буду нести ответственность за то, что макросы скомпрометируют ваши данные или ваш компьютер непредвиденными способами; а также
- Я лично предпочитаю подход, который я предлагаю в моем другом ответе. Такой макрос кажется мне тупым инструментом, хотя я могу представить себе сценарии, в которых это было бы более эффективным решением.