インターネット学習帳

この広告は30日以上更新がないブログに表示されております。
新規記事の投稿を行うことで、非表示にすることが可能です。

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