西安37建站:专注于各类网站建设、seo优化关键词排名、免费网站诊断、竞价托管、分销商城系统建立。微信:1346597247

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

西安37建站优化——0基础学SEO优化,毫不费力!

当前位置: 首页 » SEO优化 » excel批量生成标题、文章,并导出到txt文档

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

西安37建站优化 2018-01-26 23:21:38 星期五 SEO优化 1630 ℃ 0 条评论

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

 

发表评论

电子邮件地址不会被公开。 必填项已用*标注