Kako kopirati trenutni naslov celice na drugo mesto v Excelu?

V Excelu lahko vsebino trenutne celice enostavno kopirate z bližnjicami ali kontekstnim menijem, kako pa lahko kopirate naslov trenutne celice na drugo mesto？

Kopiraj trenutni naslov celice

Kopirajte trenutni naslov celice in prilepite z VBA

Kopiraj trenutni naslov celice

Tu je formula, ki lahko v Excelu dobi trenutni naslov celice.

Izberite celico, v katero boste postavili naslov celice, vnesite to formulo =ADDRESS(ROW(),COLUMN()), nato je prikazan trenutni naslov celice.

Nato pritisnite Ctrl + C da ga kopirate in z desno miškino tipko kliknite celico, da jo izberete prilepite kot vrednost.

Kopirajte trenutni naslov celice in prilepite z VBA

Tu je koda VBA, ki lahko kopira naslov celice in jo prilepi v drugo celico.

1. Pritisnite Alt + F11 tipke, da omogočite Microsoft Visual Basic for Applications okno.

2. klik Insert > Modulein prilepite spodnjo kodo v skript.

VBA: Kopirajte in prilepite naslov celice

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. Pritisnite F5 tipko, odpre se pogovorno okno za izbiro celice, ki jo želite kopirati.

4. klik OK, izberite celico, da prilepite naslov celice.

5. klik OK.