邮件合并实现一个编号的文件中实现多行excel数据的统计?

发布网友 发布时间：2022-04-29 14:52

我来回答

共3个回答

热心网友 时间：2023-10-12 23:53

这种情况应不可以Word邮件合并，因为一行对一页，除非你把相同数据改成一行处理，很费时费力。

更好办法是你可以应用Excel邮件合并的多行一表法处理。

1、处理方法制表（两个表，数据表和输出表）

用Excel开发建筑工程资料的系统

2、生成每个表

运行下面宏

Sub 批量生成JLB样表()

Dim bmax0 As Long, bmax As Long, i As Long, my As Range, my1 As Range, my2 As Range, c As Range, st As String

bmax0 = Application.InputBox(Prompt:="生成表最小值", Type:=1)

bmax = Application.InputBox(Prompt:="生成表最大值", Type:=1)

If bmax0 > bmax Then Exit Sub

st = ActiveSheet.Name

For i = bmax0 To bmax

Sheets("LPIN").Range("b3").Value = i

Sheets(st).Copy After:=Sheets(Sheets.Count)

ActiveSheet.Name = st & i

    ActiveSheet.Cells.Select

   ActiveSheet.Cells.Copy

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

   :=False, Transpose:=False

    Application.CutCopyMode = False

   ActiveSheet.Cells(1, 2).Select

Next i

MsgBox "完成。"

End Sub

热心网友 时间：2023-10-12 23:54

热心网友 时间：2023-10-12 23:54