365天存钱法表格打印(365天存钱法表格下载)
365天存钱法表格打印,365天存钱法表格下载相信很多小伙伴还不知道,现在让我们一起来看看吧!
1、365确实有点多,手工复制很累的,可以写宏来复制。
2、例如下面的代码:Option ExplicitSub YgB() Dim st As Worksheet, stNew As Worksheet, i Workbooks.Add Set stNew = ActiveSheet i = 1 For Each st In ThisWorkbook.Sheets stNew.Cells(i, 1) = ***.Name st.UsedRange.Copy stNew.Cells(i, 2) i = stNew.UsedRange.Rows.Count + 1 Next stEnd Sub测试的原始文件(两个表):生成的新文件:。
本文就为大家分享到这里,希望小伙伴们会喜欢。
本文由'一条小恨烟'发布,不代表演示站立场,转载/删除联系作者,如需删除请-> 关于侵权处理说明。