英语 常见形近词汇总

  • 格式:pdf
  • 大小:739.01 KB
  • 文档页数:14

表格,包含了15000多个单词:
打开这个表格,新建一个名为Sheet2的工作表,
按下Alt+F11,再“插入> 模块”,
把下面的代码复制进去,然后按F5(或者Fn+F5)运行,运行结果出现在Sheet2中。

Sub Similar()
Dim s(1 To 100) As String
Dim t As String
Dim i As Integer, j As Integer, k As Integer
j = 1
s(1) = "ate": s(2) = "eer": s(3) = "ear": s(4) = "eep": s(5) = "eet"
s(6) = "eek": s(7) = "are": s(8) = "all": s(9) = "aw": s(10) = "eft"
s(11) = "ist": s(12) = "ine": s(13) = "it": s(14) = "ite": s(15) = "ot"
s(16) = "ace": s(17) = "ook": s(18) = "ull": s(19) = "ain": s(20) = "ent"
s(21) = "end": s(22) = "ead": s(23) = "ore": s(24) = "ial": s(25) = "tle"
s(26) = "irt": s(27) = "ock": s(28) = "ous": s(29) = "eck": s(30) = "eak"
For k = 1 To 30
For i = 1 To 15328
t = Worksheets("Sheet1").Cells(i, 1).Value
If Right(t, Len(s(k))) = s(k) And (Len(t) - Len(s(k)) = 1 Or _
Len(t) - Len(s(k)) = 2 Or Len(t) - Len(s(k)) = 3) Then
Worksheets("Sheet2").Cells(j, 1).Value = t
Worksheets("Sheet2").Cells(j, 2).Value = Worksheets("Sheet1").Cells(i, 2).Value
j = j + 1
End If
Next
Next
End Sub
复旦大学蒋力夫。