最も頻繁に単語リストに載った単語は?
![最も頻繁に単語リストに載った単語は?](https://i0.wp.com/umejijuku.com/wp-content/uploads/2019/04/DSCF0937-e1554078551147.jpg?resize=310%2C315&ssl=1)
一昨日(2021年4月26日)今までにわたしがうめじ英語塾で作った153個の単語リストの単語・熟語を一つにまとめたら、のべ7,440項目あることがわかりました。
昨日(4月27日)新たに8個の単語リストが見つかり、それらを加えたら、計161個のリストで、のべ7,646項目になりました。
その中で、どの単語・熟語が最も頻繁にリストに登場したかを調べてみました。
7,646項目を自分でチェックするのは大変なので、エクセルのマクロを書いてみました。下のマクロは「”実験”というシートのB列の行数を数え、下の方からすぐ上の行と比較して、B列(単語や熟語)が同じだったら、上の行のD列(出現数)にそれぞれの出現数を足したものを入力してから、下の方の行を削除せよ」という仰々しい命令です(笑)。なお、マクロを実行する前に、D列に1を入力しておきます。
Sub 重複する行の削除()
Dim r As Integer, i As Integer
r = Worksheets(“実験”).Cells(Rows.Count, “B”).End(xlUp).Row
‘重複する単語の削除
For i = 1 To r
If Cells(r + 2 – i, 2) = Cells(r + 1 – i, 2) Then
Cells(r + 1 – i, 4) = Cells(r + 2 – i, 4) + Cells(r + 1 – i, 4)
Cells(r + 2 – i, 2).EntireRow.Delete
Else
End If
Next i
End Sub
さて、その結果、最も頻繁に単語リストに載った単語は、24回で provide でした。この単語は動詞で「提供する、供給する」という意味です。
provide A with B / provide B for A
A(人)にB(もの)を提供する[供給する]
The workshop provided me with an opportunity to learn something new.
そのワークショップで新しいことを学ぶ機会に恵まれた。
のように使います。本日もブログにお付き合いいただき、ありがとうございます。(笑)
-
前の記事
エクセルのマクロを書く 2021.04.27
-
次の記事
2021年5月-6月の入塾説明会のご案内 2021.04.29