求帮忙Excel的表格公式,谢谢。

发布网友发布时间：2022-04-29 16:53

我来回答

共2个回答

热心网友时间：2023-11-11 20:44

参考下面网友的建议，我也觉得，你在汇总表输入数据，再按照检测表的模板生成多个表格。

下面是我虚拟的一个表格，可以参考理解一下哈。

先放上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

End Sub

运行结果显示：

剩余的结果也是这样，就不全部截图上传了。

希望能帮助你

热心网友时间：2023-11-11 20:44

你这样的操作需要使用VBA代码了，也就是编一个小程序。不仅需要填写录入，还需要随时查询时整个检测报告又能重新显示、打印…………

若是一般的操作者，反过来做也许更方便些。
只要输入在总库中，每一个报告一行数据，完整地录入总库表中，就可以使用VLOOKUP或者INDEX、OFFSET之类的一个函数公式，即可用输入检测编号来实现检测报告的显示、打印了…………

热心网友时间：2023-10-20 19:46

参考下面网友的建议，我也觉得，你在汇总表输入数据，再按照检测表的模板生成多个表格。

下面是我虚拟的一个表格，可以参考理解一下哈。

先放上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

End Sub

运行结果显示：

剩余的结果也是这样，就不全部截图上传了。

希望能帮助你

热心网友时间：2023-10-20 19:47

热心网友时间：2023-10-20 19:46

参考下面网友的建议，我也觉得，你在汇总表输入数据，再按照检测表的模板生成多个表格。

下面是我虚拟的一个表格，可以参考理解一下哈。

先放上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

End Sub

运行结果显示：

剩余的结果也是这样，就不全部截图上传了。

希望能帮助你

热心网友时间：2023-10-20 19:47

热心网友时间：2023-10-20 19:46

参考下面网友的建议，我也觉得，你在汇总表输入数据，再按照检测表的模板生成多个表格。

下面是我虚拟的一个表格，可以参考理解一下哈。

先放上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

End Sub

运行结果显示：

剩余的结果也是这样，就不全部截图上传了。

希望能帮助你

热心网友时间：2023-10-20 19:46

参考下面网友的建议，我也觉得，你在汇总表输入数据，再按照检测表的模板生成多个表格。

下面是我虚拟的一个表格，可以参考理解一下哈。

先放上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

End Sub

运行结果显示：

剩余的结果也是这样，就不全部截图上传了。

希望能帮助你

热心网友时间：2023-10-20 19:47