将工作表中的所有非空单元格复制到另一个工作簿中的另一个工作表答案

【问题标题】：Copy all non empty cells in a sheet to another sheet in another workbook将工作表中的所有非空单元格复制到另一个工作簿中的另一个工作表
【发布时间】：2015-02-24 08:49:17
【问题描述】：

我有两个工作簿 1. MonthlyStats 和 2. WeeklyStats

我希望将“WeeklyStats”的“Sheet1”中的所有非空单元格复制到“SheetX”的“SheetX” '每月统计'。复制的数据应作为新行从“SheetX”中的最后一个条目插入。

另外，脚本是否可能询问我从哪一行开始插入数据？那太好了！

提前感谢您的帮助！

PS：

我使用的是 Excel 2010
没有关于从 WeeklyStats 的 Sheet1 复制什么的条件。应复制所有包含数据的行。

【问题讨论】：

为什么需要 VBA？ Excel 提供复制和粘贴非空行的功能。
尝试录制宏并手动完成这些步骤。查看录制期间生成的代码，这将为您提供一个很好的起点！然后，您可以在这里发回并向我们展示您的代码以及您能够弄清楚的内容。
您真的希望它询问您将新行放在哪里还是只是将它们添加到底部？
@PankajJaju - 这是因为脚本将成为我正在编写的更大脚本的一部分。 #Blackhawk - 当然我会尝试#PermaNoob - 我也可以将行添加到底部。

标签： vba excel spreadsheet

【解决方案1】：

我个人认为学习 VBA 的最佳方法是搜索并尝试不同的代码以解决问题。对于您的问题，也许可以尝试阅读此处的帖子：

Copy and Paste a set range in the next empty row

然后，您可以使用 For each sheet 循环将每周统计数据从不同工作表复制到每月统计数据表。希望对你有帮助

关于复制非空白单元格的问题，请尝试

Worksheets("Sheet1").Activate 
ActiveSheet.UsedRange.Select
Selection.copy

【讨论】：