現在のセルアドレスをExcelの他の場所にコピーするにはどうすればよいですか？

Excelでは、ショートカットまたはコンテキストメニューを使用して現在のセルの内容を簡単にコピーできますが、現在のセルのアドレスを他の場所にコピーするにはどうすればよいでしょうか。

現在のセルアドレスをコピーする

現在のセルアドレスをコピーしてVBAで貼り付けます

現在のセルアドレスをコピーする

これは、Excelで現在のセルアドレスを取得できる数式です。

セルアドレスを配置するセルを選択し、この数式を入力します =ADDRESS(ROW(),COLUMN())、現在のセルアドレスが表示されます。

次に、 Ctrl + C コピーしてセルを右クリックし、値として貼り付けを選択します。

現在のセルアドレスをコピーしてVBAで貼り付けます

セルアドレスをコピーして別のセルに貼り付けることができるVBAコードを次に示します。

1。 押す Alt + F11 を有効にするためのキー Microsoft Visual Basic for Applications 窓。

2。 クリック Insert > Module、以下のコードをスクリプトに貼り付けます。

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。 クリック OK、セルを選択してセルアドレスを貼り付けます。

5。 クリック OK.