Excel 如何应用将列向下移动到所有图纸的VBA代码？

我正在尝试将此VBA代码应用于所有图纸，但无效：

    Sub MoveColsDown()
' MovetoA16 Macro
For Each sh In ThisWorkbook.Worksheets
    Range("A1:I1171").Select
    Selection.Cut Destination:=Range("A16:I1186")
Next

End Sub

本质上，我试图选择一张工作表中的所有内容并将其向下移动，以便数据的左上角现在位于A16，而不是A1

对我来说，可能还有更好的方法来选择所有数据？现在，我只指定了一个范围，这个范围远远大于任何数据所占用的空间

提前谢谢

---

另外，如果有一种方法可以排除某些纸张，使其无法应用此过程，我很想了解。。。e、 g.标题为“Dashboard”的工作表。

只需在工作表顶部插入15行即可

Sub MoveColsDown()

    dim sh as worksheet
    For Each sh In ThisWorkbook.Worksheets
        if sh.name <> "Dashboard" then
            sh.Range("1:15").entirerow.insert
        end if
    Next sh

End Sub

Sub-MoveColsDown（）
将sh设置为工作表
用于此工作簿中的每个sh。工作表
如果sh.name为“Dashboard”，则
sh.Range（“1:15”）.entirerow.insert
如果结束
下一个sh
端接头

只需在工作表顶部插入15行即可

Sub MoveColsDown()

    dim sh as worksheet
    For Each sh In ThisWorkbook.Worksheets
        if sh.name <> "Dashboard" then
            sh.Range("1:15").entirerow.insert
        end if
    Next sh

End Sub

Sub-MoveColsDown（）
将sh设置为工作表
用于此工作簿中的每个sh。工作表
如果sh.name为“Dashboard”，则
sh.Range（“1:15”）.entirerow.insert
如果结束
下一个sh
端接头

只需限定范围：

Sub MoveColsDown()
' MovetoA16 Macro
    For Each sh In ThisWorkbook.Worksheets
        sh.Range("A1:I1171").Cut Destination:=sh.Range("A16:I1186")
    Next

End Sub

注:

---

我们不需要

选择

只需限定范围：

Sub MoveColsDown()
' MovetoA16 Macro
    For Each sh In ThisWorkbook.Worksheets
        sh.Range("A1:I1171").Cut Destination:=sh.Range("A16:I1186")
    Next

End Sub

注:

我们不需要

选择