Eu tenho uma planilha do Excel que tem 200 colunas. Agora o número de linhas é 3500. Então eu tenho que procurar uma string se ela se apresentar em qualquer coluna para cada linha. Agora, para tornar o processo ferser, estou procurando uma alternativa em vez da técnica de looping. Existe algum tal?

IntRow6 = 2
DataCount = 0

Do While objSheet6.Cells(IntRow6,1).Value <> ""
  For DataCount = 0 to UBound(VMHArray)
        IntClmn3 = 1        
        Do While 1 = 1
            If objSheet6.Cells(IntRow6,IntClmn3).Value = VMHArray(DataCount) Then
                objSheet6.Cells(IntRow6,IntClmn3+2).Value=objSheet6.Cells(IntRow6,IntClmn3+5).Value
                Exit Do
            End If
            IntClmn3 = IntClmn3 + 1
        Loop
    Next
    IntRow6 = IntRow6 + 1
Loop

O acima está demorando muito, então eu estou procurando um código VBScript equivalente que pode executar uma pesquisa mais rápida.

EDITAR:

ParentColmnCount=ParentColmnCount-1
IntRow6=2
DataCount=0

Do While objSheet6.Cells(IntRow6,1).Value <> ""
    For DataCount=0 to UBound(VMHArray)
        If objSheet6.Range(objSheet6.Cells(IntRow6,1),objSheet6.Cells(IntRow6,ParentColmnCo‌​unt)).Find(VMHArray(DataCount)) <> Nothing Then
            MsgBox("Hi")
        End If
    Next
    IntRow6=IntRow6+1
Loop

Estou recebendo qualquer erro dizendo que "Erro de variável de objeto não definido" na linha de intervalo do código acima.

ATUALIZAR

Eu atualizei meu código conforme sua sugestão e modifiquei a declaração de variáveis ​​como abaixo:

Option Explicit

Dim objExcel1, objWorkbook

Dim strPathExcel1

Dim objSheet6, objSheet3

Dim IntRow6, IntRow3

Dim IntClmn3

Dim DataCount, ParentColmnCount

Dim Falg

Dim TaskCounter

Dim r As Range Dim s como Variant

Mas estou recebendo o erro novamente: Fim esperado da declaração "na linha" Dim r As Range "