Hur kopierar jag aktuell celladress till en annan plats i Excel?

I Excel kan du enkelt kopiera innehållet i den aktuella cellen med genvägar eller snabbmeny, men hur kan du kopiera den aktuella celladressen till en annan plats？

Kopiera aktuell celladress

Kopiera aktuell celladress och klistra in med VBA

---

Kopiera aktuell celladress

Här är en formel som kan få aktuell celladress i Excel.

Välj en cell som du kommer att placera celladressen, skriv den här formeln =ADDRESS(ROW(),COLUMN()), då har den aktuella celladressen visats.

Tryck sedan på Ctrl + C för att kopiera den och högerklicka på en cell för att välja att klistra in den som värde.

---

Kopiera aktuell celladress och klistra in med VBA

Här är VBA-koden som kan kopiera celladressen och klistra in den i en annan cell.

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic for Applications fönster.

2. klick Insert > Moduleoch klistra in under koden i skriptet.

VBA ： Kopiera och klistra in celladressen

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. Tryck F5 tangent, en dialogruta dyker upp för att välja den cell du vill kopiera dess adress.

4. klick OK, välj en cell för att klistra in celladressen.

5. klick OK.