用VBA在Excel中存储文本文件中唯一字符串的尝试

Sub StoreUniqueStrings()
    Dim filePath As String
    Dim fileContent As String
    Dim uniqueStrings As Collection
    Dim cell As Range
    
    ' 设置文件路径
    filePath = "C:\path\to\your\file.txt"
    
    ' 读取文件内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), 1)
    Close #1
    
    ' 创建集合对象用于存储唯一字符串
    Set uniqueStrings = New Collection
    
    ' 将文件内容按行分割为数组
    Dim lines() As String
    lines = Split(fileContent, vbCrLf)
    
    ' 遍历数组中的每一行
    For Each line In lines
        ' 检查字符串是否已存在于集合中
        On Error Resume Next
        uniqueStrings.Add line, CStr(line)
        On Error GoTo 0
    Next line
    
    ' 将唯一字符串写入Excel工作表中的列A
    For Each cell In Range("A1").Resize(uniqueStrings.Count)
        cell.Value = uniqueStrings(cell.Row - 1)
    Next cell
End Sub