从多个工作表中复制合并的行数据，其中填充了特定的列

Question

我希望根据正在填充的特定列，将多个工作表中的一系列数据复制到一个摘要表中。

我使用链接上的代码： https://msdn.microsoft.com/en-us/library/cc793964(v=office.12).aspx 在标题为＆＃39;复制除多个工作表的列标题之外的所有数据的部分＆＃39;

虽然我一直在尝试修改代码，但它不是复制整张表格，而是只复制其中列“N＆＃39; N＆＃39;已填充。

我禁用了将CopyRng设置为整个工作表的代码行，并引入了For循环以检查N列 - 我让程序返回所有工作表中列N中存在的任何值，但我需要返回这些实例的整行。

以下是我对相关部分的修改代码：

None

关于我如何设置CopyRng返回整行，有没有人可以提供帮助？

感谢

Answer 1

使用

Set CopyRng = cell.EntireRow

那应该选择整行来复制。但是，如果你正在进行大量的复制和粘贴，我会对使用它略显胆怯，因为它会选择许多你不需要的单元格。如果您知道列中数据的最大范围，那么最好使用

Set CopyRng = Worksheets(SHEET_YOU_WANT).Range("A" & cell.row & ":" & furthestColumn & cell.row)

因为这将花费更少的时间来完成。