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.