每个循环的VBA将数据从一张纸粘贴到另一张纸的底部

我试图运行一个名称列表的循环。 每个名称将更改一个单元格的值，然后更改另一个表单上的值的主机。

问题是，当我运行循环，列表中的最后一个单元格replace所有其他值。

Sub MasterBrandList() Dim ChangingBrand As String, PreVBAData As Worksheet, VBAData As Worksheet, lr As Long, rng As Range For Each c In ThisWorkbook.Worksheets("Pivots_allbrands").Range("A2:A10").Cells ThisWorkbook.Worksheets("Pivots_allbrands").Range("M1").Value = c.Value Set PreVBAData = Sheets("PreVBAData") Set VBAData = Sheets("VBAData") lr = PreVBAData.Cells(Rows.Count, 1).End(xlUp).Row Set rng = PreVBAData.Range("A2:A" & lr) rng.EntireRow.Copy VBAData.Cells(Rows.Count, 1).End(xlUp)(2) Next End Sub 

Answer 1

我认为这个问题是因为你试图在这里复制公式：

 rng.EntireRow.Copy VBAData.Cells(Rows.Count, 1).End(xlUp)(2) 

将此行replace为以下内容：

 rng.EntireRow.Copy Set r = VBAData.Cells(Rows.Count, 1).End(xlUp)(2) r.PasteSpecial xlPasteValues