Microsoft Excel 工作表需要打印客服地址 打成快递单！如何操作！

用万能的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

运行该程序后，结果如图：

1、用Excel做成含客服信息（如：姓名、联系电话、单位、地址、邮编）等表格作为数据源

2、打开Word，选择：工具→信函与邮件→显示邮件合并工具栏，插入数据源（含客服信息的Excel表格），插入域→在需要位置插入（姓名、联系电话、单位、地址、邮编），查看合并数据源，就可以按顺序逐个打印了，如需一起打印，就选择”合并到新文档“

用WORD的邮件合并，或编个VBA小程序来实现都可以。