Encontre as strings listadas na coluna dos arquivos e marque Sim ou Não na respectiva coluna do nome do arquivo

Question

Tenho strings listadas na coluna "A" e os nomes dos arquivos estão listados nos cabeçalhos das colunas. Quero descobrir se a string na coluna "A" existe ou não em um arquivo e adicionar o resultado em uma coluna de nome de arquivo. Tenho esperança de que seja possível usar vba.

Tentei usar a fórmula "vlookup" (quando adicionei dados à planilha), mas é um cálculo demorado e como cada arquivo tem 22 mil linhas e para apenas 100 arquivos todas as linhas contam para 22 lakh linhas. Qualquer ajuda será apreciada.

Answer 1

Eu obtive resposta dissosite. Está funcionando conforme o esperado.

Sub Demo_StringSearch_txt()
Dim fPath As String: fPath = "C:\test\search\"
Dim strContent As String
Dim intFF As Integer: intFF = FreeFile()
Dim myArr
Dim i As Long, j As Long
myArr = Range("A1", Cells(Cells(Rows.count, 1).End(xlUp).Row, Cells(1, Columns.count).End(xlToLeft).Column)).Value

For i = 2 To UBound(myArr, 2)
    Open fPath & myArr(1, i) For Input As #intFF
    strContent = Input(LOF(intFF), intFF)
    Close #intFF
    For j = 2 To UBound(myArr)
        If InStr(strContent, myArr(j, 1)) > 0 Then
            myArr(j, i) = "Yes"
        End If
    Next
Next

Range("A1").Resize(UBound(myArr), UBound(myArr, 2)) = myArr


End Sub