Comment copier l'adresse de cellule actuelle vers un autre emplacement dans Excel?

Dans Excel, vous pouvez facilement copier le contenu de la cellule actuelle avec les raccourcis ou le menu contextuel, mais comment pouvez-vous copier l'adresse de la cellule actuelle vers un autre emplacement?

Copier l'adresse de cellule actuelle

Copiez l'adresse de la cellule actuelle et collez-la avec VBA

Copier l'adresse de cellule actuelle

Voici une formule qui peut obtenir l'adresse de cellule actuelle dans Excel.

Sélectionnez une cellule dans laquelle vous placerez l'adresse de la cellule, tapez cette formule =ADDRESS(ROW(),COLUMN()), puis l'adresse de cellule actuelle a été affichée.

Puis appuyez Ctrl + C pour le copier et cliquez avec le bouton droit sur une cellule pour sélectionner coller comme valeur.

Copiez l'adresse de la cellule actuelle et collez-la avec VBA

Voici le code VBA qui peut copier l'adresse de la cellule puis la coller dans une autre cellule.

1. presse Alt + F11 touches pour activer Microsoft Visual Basic for Applications fenêtre.

2. Cliquez Insert > Moduleet collez le code ci-dessous dans le script.

VBA ： Copiez et collez l'adresse de la cellule

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. presse F5 touche, une boîte de dialogue apparaît pour sélectionner la cellule dont vous souhaitez copier son adresse.

4. Cliquez OK, sélectionnez une cellule pour coller l'adresse de la cellule.

5. Cliquez OK.