'2行目以降の単語のrやｌの数を数える。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

n = 2

Worksheets(1).Cells(1, 2) = "r"

Worksheets(1).Cells(2, 3) = "l"

Worksheets(1).Cells(3, 2) = "r + l"

Do Until Worksheets(1).Cells(n, 1) = ""

aa = Worksheets(1).Cells(n, 1)

a1 = Len(aa)

r = 0: l = 0

For m = 1 To a1

If Mid(aa, m, 1) = "r" Then r = r + 1

If Mid(aa, m, 1) = "l" Then l = l + 1

Next

Worksheets(1).Cells(n, 2) = r

Worksheets(1).Cells(n, 3) = l

Worksheets(1).Cells(n, 4) = r + l

n = n + 1

Loop

End Sub

備忘録