[ホーム] ＞ [VBScript FAQ 一覧] ＞ [Excel セルの中の改行を判定]

Excel セルの中の改行を判定 | VBScript / VBA FAQ

Excelの改行の反転は vbLf で行います。
vbCrLfやchr(13)では改行は判定できません。

以下、Excelのセル(A1)の中の改行の数をカウントします。

str = Range("A" & 1).Value
a = 0
For i = 1 To Len(str)
If Right(Left(str, i), 1) = vbLf Then
a = a + 1
End If
count_return = a
Next

[ホーム] ＞ [VBScript FAQ 一覧]