使用 for 循环在一些工作表中插入列

Question

早上好。

我有一张纸，格式如下：

我希望它使用 vba 是这样的：

所以我的问题是以下一个。我想获得一个 vba 代码，该代码将列插入显示的图像，例如，如果我有“3只动物”，我必须在第一个图像的 C 列和 D 列之间插入一个 D 列和 E 列。 我的工作簿在此之前有一张名为 Animal 1 的工作表，但我可以有尽可能多的工作表，“Animal 2, Animal 3, Animal 4, ...”，问题是我不知道我会做多少工作前有。所以我想要一个 vba 代码，它可以获取此表之前的表数，并插入与我将拥有的表一样多的列。

我的工作簿的工作表是：“标题，描述，动物 1，...动物 X，当前工作表”，所以我想要一个计算工作表数量的代码“动物 1，...动物 X”和插入与工作表一样多的列，就像图像中显示的那样，这将是一个只有 3 个工作表的示例。

我知道我必须用 for 循环来做，但我找不到解决它的方法，抱歉我在 vba 中很新。

非常感谢您的回答，如果有什么不清楚的地方可以问我。

PS：我正在使用这样的代码：

        Dim NumSheet As Long
        Dim I As Long

        NumSheet = ThisWorkbook.Worksheets.Count - 4 '4 sheets that I don't want to use for the columns insertion

        For I = 1 To NumSheet

            Columns("D:D").Select
            Selection.Insert Shift:=xlToRight

        Next I

Answer 1

这会计算以“Animal”开头的工作表的数量，然后在另一个工作表上插入该数量的列。

Sub x()

Dim ws As Worksheet, nCount As Long, i As Long

For Each ws In Worksheets
    If ws.Name Like "Animal*" Then nCount = nCount + 1
Next ws

With Sheets("Sheet4")
    .Columns("D:D").Resize(, nCount).Insert Shift:=xlToRight
    For i = 1 To nCount
        .Cells(1, i + 3).Value = "Price Animal " & i
    Next i
End With

End Sub