Jak zkopírovat aktuální adresu buňky do jiného umístění v aplikaci Excel?
V aplikaci Excel můžete snadno zkopírovat obsah aktuální buňky pomocí zkratek nebo místní nabídky, ale jak můžete zkopírovat aktuální adresu buňky do jiného umístění?
Zkopírujte aktuální adresu buňky
Zkopírujte aktuální adresu buňky a vložte ji pomocí VBA
Zkopírujte aktuální adresu buňky
Zde je vzorec, který umožňuje získat aktuální adresu buňky v aplikaci Excel.
Vyberte buňku, do které umístíte adresu buňky, zadejte tento vzorec =ADDRESS(ROW(),COLUMN()), poté se zobrazí aktuální adresa buňky.
Pak stiskněte tlačítko Ctrl + C zkopírujte jej a kliknutím pravým tlačítkem vyberte buňku jako hodnotu.
![]() | ![]() | ![]() |

Odemkněte Excel Magic pomocí Kutools AI
- Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
- Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
- Kódování VBA: Napište a implementujte kód VBA bez námahy.
- Výklad vzorce: Snadno porozumíte složitým vzorcům.
- Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.
Zkopírujte aktuální adresu buňky a vložte ji pomocí VBA
Zde je kód VBA, který dokáže zkopírovat adresu buňky a poté ji vložit do jiné buňky.
1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic for Applications okno.
2. cvaknutí Insert > Modulea vložte níže uvedený kód do skriptu.
VBA : Zkopírujte a vložte adresu buňky
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. lis F5 klíč, objeví se dialogové okno pro výběr buňky, do které chcete zkopírovat její adresu.
4. cvaknutí OK, vyberte buňku a vložte adresu buňky.
5. cvaknutí OK.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!