VBA实现读取text文本内容，写入到单元格
VBA实现读取text文本内容，写入到单元格如图：求实现vba代码读取text文本内容过滤掉每行的@@@@@@@@@@，将多行内容顺序写入到excelH列的单元格里，写之...
VBA实现读取text文本内容，写入到单元格如图：
求实现vba代码
读取text文本内容过滤掉每行的@@@@@@@@@@
，将多行内容顺序写入到excel H列的单元格里，写之前判断该列的单元格是否有内容，若有，则在其下一单元格开始写入。 展开
求实现vba代码
读取text文本内容过滤掉每行的@@@@@@@@@@
，将多行内容顺序写入到excel H列的单元格里，写之前判断该列的单元格是否有内容，若有，则在其下一单元格开始写入。 展开
2个回答
展开全部
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
我就要悬赏，能给多少就给多少，
更多追问追答
追问
在你的代码基础上改编了一下 调试有一处不通过啊 怎么解决？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
百事牛
2024-10-22 广告
百事牛是共享提供商，我们提供可靠有效的服务，适当合理的授权费有利于的继续更新优化。同样的事情，同样的方法，百事牛团队十年磨一剑，始终至聚焦在密码恢复领域，深耕于此，我们已研制出有别于其他公司的算法和运算模式， 百事牛的暴力模式加入了分布式点...
点击进入详情页
本回答由百事牛提供
展开全部
悬赏太少了
更多追问追答
追问
先解决了再说 悬赏不是问题
追答
好的，这可是你说的，相信你一次，代码等会给你发上来，正在编辑
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
