Excel, escaneie uma célula procurando por características específicas e escreva o valor da posição 1 para a primeira “.”

Question

Eu tenho uma planilha com mais de 29.000 linhas e gostaria de varrer a Coluna A do que escrever um valor na coluna K. Os dados da Coluna A são os seguintes:

        A
SYS1.AHI4.PAGE.LOCAL4.DATA
NZR5Q8.OPSLOG.RESTORE.DATA
PUSET.AUNBU.D.GSS.V2R8M0.PARMLIB.G1608V00
PPRAD.PAXLB.DRAINFO.G0012V00
PTASS.SIMCH.MSTRJCL
OMVS.VAI4R11.SOS.NETVIEW.ZFS.DATA
WZWV7W.SYS1.TCPPARMS
XZGRH5.SYS1.TCPPARMS
XZ6M8X.SYS3A.IS.LINKLIB.DB2
NZWNGS.ISPF.ISPPROF
NZWNGS.PDS.CLIST

Eu gostaria de varrer a coluna A procurando pela letra 'Z' na posição 2, uma vez encontrada a primeira '.' e pegue a primeira posição até o '.' e escreva o valor na coluna K.

para ficar assim:

  K
NZR5Q8
WZMV7W
WZWV7W
XZGRH5
XZ6M8X
NZWNGS

Alguém pode ajudar? .... por favor envie para [email protected]

    

Answer 1

Experimente:

Sub KaptureData()
    Dim K As Long, i As Long

    K = 1

    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Mid(Cells(i, 1).Text, 2, 1) = "Z" Then
            Cells(K, "K").Value = Split(Cells(i, 1).Text, ".")(0)
            K = K + 1
        End If
    Next i

End Sub