Busque las cadenas enumeradas en la columna de archivos y marque Sí o No en la columna de nombre de archivo respectiva

Question

Tengo cadenas enumeradas en la columna "A" y los nombres de los archivos aparecen en los encabezados de las columnas. Quiero saber si la cadena en la columna "A" existe en un archivo o no y agregar el resultado en una columna de nombre de archivo. Tengo la esperanza de que sea posible usar vba.

Intenté usar la fórmula "vlookup" (cuando agrego datos a la hoja) pero requiere mucho tiempo y como cada archivo tiene 22K líneas y por solo 100 archivos, todas las filas cuentan hasta 22 lakh de líneas. Cualquier ayuda será apreciada.

Answer 1

Recibí respuesta de estositio. Está funcionando como se esperaba.

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