Cum se copiază adresa curentă a celulei în altă locație din Excel?

În Excel, puteți copia cu ușurință conținutul celulei curente cu comenzile rapide sau meniul contextual, dar cum ați putea copia adresa curentă a celulei în altă locație？

Copiați adresa actuală a celulei

Copiați adresa curentă a celulei și lipiți cu VBA

---

Copiați adresa actuală a celulei

Iată o formulă care poate obține adresa actuală a celulei în Excel.

Selectați o celulă în care veți plasa adresa celulei, tastați această formulă =ADDRESS(ROW(),COLUMN()), apoi a fost afișată adresa curentă a celulei.

Apoi apăsați Ctrl + C pentru a o copia și faceți clic dreapta pe o celulă pentru a selecta lipiți-o ca valoare.

---

Copiați adresa curentă a celulei și lipiți cu VBA

Iată codul VBA care poate copia adresa celulei, apoi o poate lipi într-o altă celulă.

1. presa Alt + F11 tastele pentru a activa Microsoft Visual Basic for Applications fereastră.

2. clic Insert > Moduleși lipiți codul de mai jos în script.

VBA ： Copiați și lipiți adresa celulei

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. presa F5 , apare un dialog pentru selectarea celulei pe care doriți să o copiați adresa.

4. clic OK, selectați o celulă pentru a lipi adresa celulei.

5. clic OK.