Question

我正在尝试使用VBA宏为sheet1中指定的不同项创建工作表倍数。

例如，我在sheet1中有一个表，其中包含一些测试类型和测试时间。

Test Type          Times Tested
   a                     1  
   b                     2  
   c                     1  
   d                     2

我希望宏根据测试类型和测试时间创建具有以下名称的工作表集：a_1，b_1，b_2，c_1，d_1和d_2。

以下是我为测试类型编写的代码，该代码仅创建名称为a，b，c和d

的工作表

Sub GenerateWorksheets()
    Dim MyCell As Range, MyRange As Range

    Set MyRange = Sheets("Sheet1").Range("A2")
    Set MyRange = Range(MyRange, MyRange.End(xlDown))

    For Each MyCell In MyRange
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = MyCell.Value
    Next MyCell
End Sub

Answer 1

将名称前缀和后缀数量收集到数组中。

id|name|supplier|quanity|price

1|Product 1|Wallmart|10|50
2|Product 1|Wallmart|10|50

使用VBA宏为相同类型创建工作表倍增时间

1 个答案: