Question

VBA实现读取text文本内容，写入到单元格

VBA实现读取text文本内容，写入到单元格如图：
求实现vba代码
读取text文本内容过滤掉每行的@@@@@@@@@@
，将多行内容顺序写入到excel H列的单元格里，写之前判断该列的单元格是否有内容，若有，则在其下一单元格开始写入。





Answer 1

Sub test()
    Dim starRng As Range
    Set starRng = Sheet1.Range("B5") '要输入的第一个单元格
    
    Dim txtPath As String, nextLine As String
    txtPath = ThisWorkbook.Path & "\temp.txt" 'txt所在的目录
    
    Open txtPath For Input As #1
    
    Do While Not EOF(1)
        On Error Resume Next
        Line Input #1, nextLine
        If InStr(nextLine, "@@@@") > 0 Then '如果包含连续4个以上的@ 则换行
            Set starRng = starRng.Offset(1, 0)'下一行
        Else
            starRng = starRng & IIf(starRng.Value = "", "", Chr(10) & Chr(13)) & nextLine
        End If
    Loop
    Close #1
End Sub

 

 

我就要悬赏，能给多少就给多少，

追问

在你的代码基础上改编了一下 调试有一处不通过啊 怎么解决？

好了 已解决 多谢 你的代码比我的简化多了 简单的逻辑实现了想要的功能

这是代码

Answer 2

悬赏太少了

追问

先解决了再说 悬赏不是问题

追答

好的，这可是你说的，相信你一次，代码等会给你发上来，正在编辑

把你的文本文档发到yan1314he@qq.com

追问

文本文档里的内容不固定 就以每行的@@@@@@当作界定单元格

已解决了