おそらくワイルドカードを使用して検索して置き換えるVBAコードですか？

Question

NをN1、NX2をN2、NX7535をN7535、すべての文字列をNで始めるがすべてがXの後にNを付けるわけではない。私は狂気のコードを入れて下にX、私はExcelの記録から適応が、それはそれを行うための簡単な方法である必要があります：

Sub Find_NX_Replace() 



    Range("A1").Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Selection.Replace What:="NX1", Replacement:="N1", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 

    Selection.Replace What:="NX2", Replacement:="N2", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 

    Selection.Replace What:="NX3", Replacement:="N3", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 

Selection.Replace What:="NX4", Replacement:="N4", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 

    Selection.Replace What:="NX5", Replacement:="N5", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 

    Selection.Replace What:="NX6", Replacement:="N6", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 

    Selection.Replace What:="NX7", Replacement:="N7", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 

    Selection.Replace What:="NX8", Replacement:="N8", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 


    Selection.Replace What:="NX9", Replacement:="N9", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 




    End Sub 

例：

Answer 1

が多数のループを実行します。

Sub Find_NX_Replace() 
    Dim i as Long 
    For i = 1 To 9 
     Selection.Replace What:="NX" & i, Replacement:="N" & i, LookAt:=xlPart, _ 
     SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
     ReplaceFormat:=False 
    Next i 

End Sub