求帮忙Excel的表格公式,谢谢。
参考下面网友的建议,我也觉得,你在汇总表输入数据,再按照检测表的模板生成多个表格。
下面是我虚拟的一个表格,可以参考理解一下哈。
先放上VBA代码:
Sub test()
Dim i, j, arr
arr = Sheets("汇总表").Range("A1").CurrentRegion
For i = 2 To UBound(arr)
Worksheets.Add after:=Worksheets(Worksheets.Count)
With Worksheets(i + 1)
.Name = arr(i, 2) & arr(i, 3)
Worksheets("检测表").UsedRange.Copy Worksheets(i + 1).Cells(1, 1)
.Range("B2") = arr(i, 1)
.Range("D2") = arr(i, 2)
.Range("D3") = arr(i, 3)
.Range("B3") = arr(i, 4)
.Range("B4") = arr(i, 5)
.Range("B5") = arr(i, 6)
.Range("B6") = arr(i, 7)
.Range("B7") = arr(i, 8)
End With
Next
End Sub
运行结果显示:
剩余的结果也是这样,就不全部截图上传了。
希望能帮助你