1、打开Excel表格，按下【Alt+F11】组合键调出VBE编辑器。
2、在VBE编辑器的菜单栏上面点击【插入】、【模块】。
3、在模块的代码框里边输入以下VBA程序代码。Sub ExTxt()Dim Fso, 掂迎豢畦Fil, i1, i2, i3, i4, i5, Str, 皈其拄攥TxtOn Error Resume Next '忽略运行过程中可能出现的错误Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1myPath1 = "D:\AAAA\" '文件夹路径myPath2 = myPath1 & "古诗词.txt" '输出txt文本路径MkDir myPath1 '新建文件夹Set Fso = CreateObject("Scripting.FileSystemObject") '访问系统文件Set Fil = Fso.OpenTextFile(myPath2, 8, 1) '打开文本文件For i2 = 2 To 3000 '从第2行到3000行If mysheet1.Cells(i2, 2) <> "" Then '如果B列单元格不是空白，则 i4 = 0 Str = "" Do i3 = i4 i4 = InStr(i3 + 1, mysheet1.Cells(i2, 2), Chr(10)) '判断换行符所在的位置 Str = Mid(mysheet1.Cells(i2, 2), i3 + 1, i4 - i3 - 1) '截取每一行的字符 If i4 = 0 Then '如果不存在换行符，则 Str = Mid(mysheet1.Cells(i2, 2), i3 + 1, Len(mysheet1.Cells(i2, 2)) - 3) '截取最后一行的字符 Fil.Write Str '将字符写入文本 Fil.WriteBlankLines (2) '换2行 Exit Do End If Fil.Write Str '写入文本 Fil.WriteBlankLines (1) '换1行 LoopEnd IfNextFil.Close '关闭文本文档Set Fso = NothingSet Fil = NothingEnd Sub
4、检查无误后，在VBE编辑器的功能区里边点击“运行”图标运行程序，或者按下【F5】键运行程序。
5、打开文本文档输出的路径（如：D:\AAAA\古诗词.txt）。
6、Excel里边的内容输出完成。
