Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in


How to copy current cell address to other location in Excel?

In Excel, you can copy the contents of the current cell easily with the shortcuts or context menu, but how could you copy the current cell address to other location?

Easily Combine columns or rows without losing data in Excel

With Kutools for Excel's Combine Columns and Rows utility, you can quickly combine multuple cells based on row/column and separated by comma or space, or combine a range of cells into a single cell with specific separator.
For instance, here I do thses operations: (1.)Select Select Combine columns under To combine selected cells according to following options; (2.)Specify a separator for the combined data, here I select Space; (3.))Specify the cell you want to place your combined result; (4.)Specify how you want to deal with the combined cells.  Click for 60 days free trial!
doc combine cells 1
Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days.

Copy current cell address

Copy current cell address and paste with VBA

Copy current cell address

Here is a formula that can get current cell address in Excel.

Select a cell which you will place the cell address, type this formula =ADDRESS(ROW(),COLUMN()),then the current cell address has been displayed.
doc copy cell address 1

Then press Ctrl + C to copy it and right click a cell to select paste it as value.

doc copy cell address 2 doc arrow right doc copy cell address 3

Copy current cell address and paste with VBA

Here is the VBA code that can copy the cell address then paste it into another cell.

1. Press Alt + F11 keys to enable the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and paste below code to the script.

VBA:Copy and paste cell address

Sub AddressCopy()
    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. Press F5 key, a dialog pops out for select the cell you want to copy its address.
doc copy cell address 4

4. Click OK, select a cell to paste the cell address.
doc copy cell address 5

5. Click OK.
doc copy cell address 6

Recommended Productivity Tools for Excel

Kutools for Excel Helps You Always Finish Work Ahead of Time, and Stand Out From Crowd

  • More than 300 powerful advanced features, designed for 1500 work scenarios, increasing productivity by 70%, give you more time to take care of family and enjoy life.
  • No longer need memorizing formulas and VBA codes, give your brain a rest from now on.
  • Become an Excel expert in 3 minutes, Complicated and repeated operations can be done in seconds, 
  • Reduce thousands of keyboard & mouse operations every day, say goodbye to occupational diseases now.
  • 110,000 highly effective people and 300+ world-renowned companies' choice.
  • 60-day full features free trial. 60-day money back guarantees. 2 years of free upgrade and support.

Brings Tabbed Browsing and Editing to Microsoft Office, Far More Powerful Than The Browser's Tabs

  • Office Tab is designed for Word, Excel, PowerPoint and Other Office Applications: Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.