文字列から文字を検索 (ID:91741)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Dim I As Integer Dim IntStart As Intger Dim IntCount As Integer Dim Str As String Do Until InStr(IntStart+1,Str,VbCrLf) = 0 IntStart = InStr(IntStart+1,Str,VbCrLf) IntCount = IntCount+1 Loop こんなもんすかね