インターネット学習帳

Sub Sample()

　Dim myRng1 As Range
　Dim myRng2 As Range
　Set myRng1 = Cells(1, Columns.Count)

　　With myRng1
　　　If Len(.PrefixCharacter & .Formula) > 0 Then
　　　　Set myRng2 = myRng1 '右端のセルが該当する場合
　　　Else
　　　　With .End(xlToLeft)
　　　　　If Len(.PrefixCharacter & .Formula) > 0 Then
　　　　　　Set myRng2 = .Cells(1)
　　　　　End If
　　　　End With
　　　End If
　　End With

　　If myRng2 Is Nothing Then
　　　MsgBox "何も入力されていません。"
　　Else
　　　myRng2.Select '確認用
　　　MsgBox myRng2.Address
　End If

　Set myRng1 = Nothing 'オブジェクトの解放
　Set myRng2 = Nothing

End Sub