从汇总表中按行提取数据填充到固定模板，如果用查找与引用函数譔如何做？ ...

宏达室内装修

从汇总表中按行提取数据填充到固定模板，并自动生成新的sheeT表。肯请大神指点迷津！这只是其中一个表格，sheet超过255也无所谓，可以新建另一个工作薄。只要方法对了就行，有兄弟帮我做了一个示例，但我有些看不明白怎么做的，希望能不吝赐教，跪谢大神！
数 据 样 本.rar (22.24 KB, 下载次数: 15)

2021-10-12 16:03 上传

点击文件名下载附件
数 据 样 本.rar
原始数据样本.rar (17.92 KB, 下载次数: 14)

2021-10-12 16:03 上传

点击文件名下载附件
原始数据样本.rar

韩鲁科

要生成多个工作表，就不是函数公式能够解决的了，只是vba才能做的事情再者，看楼主的需求，不应该是要生成工作表吧？应该是要生成多个工作簿文件吧？

打得一拳开丶免得百拳来

Sub 拆分()
Application.ScreenUpdating = False
Dim br As Variant
With Sheets("数据样本")
  br = .[a1].CurrentRegion
End With
Application.DisplayAlerts = False
For Each sh In Sheets
  If sh.Index > 2 Then sh.Delete
Next sh
Application.DisplayAlerts = True
With Sheets("档案")
  ar = Array(.[b2].Address, .[d2].Address, .[f2].Address, .[d3].Address, .[b6].Address, .[e6].Address, .[b8].Address, .[e7].Address, .[b3].Address, .[b7].Address, .[b6].Address)
  For i = 4 To UBound(br)
  If Trim(br(i, 2)) <> "" Then
    For j = 2 To 11
      .Range(ar(j - 2)) = br(i, j)
    Next j
    .Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = br(i, 1) & "_" & br(i, 2)
  End If
  Next i
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

琅璇水馥

原始数据样本.rar (114.08 KB, 下载次数: 45)

2021-10-12 16:03 上传

点击文件名下载附件
原始数据样本.rar

恋恋雨情

建议使用word邮件合并，完成结果每人一页

天北之北

厉害！下午回来我操作下，但如果只是简单的查找引用该如何做？主要是不明白原理。

劉新亮

有些看不懂啊。是如何确定对应的数据单元格的？

杨蕊铭

ar = Array(.[b2].Address, .[d2].Address, .[f2].Address, .[d3].Address, .[b6].Address, .[e6].Address, .[b8].Address, .[e7].Address, .[b3].Address, .[b7].Address, .[b6].Address)

梦雨

完美解决了我的问题！