如何按要求将txt文件内容分别复制到excel单元格

youliver

求求各大神帮助：有一个txt文件【txt附件】，想实现将文本中每一道题分别自动复制到excel同一列各个单元格中？【想要达到图片中的效果】

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     Open ThisWorkbook.Path & "\文本文件.txt" For Input As #1
   
4.     s = StrConv(InputB(LOF(1), 1), vbUnicode)
   
5.     arr = Split(s, vbCrLf)
   
6.     Close #1
   
7.     [a1].Resize(UBound(arr) + 1) = WorksheetFunction.Transpose(arr)
   
8.     Application.ScreenUpdating = True
   
9. End Sub
   

复制代码

liulang0808

附件内容供参考。。。。。。

youliver

liulang0808 发表于 2018-9-15 16:25

多谢版主，但这个出来的效果不是我想要的那样。 这个文本内容每一道题的规律可以视为：题目序号开始，以字母选项结束。 就是不知如何弄。我知道如果文本内容每一段开始与结束以 " 标识的话，复制到excel就可以分别在各自单元格里。

liulang0808

这个附件里生成的格式，不知道楼主要什么格式啊？

youliver

版主上传的附件是可以生成想要的效果，但我用另外新的内容进行操作时就达不到目的。不知是何处的问题。
我想要的效果是：将txt里每一道题目连同选项分别复制到excel的每个单元格中。

youliver

liulang0808 发表于 2018-9-15 16:45
这个附件里生成的格式，不知道楼主要什么格式啊？

@ 版主 单元格格式就像你附件那样就可以

liulang0808

youliver 发表于 2018-9-15 16:52
@ 版主 单元格格式就像你附件那样就可以

附件的格式就是从文本提取数据生成的格式
不明白楼主到底要什么格式的？

youliver

liulang0808 发表于 2018-9-15 16:56
附件的格式就是从文本提取数据生成的格式
不明白楼主到底要什么格式的？

不是，因为我用新的内容进行测试，执行出来的不是一道题复制在一个单元格里，而是txt里每一行就分别复在一个单元格了

youliver

新的文本内容测试，出不来想要的目的