宏达室内装修 发表于 2021-10-12 16:03:00

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

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

韩鲁科 发表于 2021-11-16 06:09:43

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

打得一拳开丶免得百拳来 发表于 2021-11-25 06:28:32

Sub 拆分()
Application.ScreenUpdating = False
Dim br As Variant
With Sheets("数据样本")
br = ..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(..Address, ..Address, ..Address, ..Address, ..Address, ..Address, ..Address, ..Address, ..Address, ..Address, ..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

琅璇水馥 发表于 2021-11-25 17:11:44

恋恋雨情 发表于 2021-11-28 06:34:22

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

天北之北 发表于 2021-12-22 08:46:44

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

劉新亮 发表于 2021-12-24 16:02:03

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

杨蕊铭 发表于 2022-1-3 11:48:43

ar = Array(..Address, ..Address, ..Address, ..Address, ..Address, ..Address, ..Address, ..Address, ..Address, ..Address, ..Address)

梦雨 发表于 2022-1-13 04:51:29

完美解决了我的问题！
页: [1]
查看完整版本: 从汇总表中按行提取数据填充到固定模板，如果用查找与引用函数譔如何做？ ...