2023年01月10日
値が表示されている最終セルを取得する（単一行対象）
Sub Sample()
Dim myRng As Range
Set myRng = Rows(1).Find(What:="*", After:=Range("A1") _
, LookIn:=xlValues, SearchDirection:=xlPrevious)
If myRng Is Nothing Then
MsgBox "何も入力されていません。"
Else
myRng.Select '確認用
MsgBox myRng.Address
End If
MsgBox myRng.Address
Set myRng = Nothing 'オブジェクトの解放
End Sub
Dim myRng As Range
Set myRng = Rows(1).Find(What:="*", After:=Range("A1") _
, LookIn:=xlValues, SearchDirection:=xlPrevious)
If myRng Is Nothing Then
MsgBox "何も入力されていません。"
Else
myRng.Select '確認用
MsgBox myRng.Address
End If
MsgBox myRng.Address
Set myRng = Nothing 'オブジェクトの解放
End Sub
【このカテゴリーの最新記事】
-
no image
-
no image
-
no image
-
no image
-
no image
-
no image
-
no image
-
no image
この記事へのコメント
コメントを書く
この記事へのトラックバックURL
https://fanblogs.jp/tb/11820437
※ブログオーナーが承認したトラックバックのみ表示されます。
この記事へのトラックバック