求教各位大神！！

图一

图二

Sheet 20021101

Sheet 20021102
不知道问题有没有解决，我是写宏解决的，没想到简单方法，如果有简单方法的话也分享一下哈~~
下面是宏代码
Sub getChilds()
Dim relation As String, peopleNumber As Integer, k As Integer, m As Integer, n As Integer
Dim ownerName As String, childName As String
For k = 2 To 10
Sheets("20021101").Select
relation = Cells(k, 4)
If relation = "»§Ö÷" Then
Dim result As String
ownerName = Cells(k, 2)
peopleNumber = Cells(k, 3)
For n = k + 1 To k + peopleNumber
If Cells(n, 7) <> "" Then
childName = Cells(n, 2)
result = result & " " & childName & Cells(n, 7)
End If
Next
Sheets("20021102").Select
For m = 2 To 3
If Cells(m, 2) = ownerName Then
Cells(m, 5) = result
End If
Next
result = ""
End If
Next
End Sub