Group values in arrays then replace them with a new value

[zack8576]

I have a large number of excel files to clean up, any of the values contained in these arrays will be replaced by a different value
Below is what I have so far, any help is greatly appreciated

Sub CleanUpOutlier()
    Array1 = ("1", "2", "3", "4")
    Array2 = ("5", "6", "7", "8")
    With Range("D1", Cells(Rows.Count, "D").End(3))
        .Replace Array1, "F12314J"
        .Replace Array2, "F12315J"
    End With
End Sub

 

[JGordon11]

Sub CleanUpOutlier()
    Dim array1, array2, x
    array1 = Array("1", "2", "3", "4")
    array2 = Array("5", "6", "7", "8")
    With Range("D1", Cells(Rows.Count, "D").End(3))
        For Each x In array1
            .Replace x, "F12314J", xlWhole
        Next
        For Each x In array2
            .Replace x, "F12315J", xlWhole
        Next
    End With
End Sub

Before:

Book3
	A	B	C	D	E
1				8
2				3
3				3
4				8
5				1
6				3
7				1
8				2
9				7
10				8
11
Sheet1

After:

Book3
	A	B	C	D	E
1				F12315J
2				F12314J
3				F12314J
4				F12315J
5				F12314J
6				F12314J
7				F12314J
8				F12314J
9				F12315J
10				F12315J
11
Sheet1