Excel - 在主表单上使用一个单元格填充另一个选项卡上的多个信息

Question

我正在为具有渔民可以注册的多个锦标赛的钓鱼锦标赛创建工作簿。我有一张包含所有信息的主表，包括他们可以注册的每个比赛的单元格。如果单元格中有“X”，我想将第一个，最后一个，电话填充到另一个页面以创建注册页面。一个形象是高手，如果湖中有一席要填充的图像的信息2

图片1：

图片2：

Answer 1

这里是你展示如何一个简单的例子通过观察f，就会将它们附加到的片材的端部 -

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

结果：