Excel VBA 最後のセルを取得 - 版の履歴

Piroto: /* データを削除しても、最終セル位置が元に戻らない場合 */

2021-09-26T10:43:36Z

データを削除しても、最終セル位置が元に戻らない場合

2020年2月16日 (日) 04:25にPirotoによる

2020-02-16T04:25:20Z

2020年2月15日 (土) 08:35にPirotoによる

2020-02-15T08:35:28Z

2020年2月15日 (土) 08:02にPirotoによる

2020-02-15T08:02:22Z

Piroto: ページの作成:「==Excel VBA 最後のセルを取得する== [Excel VBA] ===Excel ワークシート上の最終セルに移動する=== *Ctrl + End で最後のセルに移動す…」

2020-02-15T07:32:05Z

ページの作成:「==Excel VBA 最後のセルを取得する== [Excel VBA] ===Excel ワークシート上の最終セルに移動する=== *Ctrl + End で最後のセルに移動す…」

新規ページ

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

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

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

===Excel ワークシート上の最終セルをVBAから取得する===
====シート全体====
'A1から、Ctrl + End で取得できるセル
Dim sheet As Worksheet
Dim endCel As Range

Set sheet = ActiveSheet
Set endCel = sheet.Range("A1").SpecialCells(xlLastCell)

Debug.Print endCel.Row & "," & endCel.Column

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

----
{{include_html banner_html, "!Excel"}}

← 古い版		2021年9月26日 (日) 10:43時点における版
26行目:		26行目:
	===データを削除しても、最終セル位置が元に戻らない場合===		===データを削除しても、最終セル位置が元に戻らない場合===
	*一旦、上書き保存を行う。		*一旦、上書き保存を行う。
−
−	~~----~~
−	~~{{include_html [[banner_html]], "!Excel"}}~~

@@ 1行目: / 1行目: @@
 ==Excel VBA 最後のセルを取得する==
-[[Excel VBA]]
+[[Excel VBA]] |
 ===Excel ワークシート上の最終セルに移動する===

@@ 1行目: / 1行目: @@
-==Excel VBA 最後のセルを取得する==
+==[[Excel VBA 最後のセルを取得]]する==
 [[Excel VBA]] |
-===Excel ワークシート上の最終セルに移動する===
+===[[Excel]] ワークシート上の最終セルに移動する===
 *Ctrl + End で最後のセルに移動する
 *一旦Endキーを押して、Homeキーを押す
-===Excel ワークシート上の最終セルをVBAから取得する===
+===[[Excel]] ワークシート上の最終セルをVBAから取得する===
 ====シート全体====
   'A1から、Ctrl + End で取得できるセル
   Dim sheet As Worksheet
-  Dim endCel As Range
+  Dim endCel As [[R]]ange
   Set sheet = ActiveSheet
-  Set endCel = sheet.Range("A1").SpecialCells(xlLastCell)
+  Set endCel = sheet.[[R]]ange("A1").SpecialCells(xlLastCell)
-  Debug.Print endCel.Row & "," & endCel.Column
+  Debug.Print endCel.[[R]]ow & "," & endCel.Column
 ====列ごと====
@@ 23行目: / 23行目: @@
   targetCol = 1
   Set sheet = ActiveSheet
-  sheet.Cells(Rows.Count,targetCol).End(xlUp).Row
+  sheet.Cells([[R]]ows.Count,targetCol).End(xlUp).[[R]]ow
 ===データを削除しても、最終セル位置が元に戻らない場合===
 *一旦、上書き保存を行う。
 ----
-{{include_html banner_html, "!Excel"}}
+{{include_html [[banner_html]], "!Excel"}}