将数据从一个工作表复制到另一个工作表中的下一个可用行
将数据从一个工作表复制到另一个工作表中的下一个可用行
提问于 2017-04-25 02:55:03
我以前从未使用过宏，但是谁能告诉我下面的宏中遗漏了什么，所以表1中的数据将被复制到表2中的下一个可用行中？我试过"LastRow"，“NextRow”命令，但我不能正确理解。任何帮助都是最好的。
Sheets("Sheet1").Range("B2").Select
Selection.Copy
iRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(x1up).Row + 1
Sheets("Sheet2").Range ("B" & iRow)
ActiveSheet.PasteStack Overflow用户
发布于 2018-04-03 02:51:45
关于这一点，我有以下代码。但是，我的问题是这个宏的多个版本正在运行，并将信息拉到同一张工作表中。我需要能够让宏找到下一行，而不是覆盖页面上已经存在的内容。
子Product_Value_In_Specific_Row()尺寸c作为范围尺寸J作为整数尺寸源作为工作表尺寸目标作为工作表
' Change worksheet designations as needed
Set Source = ActiveWorkbook.Worksheets("mongodb")
Set Target = ActiveWorkbook.Worksheets("Inputs")
J = 2 ' Start copying to row 1 in target sheet
For Each c In Source.Range("A2:A100") ' Do 1000 rows
If c = "Product" then
Source.Rows(c.Row).Copy Target.Rows(J)
J = J + 1
End If
Next c结束子对象
我一直在通过将"J = 2“行改为向下几行来解决这个问题，但我的其他表有不同数量的行，并且希望它们只复制并粘贴到输入表中，而不是互相覆盖。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/43595726
复制相关文章
相似问题
腾讯云开发者
