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

Question

我有两本练习册1. MonthlyStats 和2. WeeklyStats

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

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

提前感谢您的帮助！

PS：

1. 我正在使用Excel 2010
2. 没有条件从WeeklyStats的Sheet1复制什么。应该复制包含数据的所有行。

Answer 1

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

Copy and Paste a set range in the next empty row

然后，您可以使用每个工作表循环将每周统计数据从不同工作表复制到月度统计信息表。希望它有所帮助

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

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