如何在 Excel 中将当前单元格地址复制到其他位置？

在 Excel 中，您可以使用快捷键或右键菜单轻松复制当前单元格的内容，但如何将当前单元格的地址复制到其他位置呢？

复制当前单元格地址

使用 VBA 复制并粘贴当前单元格地址

复制当前单元格地址

这里有一个公式可以在 Excel 中获取当前单元格地址。

选择一个要放置单元格地址的单元格，输入以下公式： =ADDRESS(ROW(),COLUMN())，然后当前单元格地址就会显示出来。

然后按 Ctrl + C 进行复制，并右键单击某个单元格以选择将其作为值粘贴。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

使用 VBA 复制并粘贴当前单元格地址

以下是可以通过 VBA 代码复制单元格地址并将其粘贴到另一个单元格中的方法。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到脚本中。

VBA：复制并粘贴单元格地址

Sub AddressCopy()
'UpdatebyExtendoffice20180307
    Dim xSRg As Range
    Dim xDRg As Range
    On Error Resume Next
    Set xSRg = Application.InputBox("Select cell(s) to copy its address:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Select a cell to paste:", "KuTools for Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    xDRg(1).Value = xSRg.Address
End Sub

3. 按 F5 键，弹出对话框以选择您要复制其地址的单元格。

4. 单击 确定，选择一个单元格以粘贴单元格地址。

5. 单击 确定.