Excel 如何自动生成往来函证-excel询证函,excel表格标准格式

既可以用函数vlookup()实现也可以用vba实现。你没有给出截图截图很难具体帮助你。

Sub 询证函()
Dim d As Range, Arr, m&, i&
Arr = Sheet2.[a2].CurrentRegion
Sheet3.Activate
Sheet3.Cells.Clear
Set d = Sheet1.[a1:i40]
m = 1
For i = 2 To UBound(Arr)
If Arr(i, 2) = "" Then Exit For
If Arr(i, 2) = "√" Then '如果B3为√，则执行下列程序
d.Copy
Cells(m, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteColumnWidths
Selection.PasteSpecial Paste:=xlPasteFormats
Cells(m + 5, 1) = Arr(i, 3) & "：" '模板中的A6的值是往来信息e799bee5baa6e79fa5e98193e78988e69d83332表中C3的值
Cells(m + 5, 6) = "发函编号：" & Arr(i, 1) '模板中的D5的值是往来信息表中A3的值
Cells(m + 14, 2) = Arr(i, 4) '模板中的B15的值是往来信息表中D3的值
Cells(m + 14, 4) = Arr(i, 5) '模板中的C15的值是往来信息表中E3的值
Cells(m + 14, 6) = Arr(i, 6) '模板中的D15的值是往来信息表中F3的值
Cells(m + 14, 8) = Arr(i, 7) '模板中的E15的值是往来信息表中G3的值
End If
Rows(m + 1).RowHeight = 14.25
Rows(m + 3).RowHeight = 20.25
Rows(m + 7).RowHeight = 67.5
Rows(m + 19).RowHeight = 54
Rows(m + 9).RowHeight = 40.5
m = m + 42
'Range("a" & m - 1).Select
'ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
'一个单位的询证函生成完毕
Next
Application.ScreenUpdating = True
End Sub

建议使用EXCEL和WORD配合
使用WORD有邮件合并功能

WORD的邮件合并功能是专门完成这样的需求的