VBA读取txt 遇到某行一样的数据就把相同的数据存入同一个数组

你好，可以使用以下代码实现：

Sub readTxt()
    Dim filePath As String '文件路径
    Dim arr() As String '存储数据的数组
    Dim index As Integer '数组下标
    index = 0 '初始化数组下标为0
    
    filePath = "C:\test.txt" '文件路径，根据实际情况修改
    
    '打开文件
    Open filePath For Input As #1
    
    '逐行读取文件
    Do While Not EOF(1)
        Line Input #1, tempStr
        '如果该行数据与上一行相同，则将数据存入数组中
        If tempStr = prevStr Then
            arr(index) = tempStr
            index = index + 1
        End If
        '保存当前行数据，用于下一次比较
        prevStr = tempStr
    Loop
    
    '关闭文件
    Close #1
    
End Sub

以上代码可以读取指定路径下的test.txt文件，并将其中相同的行数据存入同一个数组中。如需修改文件路径或存储方式，可根据实际情况进行修改。希望能够帮助到您。