方法一：排序法
第一步：打开工资表→在工资表最后一空白列输入1，2，3……(注：输入的数字与工资表的行数相同)
第二步：在刚输入的数字下面向下输入1.1，2.1……，比上面的数据少一行，本列在K9中输入1.1
第三步：在K列任何一个单元格中单击左键→单击工具栏上的升序排列按钮→选择工资表→编辑→定位→定位条件选择“空值”→确定。
第四步：在编辑栏中输入=A$1→按住Ctrl键不放敲回车键。
第五步：在单元格K15下方输入1.01，2.01……一直输入到6.01→单击工具栏上的升序排列按钮→删除K列的数据。加一下边框便大功告成了。
第三步：在K列任何一个单元格中单击左键→单击工具栏上的升序排列按钮→选择工资表→编辑→定位→定位条件选择“空值”→确定。
第四步：在编辑栏中输入=A$1→按住Ctrl键不放敲回车键。
第五步：在单元格K15下方输入1.01，2.01……一直输入到6.01→单击工具栏上的升序排列按钮→删除K列的数据。加一下边框便大功告成了。
方法二：函数法
第一步：打开工资表→单击Sheet2标签→在Sheet2工作表的A1单元格中输入=IF(MOD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,Sheet1!A$1,INDEX(Sheet1!$A:$N,INT((ROW()+4)/3),COLUMN())))→向后拖到J1单元格(注：拖的长度应与原表长度相同)。
第二步：选择A1:J1区域向下拖→拖到第20行即可(注：拖的时候可能拖多或拖少，这时要看一下原表)→加一下边框便成功了。
以WPS 2019版本为例：
关于如何用EXCEL 批量发送邮件批量发送工资条，您可考虑使用WPS2019来完成，具体步骤如下：
1、打开「工资表表格」，点击「开始-文档助手-工资条群发助手」；
2、「工资条群发助手」会自动识别表格的内容生成预览；
3、如不知道怎么写「工资条」还新建表格后进入「工资条群发助手」一键插入工资表模板。
4、在预览无误后，直接点击发送即可调用「系统默认邮件应用」来批量发送工资条给对应同事，每位同事只能收到自己的工资条。
- 官方电话官方服务
- 官方网站
很多人并不清楚excel表工资条批量发微信的方法是什么，过程会不会很麻烦呢？今天就让我们来详细了解一下吧。
如果使用过excel表工资条批量发微信功能的人们，应该都会知道操作过程是非常简单的，只需要找一些相关的平台（比如壹人事，20人以下的企业可以终身免费使用，所有企业免费使用1个月）。将我们做好的工资表上传到平台上，选择微信群发，就可以批量发送员工的工资条。
发放成功之后，每一个员工都可以收到自己的工资信息，并且员工也可以根据自己的姓名或者电话去查询自己的实际工资明细，操作简单，并且也能解决纸质工资表所带来的一些复杂事情，减轻了人力资源部工作人员的工作，也能让人力资源部的人员拥有更多的时间去做其他的事情。
excel表工资条批量发微信的方法你学会了吗？其实只需要找相关的平台就可以完成微信批量发放工资条的目的了，操作简单，并且发放的时间也非常快速，不会耽误人力资源部的人员过多的时间，即可快速的完成工资条的方法工作，可谓是两全其美的方法了。
看看代码，适当修改就可搞定了，
*先添加引用 Microsfo Outlook....
Sub fyj(RecieverList, cc, AttachmentFullName, TopicHeader, TextContents)
On Error Resume Next
Err.Clear
Set objoutlook = New Outlook.Application
Set objMail = objoutlook.CreateItem(olMailItem)
With objMail
If AttachmentFullName <> "" Then .Attachments.Add (AttachmentFullName)
If RecieverList <> "" Then .To = RecieverList
If cc <> "" Then .cc = cc
If TopicHeader <> "" Then .Subject = TopicHeader
If TextContents <> "" Then .Body = TextContents
.Display
.Send
End With
Set objMail = Nothing
Set objoutlook = Nothing
If Err.number <> 0 Then MsgBox Err.Description & vbCr & "邮件发送失败，部分收件人地址无效！！！"
End Sub本回答被提问者和网友采纳