我有两本练习册1. MonthlyStats 和2. WeeklyStats
我希望将“每周一次”的“ Sheet1 ”中的所有非空单元格复制到“ SheetX ” '的 MonthlyStats '。复制的数据应作为“ SheetX ”中最后一个条目的新行插入。
此外，脚本是否可能会询问我从哪一行开始插入数据？那太好了！
提前感谢您的帮助！
PS：
答案 0 :(得分：0)
我个人认为学习VBA的最佳方法是搜索并尝试不同的代码以解决问题。对于您的问题，也许请尝试阅读这里的帖子：
Copy and Paste a set range in the next empty row
然后，您可以使用每个工作表循环将每周统计数据从不同工作表复制到月度统计信息表。希望它有所帮助
关于复制非空白单元格的问题，请尝试
Worksheets("Sheet1").Activate
ActiveSheet.UsedRange.Select
Selection.copy