建一个宏处理Dim var1 As StringDim pos As IntegerFor i = 1 To 10var1 = Cells(i, 1)pos = InStr(6, var1, -)Cells(i, 1) = Left(var1, pos - 1)Next

用EXCEL做数据库，用WORD做个发票的套打模板，利用WORD的“邮件合并”功能把EXCEL数据调入到Word文档中打印，详见“邮件合并”的相关教程。