显示选中的列并统计重复错误的次数

Question

我想知道是否有人可以帮助我：

• 显示选中的TXT文件中用“,”分隔的栏目
• 还可以统计重复错误的次数

在这段代码中，我正在遍历一个.TXT文件的文件夹并复制它们的内容，因为我在一个目录中有1k个文本文件，我想打开它并计算具有唯一ID（E ).但它只复制所有内容，不计算重复的错误，我只需要 .TXT 文件中的选定内容。

顺便说一句，我只想从 .TXT 文件中选择第一、第四和第六列。

这里的代码：

Sub LoopThroughFiles()

    Dim wb As Workbook
    Dim ws As Worksheet
    Dim StrFile As String
    Dim C As Integer
    Dim csvWb As Workbook
    Dim folder As String
    
    folder = "C:\Datalog\M1\"
    StrFile = Dir(folder)

    Set ws = ThisWorkbook.ActiveSheet
    C = 2
    
    Do While Len(StrFile) > 0
    
    Set csvWb = Workbooks.Open(folder & StrFile)
        
        csvWb.Sheets(1).Rows("2:3000").Copy ws.Range("A" & C)  'read and copy textfile
        csvWb.Close
        C = C + 3000
        StrFile = Dir
  
    Loop
End Sub