Note: The other languages of the website are Google-translated. Back to English

如何在Excel中将绝对参考更改/转换为相对参考?

通常,公式中可以使用几种类型的单元格引用,每种类型的单元格引用都可以帮助您在公式中实现不同的目的。 您可以具有以下类型的单元格引用,例如绝对单元格引用,相对单元格引用,相对行引用,绝对列引用以及绝对行引用和相对列引用。 但是有时您可能需要通过更改公式中的单元格引用来更改公式用途的使用。 以下棘手的方法将告诉您如何在Excel中更改相对引用的绝对引用。

用F4键将绝对参考值更改为相对参考值

使用VBA代码将绝对参考更改为相对参考

使用Kutools for Excel快速将绝对引用更改为相对引用

Office选项卡在Office中启用选项卡式编辑和浏览,并使您的工作更加轻松...
Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%
  • 重用任何东西: 将最常用或最复杂的公式,图表等添加到您的收藏夹中,并在将来快速重用它们。
  • 超过20种文字功能: 从文本字符串中提取数字; 提取或删除部分文字; 将数字和货币转换为英文单词。
  • 合并工具:将多个工作簿和工作表合二为一; 合并多个单元格/行/列,而不会丢失数据; 合并重复的行和总和。
  • 分割工具:根据价值将数据分割成多个工作表; 一本工作簿可转换为多个Excel,PDF或CSV文件; 一列到多列。
  • 跳过粘贴 隐藏/过滤的行; 计数与求和 按背景色; 向多个收件人批量发送个性化电子邮件。
  • 超级过滤器: 创建高级过滤方案并应用于任何工作表; 排序 按星期,日期,频率等 筛选器 用粗体,公式,注释...
  • 超过300种强大的功能; 适用于 Office 2007-2021 和 365; 支持所有语言; 在您的企业或组织中轻松部署。

绝对参考

相对参考


箭头蓝色右气泡 用F4键将绝对参考值更改为相对参考值

使用快捷键F4,我们可以轻松地将绝对参考切换为相对参考,请执行以下步骤:

将光标放在$ A $ 1后面,然后按三下F4键,它将依次变为A $ 1,$ A1,A1。 看截图:

根据此步骤,将光标置于$ B $ 1后面以获得B1。

并且该单元格引用将成为绝对引用的相对引用。

如果需要更改多个公式的单元格引用,则此方法将很繁琐且耗时。


箭头蓝色右气泡 使用VBA代码将绝对参考更改为相对参考

使用VBA代码,您可以一次将一系列公式单元格引用从绝对引用更改为相对引用。

1.选择要更改的范围。

2。 点击 开发商 > Visual Basic中 或者你可以按 Alt + F11键,将显示一个新的Microsoft Visual Basic for Applications窗口,单击 插页 > 模块,然后将以下代码输入到 模块:
VBA:将绝对值转换为相对参考。

Sub ConverFormulaReferences()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
Dim xIndex As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
xIndex = Application.InputBox("Change formulas to?" & Chr(13) & Chr(13) _
& "Absolute = 1" & Chr(13) _
& "Row absolute = 2" & Chr(13) _
& "Column absolute = 3" & Chr(13) _
& "Relative = 4", xTitleId, 1, Type:=1)
For Each Rng In WorkRng
    Rng.Formula = Application.ConvertFormula(Rng.Formula, XlReferenceStyle.xlA1, XlReferenceStyle.xlA1, xIndex)
Next
End Sub

3。 然后点击 文档-绝对-相对-6 按钮运行代码,然后会弹出一个提示框,用于选择要转换的范围,然后单击“确定”,并显示另一个对话框,提示您要使用哪种类型。 然后,您可以选择所需的正确类型。 对于此示例,我将插入4。请参见屏幕截图:

4。 然后点击 OK。 选择中的所有绝对参考已更改为公式中的相对参考。

这是带有此代码的多功能VBA代码。 您还可以相对于绝对参考值更改,更改绝对行或更改绝对列。


箭头蓝色右气泡 使用Kutools for Excel快速将绝对引用更改为相对引用

Kutools for Excel: 带有超过100个方便的Excel加载项,可以在30天内免费试用。 立即获取

Kutools for Excel 让您快速,轻松地将绝对值更改为相对参考值,反之亦然。 请执行以下操作:

步骤1.转到选择包含要更改工作表中单元格引用的公式的范围。

步骤2。 点击 库工具 > 转换参照。 它将显示 转换公式参考 对话框。 看截图:

步骤3。 检查 相对的 并点击 Ok or 使用转换公式参考 对话。 它将绝对参考更改为相对参考。

如果要将单元格引用更改为绝对列或绝对行,请检查 绝对列 选项或 要排绝对 选项。

有关更多详细信息 转换参考,请访问: 转换参考功能描述.


相关文章:将相对参考更改为绝对参考


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (7)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
非常感谢,描述性强,易于理解的信息。
该评论由网站上的主持人最小化
非常感谢你。 描述性的,易于理解的信息。
该评论由网站上的主持人最小化
使用快捷键F4,我们可以很容易的将绝对引用切换到相对引用,请执行//as//以下步骤。 忘了提到 F4 不适用于我的 excel(Windows 7),但你的宏和 Kutools 的邀请很棒。 抱歉重复发送,我认为代码不起作用。
该评论由网站上的主持人最小化
F4 切换适用于所有版本。 但您必须首先处于编辑模式。 我总是按 F2(让您进入编辑模式),然后按 F4 在四个选项之间切换。
该评论由网站上的主持人最小化
Excel 2010。出现提示时,我单击了取消,但 excel 仍然运行脚本,它使我的计算机冻结了几个小时。 无论如何,我只突出显示了 1 个单元格,所以即使脚本运行了,为什么运行需要这么长时间? [我现在意识到,尽管按下取消,代码仍然运行并使工作表中的每个单元格相对! :( ] 我将它分配给表单按钮,而不是在 VBA 窗口中按下播放。我使用过 KuTools 的其他脚本,从未经历过这种废话。
该评论由网站上的主持人最小化
Wao 优秀的 VBA 代码完美运行,非常感谢
该评论由网站上的主持人最小化
函数 ConvertMyAddress(strRng As String) As String
Dim rngSelection 作为范围

设置 rngSelection = Application.Range(strRng)
'// 测试是否为空
如果 rngSelection 没有,则退出函数

' MsgBox rngSelection.Address(0, 0) 'A1
' MsgBox rngSelection.Address(1, 0) '$A1
' MsgBox rngSelection.Address(0, 1) 'A$1
' MsgBox rngSelection.Address(1, 1) '$A$1
' MsgBox rngSelection.Address '$A$1
'
' MsgBox rngSelection.Parent.Name & "!" & rngSelection.Address(0, 0)
' MsgBox "[" & rngSelection.Parent.Parent.Name & "]" & rngSelection.Parent.Name & "!" & rngSelection.Address(0, 0)

转换我的地址 = rngSelection.Address(1, 1)

函数结束
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护