帮忙解释一下第二，三两行是什么意思？
Do While Worksheets(a).Cells(i, 2).Text <> ""
Set iFind = BranchName.Find(Worksheets(a).Cells(i, 2).Text) ？？？
If Not iFind Is Nothing Then ？？？
TargetRow = iFind.Row
Worksheets(a).Cells(i, 8).Value = Worksheets(1).Cells(TargetRow, 10).Value
Else
Worksheets(a).Cells(i, 8).Value = ""
End If
i = i + 1
Loop

[解决办法]
Set iFind = BranchName.Find(Worksheets(a).Cells(i, 2).Text) 'iFind等于在BranchName里面查找和工作表(a)的单元格(i, 2)的文本相同的项
If Not iFind Is Nothing Then '如果iFind不为空