Excel vba 根据模板生成独立表格与工作薄

代码：

Sub test()
    Dim wb As Workbook '打开的文件
    Dim wb1 As Workbook '当前文件
    Dim x As Integer
    Set wb1 = ThisWorkbook
    For x = 2 To wb1.Sheets(1).Range("a100").End(3).Row
        Set wb = Workbooks.Add
        wb.Sheets("Sheet1").Range("b1:b3") = Application.Transpose(wb1.Sheets("Sheet1").Range("b" & x, "d" & x))
        
        wb.Sheets(1).Range("a1:a3") = Application.Transpose(wb1.Sheets(1).Range("b1:d1"))
        
        
        
        wb.SaveAs ThisWorkbook.Path & "/" & wb1.Sheets(1).Cells(x, 2) & ".xlsx"
        wb.Close False
        
    Next x
    
End Sub

结果与例表：

要看你具体的Excel文档，不好妄自揣测。(如果不方便可以根据实际情况模拟数据)

不清楚，另外请大神吧