在循环中使用“cells.find”

Question

我有两列。 1表1中有一个名字（例如：美利坚合众国），另一个名字简称（例如：美国）。我试图将它与循环和查找匹配，但它不起作用。

Sub Help()

Dim ra As Range
Dim a As Integer
a = Len(Range("A2"))

Do
Set ra = Sheets(2).Cells.Find(What:=Left(Range("A2"), a), LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)

a = a - 1
Loop Until ra <> ""

Sheets(1).Range("B2").Value = ra.Offset(0, 1)

End Sub

出现“运行时错误91”变量未设置 我试图改变“设置”的位置（然后我会得到其他错误），改变我的循环，但我不能让它工作。