excel如何批量生成信息

Question

第一张表，录入姓名
李大
张三
刘强
郭靖第二张表生成信息
李大的爸爸叫
李大的妈妈叫
李大的哥哥叫
李大的弟弟叫
李大的姐姐叫
李大的妹妹叫
张三的爸爸叫
张三的妈妈叫
张三的哥哥叫
张三的弟弟叫
张三的姐姐叫
张三的妹妹叫
刘强的爸爸叫
刘强的妈妈叫
刘强的哥哥叫
刘强的弟弟叫
刘强的姐姐叫
刘强的妹妹叫
郭靖的爸爸叫
郭靖的妈妈叫
郭靖的哥哥叫
郭靖的弟弟叫
郭靖的姐姐叫
郭靖的妹妹叫

Answer 1

Sub asdf()
    Dim Relations(5) As String, RName As String
    Relations = Split("爸爸 妈妈 哥哥 弟弟 姐姐 妹妹")
    For i = 1 To 4
        RName = Sheet1.Cells(i, 1)
        For Each Relation In Relations
            Sheet2.Cells(UsedRange.Rows.Count + 1, 1) = RName & "的" & Relation & "叫"
        Next
    Next i
End Sub