Range VBA复制并粘贴一系列数字

我正试图复制并粘贴一个范围，创建一个28乘28的数字网格“旋转”值，以便每次将范围粘贴到下一列时，范围向下移动一行，最后一个值“溢出”回到下一行的顶部，我已经完成了这一步，但在溢出部分（我是VBA的新手）

我还需要复制和粘贴单元格的值和格式

希望你们能帮忙 谢谢

丹

编辑： 要在索引“i”处插入Black行，请执行以下操作：

Rows(i & ":" & i).Select
Selection.Insert Shift:=xlDown

要在工作表顶部插入5行，请在索引1处插入一行5次：

For i = 1 To 5
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
Next

编辑： 要在索引“i”处插入Black行，请执行以下操作：

Rows(i & ":" & i).Select
Selection.Insert Shift:=xlDown

要在工作表顶部插入5行，请在索引1处插入一行5次：

For i = 1 To 5
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
Next

---

Ok done（不能作为新用户投票！）-顺便问一下，我如何修改上面的内容以插入上面的（空白）行？谢谢汉克斯，请看我的编辑。如果它不是你想要的，你能进一步澄清你的问题吗？好的-不完全是我的意思，对于你编写的初始代码，如果范围从B7单元格开始，它将如何修改？很抱歉，如果这些都是琐碎的问题，但我仍在努力解决语法等问题。谢谢，我已经修改了该函数，以便在给定要翻译的列、开始单元格和结束单元格的范围内，它可以执行您想要的操作。好的，完成了（不能作为新用户投票！）-顺便问一下，我如何修改上述内容以插入（空白）行？谢谢汉克斯，请看我的编辑。如果它不是你想要的，你能进一步澄清你的问题吗？好的-不完全是我的意思，对于你编写的初始代码，如果范围从B7单元格开始，它将如何修改？很抱歉，如果这些都是琐碎的问题，但我仍在努力解决语法等问题。Cheersok，我已经修改了函数，以便在给定要翻译的列、开始单元格和结束单元格的情况下，它可以执行您想要的操作。