Microsoft Excel 工作表需要打印客服地址 打成快递单！如何操作！
发布网友
发布时间：2022-04-28 20:07
共3个回答
热心网友
时间：2023-09-14 23:48
用万能的VBA可以实现。举例说明。
第一步：建立一张客户数据表，如图：
第二步：创建一张送货单模板。如图：
第三步：编制一个宏程序。代码如下：
Sub 生成快递单()
Dim MYS As String
Dim I As Integer
Dim MCN, MADD As String '存放客户名及客户地址
MYS = "客户表"
Sheets(MYS).Select
I = 2
Do While Cells(I, 1) <> ""
MCN = Cells(I, 1)
MADD = Cells(I, 2)
Sheets("送货单模板").Select
Columns("A:D").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
ActiveSheet.Name = MCN
Cells(1, 2) = MCN
Cells(3, 3) = MADD
Cells(8, 4) = Date
Sheets(MYS).Select
I = I + 1
Loop
End Sub
运行该程序后，结果如图：
热心网友
时间：2023-09-14 23:49
1、用Excel做成含客服信息（如：姓名、联系电话、单位、地址、邮编）等表格作为数据源
2、打开Word，选择：工具→信函与邮件→显示邮件合并工具栏，插入数据源（含客服信息的Excel表格），插入域→在需要位置插入（姓名、联系电话、单位、地址、邮编），查看合并数据源，就可以按顺序逐个打印了，如需一起打印，就选择”合并到新文档“
热心网友
时间：2023-09-14 23:49
