استبدال مجموعة من القيم والنصوص في كل أوراق العمل Replace Values In All Worksheets

السلام عليكم ورحمة الله وبركاته

أقدم لكم كود يقوم بالبحث عن قيم أو نصوص واستبدالها بقيم أو نصوص أخرى في كل أوراق العمل.

بفرض أن لديك ثلاثة أوراق عمل ، والمطلوب استبدال قيم محددة في كل أوراق العمل بقيم جديدة

نقوم بالتعديل في الكود في المتغير fndList حيث يمثل مصفوفة القيم القديمة المراد استبدالها ، وتوضع القيم بين أقواس تنصيص ، ثم نعدل في المتغير المسمى rplcList حيث يمثل مصفوفة القيم الجديدة التي ستوضع مكان القيم القديمة ، وتوضع بين أقواس تنصيص ، فيقوم الكود بعملية البحث والاستبدال في كل أوراق العمل مرة واحدة.

وأخيراً إليكم الكود المستخدم ، ويوضع الكود في موديول عادي

Sub Replace_In_All_Worksheets()
    Dim Ws As Worksheet
    Dim fndList As Variant
    Dim rplcList As Variant
    Dim I As Long

    'Old List
    fndList = Array("Yaser", " - ", "helo", "ecxel")

    'New List
    rplcList = Array("Yasser", " | ", "Hello", "Excel")

    Application.ScreenUpdating = False
        For I = LBound(fndList) To UBound(fndList)
            For Each Ws In ActiveWorkbook.Worksheets
                Ws.Cells.Replace What:=fndList(I), Replacement:=rplcList(I), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            Next Ws
        Next I
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء