基于列表的vba复制和粘贴循环答案

【问题标题】：vba copy and paste loop based on list基于列表的vba复制和粘贴循环
【发布时间】：2018-09-14 19:23:25
【问题描述】：

我正在尝试编写一个宏，该宏将根据另一个工作表上的列表复制和粘贴一组特定的单元格。我有一组单元格 A2:E7 每次列表上的新名称更改直到列表末尾时都需要复制到一个新的空白行。 A2 将由列表中的每个名称填充，直到在列表中遇到空白单元格。

用于在名为“摘要”的选项卡上复制和粘贴带有描述的循环的公式

列表从 B2 开始，位于名为 Master 的单独选项卡上

【问题讨论】：

你能发布你到目前为止的代码吗？
我是 VBA 新手，所以我目前没有任何代码。我一直在寻找类似的东西来玩，但对我的确切需求没有任何帮助。
欢迎来到Stack Overflow！ 一个好的起点是googling the title of your question，它与您的问题几乎逐字逐句地匹配。查看tour（您将获得第一个徽章！）这是一个程序员编写自己的代码并分享特定问题的网站 b> 尝试自行解决后。请参阅help center，了解有关本网站主题内容以及如何创建 minimal reproducible example 的更多信息。
Excel VBA - Copy and Paste Loop in VBA based on cell value的可能重复
首先记录一个你实际做的宏......然后检查代码并修改......@ChadB

标签： excel vba list loops copy-paste

【解决方案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

【讨论】：

这正是我想要的。非常感谢。我必须将输入的名称从 .Range("A" & temp_row + 2).Value = cell 修改为 .Range("A" & temp_row + 3).Value = cell 才能正确输入名称细胞