我正在处理一个非常庞大的Excel 2003电子表格，其中有很多涉及大量单元格引用的大型公式。以下是一个简单示例。
='Sheet'!AC69+'Sheet'!AC52+'Sheet'!AC53)*$D$3+'Sheet'!AC49
大多数情况比这个更复杂，但这个例子可以很好地说明我所面对的问题。 这些单元格引用中很少有绝对引用（$s）。我想能够将这些单元格复制到不同的位置而不改变单元格引用。 我知道我可以使用f4使引用变为绝对引用，但是数据量很大，我可能需要稍后使用填充功能。有没有办法在复制粘贴/填充时临时禁用单元格引用的更改而不使引用成为绝对引用？
编辑：我刚刚发现可以通过将单元格内容复制为文本而不是公式来使用VBA做到这一点。 不过，我不想这样做，因为我想一次性复制整行/列。 我是否遗漏了简单的解决方案？
从http://spreadsheetpage.com/index.php/tip/making_an_exact_copy_of_a_range_of_formulas_take_2：
注：如果将数据粘贴回 Excel 时出现问题，很可能是您最近使用了 Excel 的“文本转列”功能，并且 Excel 尝试通过记住上次如何解析数据来帮助您。您需要启动“文本转列向导”。选择“分隔符”选项并单击“下一步”。清除除“制表符”之外的所有分隔符选项复选标记。
或从http://spreadsheetpage.com/index.php/tip/making_an_exact_copy_of_a_range_of_formulas/：
If you're a VBA programmer, you can simply execute the following code:
With Sheets("Sheet1")
.Range("A11:D20").Formula = .Range("A1:D10").Formula
End With
Ctrl + h），将=替换成另一个在公式中未使用的符号（例如#） - 这将停止它作为一个活动公式。#替换回=，从而将两个范围恢复为公式。这个简单的技巧很有效：复制并粘贴。不要剪切和粘贴。在粘贴后，重新选择你复制的部分，然后进入编辑，滑动到清除，清除内容。
我最近在类似的情况下使用了一个简单的解决方法：
Sheet1 的副本）中剪切+粘贴包含公式的单元格到原始工作表中。'Sheet1 的副本'! 为一个空字符串（即空白）。注意：如果您的工作表名称没有空格，则不需要使用单引号/撇号（'）。
现在，您的单元格引用已经被复制而没有被更改。
我认为你需要使用你在编辑中提到的解决方案。
我会从将表格上的每个公式大致转换为文本开始：
Dim r As Range
For Each r In Worksheets("Sheet1").UsedRange
If (Left$(r.Formula, 1) = "=") Then
r.Formula = "'ZZZ" & r.Formula
End If
Next r
在这里，'ZZZ 使用 ' 表示文本值，而 ZZZ 则是我们想要将文本转换回公式时要查找的值。显然，如果您的任何单元格实际上以文本 ZZZ 开头，则在 VBA 宏中更改 ZZZ 值为其他值。
当重新排列完成后，我会像这样将文本转换回公式：
For Each r In Worksheets("Sheet1").UsedRange
If (Left$(r.Formula, 3) = "ZZZ") Then
r.Formula = Mid$(r.Formula, 4)
End If
Next r
这种方法的一个真正缺点是，当您重新排列时，无法查看任何公式的结果。例如，当您从文本转换回公式时，可能会发现有大量的#REF错误。
分阶段进行此操作可能会更有益，每隔一段时间将其转换回公式以检查是否发生了灾难。
在进行操作时，通常使用查找/替换来禁用公式。例如，使用转置复制。通过在公式前面放置一些占位符（例如“$ =”）来禁用公式。一旦完成操作，查找替换可以摆脱这些内容。
此VBA仅自动执行活动工作表的查找/替换。
' toggle forumlas on active sheet as active/ inactive
' by use of "$=" prefix
Sub toggle_active_formulas()
Dim current_calc_method As String
initial_calc_method = Application.Calculation
Application.Calculation = xlCalculationManual
Dim predominant As Integer
Dim c As Range
For Each c In ActiveSheet.UsedRange.Cells
If c.HasFormula Then
predominant = predominant + 1
ElseIf "$=" = Left(c.Value, 2) Then
predominant = predominant - 1
End If
Next c
If predominant > 0 Then
For Each c In ActiveSheet.UsedRange.Cells
On Error Resume Next
If c.HasFormula Then
c.Value = "$" & c.Formula
End If
Next c
Else
For Each c In ActiveSheet.UsedRange.Cells
On Error Resume Next
If "$=" = Left(c.Value, 2) Then
c.Formula = Right(c.Value, Len(c.Value) - 1)
End If
Next c
End If
Application.Calculation = initial_calc_method
End Sub
Dim cell As Range
msgResult = MsgBox("Yes to lock" & vbNewLine & "No unlock ", vbYesNoCancel + vbQuestion, "Forumula locker")
If msgResult = vbNo Then
For Each cell In Range("A1:i155")
If InStr(1, cell.Value, "*") > 0 Then
cell.Formula = Replace(cell.Formula, "*", "=")
End If
Next cell
ElseIf msgResult = vbYes Then
For Each cell In Range("A1:i155")
If cell.HasFormula = True Then
cell.Formula = Replace(cell.Formula, "=", "*")
End If
Next cell
End If
这个宏完成了整个工作。
Sub Absolute_Reference_Copy_Paste()
'By changing "=" in formulas to "#" the content is no longer seen as a formula.
' C+S+e (my keyboard shortcut)
Dim Dummy As Range
Dim FirstSelection As Range
Dim SecondSelection As Range
Dim SheetFirst As Worksheet
Dim SheetSecond As Worksheet
On Error GoTo Whoa
Application.EnableEvents = False
' Set starting selection variable.
Set FirstSelection = Selection
Set SheetFirst = FirstSelection.Worksheet
' Reset the Find function so the scope of the search area is the current worksheet.
Set Dummy = Worksheets(1).Range("A1:A1").Find("Dummy", LookIn:=xlValues)
' Change "=" to "#" in selection.
Selection.Replace What:="=", Replacement:="#", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
' Select the area you want to paste the formulas; must be same size as original
selection and outside of the original selection.
Set SecondSelection = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)
Set SheetSecond = SecondSelection.Worksheet
' Copy the original selection and paste it into the newly selected area. The active
selection remains FirstSelection.
FirstSelection.Copy SecondSelection
' Restore "=" in FirstSelection.
Selection.Replace What:="#", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
' Select SecondSelection.
SheetSecond.Activate
SecondSelection.Select
' Restore "=" in SecondSelection.
Selection.Replace What:="#", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
' Return active selection to the original area: FirstSelection.
SheetFirst.Activate
FirstSelection.Select
Application.EnableEvents = True
Exit Sub
Whoa:
' If something goes wrong after "=" has been changed in FirstSelection, restore "=".
FirstSelection.Select
Selection.Replace What:="#", Replacement:="=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub