帮忙解释一下第二,三两行是什么意思?解决思路
帮忙解释一下第二,三两行是什么意思?
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不为空
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不为空