Hoe kopieer ik het huidige celadres naar een andere locatie in Excel?

In Excel kunt u de inhoud van de huidige cel eenvoudig kopiëren met de snelkoppelingen of het contextmenu, maar hoe kunt u het huidige celadres naar een andere locatie kopiëren？

Kopieer het huidige celadres

Kopieer het huidige celadres en plak met VBA

---

Kopieer het huidige celadres

Hier is een formule die het huidige celadres in Excel kan krijgen.

Selecteer een cel waarin u het celadres wilt plaatsen, typ deze formule =ADDRESS(ROW(),COLUMN()), dan wordt het huidige celadres weergegeven.

Druk vervolgens op Ctrl + C om het te kopiëren en klik met de rechtermuisknop op een cel om deze als waarde te plakken.

---

Kopieer het huidige celadres en plak met VBA

Hier is de VBA-code die het celadres kan kopiëren en vervolgens in een andere cel kan plakken.

1. druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications venster.

2. klikken Insert > Moduleen plak onderstaande code in het script.

VBA: kopieer en plak celadres

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. druk op F5 toets, verschijnt er een dialoogvenster om de cel te selecteren waarvan u het adres wilt kopiëren.

4. klikken OK, selecteer een cel om het celadres in te plakken.

5. klikken OK.