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

通常，在 Excel 中，我们可以很容易地使用复制和粘贴功能复制单元格的内容。但是您是否尝试过从另一个单元格复制一个单元格的单元格地址？我们可以使用本文中提到的步骤。即使我们可以简单地使用公式来完成任务，但有时我们需要使用 VBA 应用程序的一些有趣方法。

阅读本教程，了解如何使用 VBA 应用程序将当前单元格地址复制到 Excel 中的其他位置。我们可以使用本教程中提到的 VB 代码将当前单元格地址复制到其他位置。

将当前单元格地址复制到 Excel 中的其他位置

在这里，我们首先将打开 VBA 应用程序，插入一个模块，最后运行代码以完成任务。让我们看一下使用 VBA 应用程序将当前单元格地址复制到 Excel 中其他位置的简单过程。

步骤 1

让我们考虑一个新的 Excel 工作表，右键单击工作表名称并选择“查看代码”以打开 VBA 应用程序。

右键单击 > 查看代码

然后，在 VBA 应用程序中，单击“插入”并选择“模块”，然后在文本框中键入以下程序代码，如下面的图像所示。

插入 > 模块

程序

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