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

結果：