طریقه جستجو و جایگزینی گروهی کلمات در اکسل

یکی از قابلیت‌های نرم‌افزار اکسل جستجو و جایگزینی کلمات و عبارت‌ها است. اما فرض کنید که فایل اکسلی با ۱۰۰۰ ردیف و ۲۰ ستون دارید که می‌خواهید بیش از ۲۰ کلمه یا عدد را به طور همزمان با ۲۰ کلمه یا عدد دیگر جایگزین کنید. شاید به ذهنتان برسد که عملیات جستجو و جایگزینی را برای تک تک این کلمات یا اعداد بصورت جداگانه انجام دهید. اما این کار بسیار زمان‌بر و همراه با خطا است. پس چاره کار چیست؟ در ادامه مطلب با۱۴خورشید همراه باشید تا با نحوه انجام اینکار آشنا شوید.

مثال ساده‌ی زیر را در نظر بگیرید. می‌خواهیم در ستون زیر تمام اعداد به حروف تبدیل کنیم.

واژه‌های اصلی و جایگزین را در جدول زیر مشاهده می‌کنید.

برای جستجو و جایگزینی گروهی کلمات در اکسل، ۳ روش وجود دارد:

روش اول) ماکرونویسی

برای ایجاد ماکرو، کلیدهای Alt + F11 را فشار دهید یا از تب Developer قسمت code گزینه Visual Basic را انتخاب کنید. پنجره Microsoft Visual Basic ظاهر می‌شود. در این پنجره از تب Insert گزینه Module را انتخاب نمائید.

در پنجره جدید باز شده کدهای زیر را کپی کنید.

Sub MultiFindNReplace()
'pctarfnad.ir & tarfandha.blog.ir
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "Multiple-Replacement"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Neveshtehaye Avaliye", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Mahdudeye Jaygozini", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
    InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub

سپس روی دکمه کلیک کنید یا کلید F5 را فشار دهید تا پنجره‌ی زیر ظاهر شود.