Excel, отсканируйте ячейку в поисках конкретных символов и запишите значение от позиции 1 до первой "."

Question

У меня есть электронная таблица с более чем 29 000 строк, и я хотел бы отсканировать столбец A, чем записать значение в столбец K. Данные в столбце A выглядят следующим образом:

        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

Я хотел бы отсканировать столбец A в поисках буквы «Z» в позиции 2, после того как найден, ищите первый «.» и занять первую позицию до "." и напишите значение в столбце K.

выглядеть так:

  K
NZR5Q8
WZMV7W
WZWV7W
XZGRH5
XZ6M8X
NZWNGS

Может кто-нибудь помочь?.... пожалуйста, отправьте на mark.zaszczurynski@gm.com

Answer 1

Попробуйте это:

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