Excel-使用母版图纸上的一个单元格在另一个选项卡上填充多个信息

我正在为一个钓鱼比赛创建一个工作簿，其中有多个比赛供渔民注册。我有一份包含所有信息的主表，包括他们可以报名参加的每项比赛的单元。如果手机中有一个“X”，我想将第一个、最后一个手机填充到另一个页面以创建注册页面。一个图像是主图像，如果一个湖有一个X，我想填充图像2中的信息

图1：

图2：

---

下面是一个简单的示例，演示如何在工作表之间移动数据：

Sub PopulateNames()

Dim c As Range
With Sheets("Master")
    'Loop through all cells in column D looking for "X"
    For Each c In .Range("D2:D" & .Cells(Rows.CountLarge, "D").End(xlUp).Row)
        If c.Value = "X" Then
            'Copy the data from column A-C over to Tournament1 Sheet
            .Range("A" & c.Row & ":C" & c.Row).Copy Sheets("Tournament1").Range("A" & _
                Sheets("Tournament1").Cells(Rows.CountLarge, "A").End(xlUp).Row + 1)
        End If
        'Optionally resize columns so contents fit
        Sheets("Tournament1").Columns.AutoFit
    Next c
    'Loop through all cells in column E looking for "X"
    For Each c In .Range("E2:E" & .Cells(Rows.CountLarge, "E").End(xlUp).Row)
        If c.Value = "X" Then
            'Copy the data from column A-C over to Tournament2 Sheet
            .Range("A" & c.Row & ":C" & c.Row).Copy Sheets("Tournament2").Range("A" & _
                Sheets("Tournament2").Cells(Rows.CountLarge, "A").End(xlUp).Row + 1)
        End If
        'Optionally resize columns so contents fit
        Sheets("Tournament2").Columns.AutoFit
    Next c
End With

End Sub

请注意，这不会在移动图纸之前清除图纸中的数据-它会通过查找A列中的最后一行将其附加到图纸的末尾

结果:

---

这在VBA中是一项相当容易的工作，可以填充表单。我可能建议你从这里开始看。另外，如果这些是真实的电话号码，你可能不应该显示它们。另外，看起来你缺少了图片2的链接