您好,今天芳芳来为大家解答以上的问题。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测试的原始文件(两个表):生成的新文件:。
本文就为大家分享到这里,希望小伙伴们会喜欢。