基於列表的vba復制和粘貼循環

Question

我正在嘗試編寫一個宏，該宏將根據另一個工作表上的列表復制和粘貼一組特定的單元格。 我有一組單元格 A2:E7，每次列表中的新名稱更改直到列表末尾時，都需要將其復制到新的空白行。 A2 將由列表中的每個名稱填充，直到在列表中遇到一個空白單元格。

在名為“摘要”的選項卡上復制和粘貼帶有描述的循環的公式

該列表從名為 Master 的單獨選項卡上的 B2 開始

Answer 1

我相信以下應該有效，為了安全起見，我會刪除 Medina-15-17 第 11 行中的數據：

'The 2 refers to column "B" on the Master worksheet, change to 1 if in column "A"
summary_row = Worksheets("Master").Cells(Rows.Count, 2).End(xlUp).Row

For Each cell In Worksheets("Master").Range("B2:B" & summary_row)
    'this gets a new row count for each iteration 
    temp_row = Worksheets("Summary").Cells(Rows.Count, 1).End(xlUp).Row

    With Worksheets("Summary")
        'this copy/pastes the templated range 
        .Range("A1:E7").Copy Range("A" & temp_row + 2)

        'this inserts, from the master worksheet, the title 
        .Range("A" & temp_row + 2).Value = cell
    End With
Next cell