Come copiare l'indirizzo della cella corrente in un'altra posizione in Excel?

In Excel, puoi copiare facilmente il contenuto della cella corrente utilizzando le scorciatoie da tastiera o il menu contestuale, ma come potresti copiare l'indirizzo della cella corrente in un'altra posizione?

Copia indirizzo cella corrente

Copia indirizzo cella corrente e incolla con VBA

Copia indirizzo cella corrente

Ecco una formula che può ottenere l'indirizzo della cella corrente in Excel.

Seleziona una cella in cui inserire l'indirizzo della cella, quindi digita questa formula =INDIRIZZO(RIF.RIGA();RIF.COLONNA())e l'indirizzo della cella corrente verrà visualizzato.

Quindi premi Ctrl + C per copiarlo e fai clic con il tasto destro su una cella per selezionare 'Incolla come valore'.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Copia indirizzo cella corrente e incolla con VBA

Ecco il codice VBA che può copiare l'indirizzo della cella e incollarlo in un'altra cella.

1. Premi i tasti Alt + F11 per abilitare la finestra di Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nello script.

VBA: Copia e incolla indirizzo cella

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. Premi F5 viene visualizzata una finestra di dialogo per selezionare la cella di cui vuoi copiare l'indirizzo.

4. Clicca OKseleziona una cella in cui incollare l'indirizzo della cella.

5. Clicca OK.