Find (x.Range("B" & i), LookIn:=xlValues) If Not c Is Nothing Then x.Range("h" & i).Value = c.Offset(0, 4).Value MsgBox "成功" End If End With Loop End Sub.
確定！ 回上一頁
