EXCEL中，如何将一个表格中的每行数据都输出到一个单独的EXCEL文件中？

来源：百度知道 编辑：UC知道 时间：2024/09/20 17:54:34
EXCEL中如何将一个表格中的每行数据都输出到一个单独的EXCEL文件中？
例如如源表为：
姓名|年龄|联系方式|家庭住址|工种|出生日期|身份证号码
张明|35|13131313|河北廊坊|瓦工|28121966|2222222222
李明|22|12121212|陕西灵风|木匠|22051986|3333333333
想要输出的表为每人一张表（不打印，只要电子表，每个人一张表，每个表一个文件。）格式就随意了，和上面的项目是相同的，只是要在一个表里体现出来，有点像报名表的那个格式。请达人指教！！！八十分奉上！
邮件合并好像不行，邮件合并只能用来打印输出表格，我这个是要最后形成很多文件，每人一个文件，要电子版的呢。三百多人，我要疯了…… lemonandapple1的方法也不行，目标表格式和源表不同的，目标表是简历那种格式的。

在excel中，将每行数据的输出为一个独立的文本文件txt可用如下代码可以实现：

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False '关闭屏幕刷新
Dim nRow&, ncolumn& '定义区域变量
nRow = Cells(Rows.Count, 1).End(3).Row '确定最后行行号
For i = 1 To nRow '在行中进行循环
ncolumn = Cells(i, Columns.Count).End(1).Column '确定每行最后列列号
Open ThisWorkbook.Path & "\文件" & i & ".txt" For Output As #1 '创建文本进行输入内容
Print #1, Join(Application.Transpose(Application.Transpose(Range(Cells(i, 1), Cells(i, ncolumn)))), ",") '输入此行内容，以","分隔内容
Close #1 '关闭文本
Next '下次循环
Application.ScreenUpdating = True '开启屏幕刷新，与前对应
MsgBox "导出完成" '完成友好提示
End Sub

你好，根据你的提问，我可以看到以下信息：
1。为了发工资，给每个单独的人生成一个文件，便于发送到各自的邮件中；
2。最好使用“姓名”作为文件名
3。建议使用“省份证号”作为文件打开密码
怎么做呢？
1.将你的原文件复制到一个新建的文件夹，防止破坏原文件
2.从在页面上画一个按钮，名字就不要改了
3.把以下代码拷贝到“工具”——“宏”——Visual Basic Editor中.
4.点击一次按钮可以复制