Remove cell data

[jjs0713]

Hi ! All
I need your help.
I want to move end of cell data at cell of different sheet.

ex) A1
1 (cell A1)
2

 

[Bernie Deitrick]

The standard technique to find the last cell value in a list is to use

=OFFSET(Sheet1!$A$1,COUNTA(Sheet1!$A:$A)-1,0)

This will work as long as you don't have any empty cells in the middle of your list, and your list starts in A1. Otherwise, you
will need a more complex formula, or other adjustments.

To actually move the last cell value will require a macro.

Sub MoveCell()
Range("A65536").End(xlUp).Cut Range("D65536").End(xlUp)(2)
End Sub

will move the last value from column A to the bottom of column D.

HTH,
Bernie
Excel MVP