Remove text after 4th decimal except specific text

Hello,
I want to find and remove text from the rows in whole excel sheet except specific text after 4th decimal (dot).
Please see attached excel and screenshot for your reference.
In the Sheet1, Column A has many items. I want to retain “Ax.Frameworks.SysUtils.GlobalConsts.NON_ID” and “Ax.Frameworks.SysUtils.GlobalConsts.IGNORE_ID” as it is. Apart from those 2 items, if anything like, “Ax.Frameworks.SysUtils.GlobalConsts.XYZ”, “Ax.Frameworks.SysUtils.GlobalConsts.APPLE”, “Ax.Frameworks.SysUtils.GlobalConsts.RYH” .. etc should be changed to “Ax.Frameworks.SysUtils.GlobalConsts”, that is after 4th decimal it should remove all text.
I have more than 1000 items in Column A.
So I’m only looking vba/macros which will exclude those 2 items and the rest items should remove text after Ax.Frameworks.SysUtils.GlobalConsts, so please someone help.
Please Note: The macros/vba should only work for type “Ax.Frameworks.SysUtils.GlobalConsts” and not for others like "Ax.Services.Common.Origination.DCContractSearchArgs", "Ax.Frameworks.ID.SysUtils.GlobalConsts", etc
Forum23.PNG
Forum23.xlsx

Try:

PHP Code: 

Option Explicit
Sub test()
Dim Lr&, k&, cell As Range, s, arr()
Lr = Cells(Rows.Count, "B").End(xlUp).Row
ReDim arr(1 To Lr - 1, 1 To 1)
    For Each cell In Range("A2:A" & Lr)
        k = k + 1
        s = Split(cell & ".", ".")
        If s(4) Like "NON_ID" Or s(4) Like "IGNORE_ID" Then
            arr(k, 1) = cell.Value
        Else
            arr(k, 1) = s(0) & "." & s(1) & "." & s(2) & "." & s(3)
        End If
    Next
Range("A2").Resize(k, 1).Value = arr ' paste from A2. Can be adjusted to other area, i.e, "E2"
End Sub 


Thanks a lot, works partially

Which post #2 or #3 do your refer to? And does "works partiallly" means NOT fully working?