Create txt or cvs file base on cells with filter

[snowdance0]

Hi, Is there a way to create text file base form hundred of ID, and for each text file's content would be IP address as attached pict.

 

[JEC]

Csv or textfile?

 

[snowdance0]

I actually want text file with tab delimiter but I could also work with csv.

 

[snowdance0]

Actually It would be perfect if the text file and the content inside would go like this

 

[JEC]

Ok, but it requires more explanation.
Does every ID need one file or do you need 1 textfile for the unique ID's?

 

[snowdance0]

I need to group IP address with the same ID in to text file.

 

[JEC]

Specify your path and it should work.
I assumed that your data is in columns A and B

Sub jec()
 Dim ar, i As Long, sq As String, xPath As String
 
 ar = Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row)
 xPath = "C:\Users\xx\xx\xxx\"
 
 With CreateObject("scripting.filesystemobject")
   For i = 1 To UBound(ar)
      sq = xPath & ar(i, 1) & ".txt"
      If .FileExists(sq) Then
        .createtextfile(sq).write .opentextfile(sq).readall & vbCrLf & ar(i, 2)
      Else
        .createtextfile(sq).write ar(i, 2)
      End If
    Next
 End With
End Sub

 

[snowdance0]

Specify your path and it should work.
I assumed that your data is in columns A and B

Sub jec()
 Dim ar, i As Long, sq As String, xPath As String
 
 ar = Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row)
 xPath = "C:\Users\xx\xx\xxx\"
 
 With CreateObject("scripting.filesystemobject")
   For i = 2 To UBound(ar)
      sq = xPath & ar(i, 1) & ".txt"
      If .FileExists(sq) Then
        .createtextfile(sq).write .opentextfile(sq).readall & vbCrLf & ar(i, 2)
      Else
        .createtextfile(sq).write ar(i, 2)
      End If
    Next
 End With
End Sub

Thank you so much. This work perfectly.

 

[JEC]

You're welcome!

 

[JEC]

I did a small change. I still had i=2 to…
It should be i=1