インターネット学習帳

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

Sub Sample()

　Dim myRng1 As Range
　Dim myRng2 As Range
　Set myRng1 = Range("A1:C30") '任意のセル範囲

　　On Error Resume Next
　Set myRng2 = myRng1.SpecialCells _
　　(Type:=xlCellTypeConstants, Value:=xlTextValues)
　On Error GoTo 0

　　If myRng2 Is Nothing Then
　　　MsgBox "対象セルはありません"
　　Else
　　　myRng2.Select '確認用
　　　MsgBox myRng2.Address
　　End If

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

End Sub