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!
|Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days.|
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.
Then press Ctrl + C to copy it and right click a cell to select paste it as value.
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() '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. Press F5 key, a dialog pops out for select the cell you want to copy its address.
4. Click OK, select a cell to paste the cell address.
5. Click OK.