12,665
回編集
差分
ナビゲーションに移動
検索に移動
編集の要約なし
==[[Excel VBA 最後のセルを取得する最後のセルを取得]]する==
[[Excel VBA]] |
===[[Excel ]] ワークシート上の最終セルに移動する===
*Ctrl + End で最後のセルに移動する
*一旦Endキーを押して、Homeキーを押す
===[[Excel ]] ワークシート上の最終セルをVBAから取得する===
====シート全体====
'A1から、Ctrl + End で取得できるセル
Dim sheet As Worksheet
Dim endCel As Range[[R]]ange
Set sheet = ActiveSheet
Set endCel = sheet.Range[[R]]ange("A1").SpecialCells(xlLastCell)
Debug.Print endCel.Row [[R]]ow & "," & endCel.Column
====列ごと====
targetCol = 1
Set sheet = ActiveSheet
sheet.Cells(Rows[[R]]ows.Count,targetCol).End(xlUp).Row [[R]]ow
===データを削除しても、最終セル位置が元に戻らない場合===
*一旦、上書き保存を行う。
----
{{include_html [[banner_html]], "!Excel"}}
© 2006 矢木浩人
