excel批量生成标题、文章，并导出到txt文档

excel批量生成标题、文章代码：

=CONCATENATE(OFFSET(A$1,RAND()*COUNTA($A:$A),),OFFSET(B$1,RAND()*COUNTA($B:$B),),OFFSET(C$1,RAND()*COUNTA($C:$C),),OFFSET(D$1,RAND()*COUNTA($D:$D),))

导出到txt文档代码：

右键“查看代码”-复制代码进去，修改相应路径、总行数

Sub?DaoChu()
Dim?I?As?Integer
For?I?=?1?To?500??'根据总行数进行修改
Open?"D:\按行导出\第"?&?I?&?"行.txt"?For?Output?As?1?'输出目录和文档名称自行修改
Print?#1,?Range("A"?&?CStr(I)).Value
Close?1
Next?I
MsgBox?"数据导出完毕!",?vbOKOnly,?"导出成功"
End?Sub