Excel VBA 最後のセルを取得のソースを表示

==[[Excel VBA 最後のセルを取得]]する==
[[Excel VBA]] | 

===[[Excel]] ワークシート上の最終セルに移動する===

*Ctrl + End で最後のセルに移動する
*一旦Endキーを押して、Homeキーを押す

===[[Excel]] ワークシート上の最終セルをVBAから取得する===
====シート全体====
 'A1から、Ctrl + End で取得できるセル
 Dim sheet As Worksheet
 Dim endCel As [[R]]ange
    
 Set sheet = ActiveSheet
 Set endCel = sheet.[[R]]ange("A1").SpecialCells(xlLastCell)
 
 Debug.Print endCel.[[R]]ow & "," & endCel.Column

====列ごと====
 '1列目の最下行からCtrl + ↑ で取得できる行
 Dim targetCol as Integer
 targetCol = 1
 Set sheet = ActiveSheet
 sheet.Cells([[R]]ows.Count,targetCol).End(xlUp).[[R]]ow  
===データを削除しても、最終セル位置が元に戻らない場合===
*一旦、上書き保存を行う。