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测试的原始文件（两个表）：生成的新文件：。

本文到此分享完毕，希望对大家有所帮助。

免责声明：本文由用户上传，如有侵权请联系删除！