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 列，查找位置 2 中的字母“Z”，找到后查找第一个“。”并将第一个位置移到“。”并将值写入 K 列。

看起来像这样：

  K
NZR5Q8
WZMV7W
WZWV7W
XZGRH5
XZ6M8X
NZWNGS

有人可以帮忙吗？...请发送至[电子邮件保护]

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