جستجو و جایگزینی یك عبارت در تمام اكسل

[ظهور 313]

با سلام خدمت اساتید گرامی
میخواستم ببینم میشه جستجو و جایگزینی رو در تمام اكسل انجام داد
یعنی بگیم یك عدد رو در تمام اكسل جستجو كنه و هر جا اون عدد بود، با یه عدد دیگه جایگزین كنه

[Behnam]

درود
بله امکان پذیره
ctrl+f رو بزنید ، تب replace رو انتخاب کنید
در بخش های find what و replace with عبارت های جستجو و جایگزینی رو تعریف کنید
بعد از قسمت option قسمت within گزینه workbook رو انتخاب کنید و replace all در انتها
موفق باشید

[ظهور 313]

درود
بله امکان پذیره
ctrl+f رو بزنید ، تب replace رو انتخاب کنید
در بخش های find what و replace with عبارت های جستجو و جایگزینی رو تعریف کنید
بعد از قسمت option قسمت within گزینه workbook رو انتخاب کنید و replace all در انتها
موفق باشید

ممنون از لطف شما دوست عزیز
این مورد رو باهاش آشنا هستم
اما دنبال یك كد توی vba هستم
آیا با كد میشه این كار رو انجام داد؟

[iranweld]

با سلام

از کدهای ذیل استفاده کنید بجای عدد 2 و 1 حروف مورد نظر را قرار دهید

Sub test()

Dim ws As Worksheet
    
   
For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)


Cells.Replace What:="2", Replacement:="1", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        
    

Next cell


End Sub 

[ظهور 313]

با سلام

از کدهای ذیل استفاده کنید بجای عدد 2 و 1 حروف مورد نظر را قرار دهید

Sub test()

Dim ws As Worksheet
    
   
For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)


Cells.Replace What:="2", Replacement:="1", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        
    

Next cell


End Sub 

ممنونم استاد، اما این كد، فقط توی شیت فعال، جستجو و جایگزینی رو انجام میده و نه توی تمام شیتها
نیاز به كدی دارم كه توی تمام شیتها این كار رو انجام بده

[iranweld]

کدهای اصلاح شده:

Sub test()

Dim ws As Worksheet

For Each ws In Worksheets
    
    ws.Select
      
   
For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)


Cells.Replace What:="2", Replacement:="1", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        
    

Next cell

Next ws

End Sub 

[ظهور 313]

کدهای اصلاح شده:

Sub test()

Dim ws As Worksheet

For Each ws In Worksheets
    
    ws.Select
      
   
For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)


Cells.Replace What:="2", Replacement:="1", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        
    

Next cell

Next ws

End Sub 

كد قبلی توی یك شیت جواب میداد، اما این كد اصلا جواب نمیده

[iranweld]

همین کد که در فایل پیوست به راحتی جواب میده

چطور برای شما جواب نمیده؟؟؟

[SAEIIID]

درود
بله امکان پذیره
ctrl+f رو بزنید ، تب replace رو انتخاب کنید
در بخش های find what و replace with عبارت های جستجو و جایگزینی رو تعریف کنید
بعد از قسمت option قسمت within گزینه workbook رو انتخاب کنید و replace all در انتها
موفق باشید

اگه بخوایم یک کلمه یا عبارت خاصی (که در اکسل زیاد تکرار شده) رو در اکسل حذف کنیم، همینکارو انجام بدیم؟ باتشکر

[Amir Ghasemiyan]

اگه بخوایم یک کلمه یا عبارت خاصی (که در اکسل زیاد تکرار شده) رو در اکسل حذف کنیم، همینکارو انجام بدیم؟ باتشکر

تفاوتي نميكنه دوست عزيز. فقط بايد اون كلمه يا عبارت خاص رو بدونين و قسمت replace with رو خالي بذاريد