求助各位大佬，本人想在EXCEL中，按照条件提取数据，同条件全部保存到一个TXT，命...

Troughperiod

求助各位大佬，本人想在EXCEL中，按照条件提取数据，同条件全部保存到一个TXT，命名按照条件命名即可，多个条件提取多个TXT，附件为示例：

凤随心动

好久没处理txt了，但这种应该可以搜一下改一下啊

Troughperiod

凤随心动 发表于 2022-11-17 11:14
好久没处理txt了，但这种应该可以搜一下改一下啊

找啦一些，但是没有那种按照条件，分每个TXT的，求助大佬

清风竹-

请看附件。

Troughperiod

清风竹- 发表于 2022-11-17 14:36
请看附件。

好像不是这样的大佬，我的意思是按照B列的条件筛选，对应的A列数据，都保存在一个TXT，一个场景保存一个TXT

gwjkkkkk

Sub TEST()
    Dim arr, brr(), i&, R&, dic As Object, vKey
    Set dic = CreateObject("Scripting.Dictionary")
    arr = [a1].CurrentRegion
    For i = 2 To UBound(arr)
      dic(arr(i, 2)) = ThisWorkbook.Path & "\" & arr(i, 2) & ".txt"
    Next i
    For Each vKey In dic.keys
      Erase brr: R = 0
      For i = 2 To UBound(arr)
         If arr(i, 2) = vKey Then
            R = R + 1
            ReDim Preserve brr(1 To R)
            brr(R) = arr(i, 1)
         End If
      Next i
      Open dic(vKey) For Output As #1
        Print #1, Join(brr, vbCrLf)
        Close #1
    Next
    Set dic = Nothing
End Sub

gwjkkkkk

请楼主参考 。。。

Troughperiod

gwjkkkkk 发表于 2022-11-17 20:41
请楼主参考 。。。

感谢大佬，我试试

Troughperiod

gwjkkkkk 发表于 2022-11-17 20:41
请楼主参考 。。。

大佬，这个可以，如果要是同样的条件，想要保存成xlsx表格直接改后缀么，还是怎么样，条件列和提取数据列可以更改么！