[حل شده] جایگزین کردن چند عبارت با عبارات دیگر

[niksirat2030]

سلام

هدف من replace کردن چند نام یا عدد با عبارات دیگر هست. مثلا

6037991816468777 --> محمد
6037991845127846 --> رضا
.
.
.
تعداد این replace ها زیاد هست و تک تک وقت خیلی زیادی میبره،

چطور میتونم اینکارو کنم؟

ممنون

[iranweld]

سلام

هدف من replace کردن چند نام یا عدد با عبارات دیگر هست. مثلا

6037991816468777 --> محمد
6037991845127846 --> رضا
.
.
.
تعداد این replace ها زیاد هست و تک تک وقت خیلی زیادی میبره،

چطور میتونم اینکارو کنم؟

ممنون

اگر تعداد نامها محدود هستش در کنار replace گزینه replace all هم وجود داره

[niksirat2030]

اگر تعداد نامها محدود هستش در کنار replace گزینه replace all هم وجود داره

نه، من نمیخوام یک عبارت رو جایگزین کنم که بخوام با replace all یکدفعه جایگزین بشه.

میخوام مثلا عبارت
A1 رو با B1
A2 رو با B2
A3 رو با B3
A4 رو با B4
A5 رو با B5
.
.
.
.
جایگزین کنم. برای اینکار باید برای هر جایگزینی باید یکبار جداگانه پنجره انتقال باز بشه و عبارات نوشته بشه. ولی من

میخوام به کمک یک نرم افزار یا ماکرو یکدفعه مثلا هر خط فایل متنی A با هر خط فایل متنی B جایگزین بشه.

[iranweld]

یک نمونه از فایل خودتون رو ضمیمه کنید بهتر میشه راهنمایی کرد موارد خواسته شده رو تو فایل مشخص کنید

[niksirat2030]

یک نمونه از فایل خودتون رو ضمیمه کنید بهتر میشه راهنمایی کرد موارد خواسته شده رو تو فایل مشخص کنید

در فایل ضمیمه شده در ستون c شماره های کارت بانکی نوشته شده که من اسامی صاحب کارتها رو دارم.

میخوام شماره کارتها با نام صاحب حساب عوض بشه.

[khakzad]

اسم صاحب کارتهارو هم اگر در اکسل داشته باشید (که باید داشته باشید) ساده ترین راه استفاده از فرمول vlookup هست

[niksirat2030]

اسم صاحب کارتهارو هم اگر در اکسل داشته باشید (که باید داشته باشید) ساده ترین راه استفاده از فرمول vlookup هست

کاش یکم دقیقتر توضیح میدادی. یه مثالی، یه چیزی ....

[iranweld]

با سلام

علاوه بر توابع VLOOKUP و INDEX میتوانید از ویژوال بیسیک نیز استفاده کنید

Sub test()

Z1 = Cells(Rows.Count, "C").End(xlUp).Row
Z2 = Cells(Rows.Count, "H").End(xlUp).Row

For i = 2 To Z1
For J = 2 To Z2

If Range("c" & i).Value = Range("H" & J).Value Then
Range("c" & i).Value = Range("I" & J).Value

End If
Next: Next

End Sub 

[abootorab]

با درود
ضمن تشکر از پاسخ جناب iranweld عزیز
این هم یه فایل نمونه دیگه از جایگزینی خودکار. در فایل ضمیمه شده یک کلید دو حالته تعبیه شده که زمانیکه پایین باشد (کلید فعال) در هرکدام از سلولها اگر شما مقدار جدیدی جایگزین مقدار قبلی کنید در همان ستون تمام سلولهایی که مقدار قبلی داشتند بصورت خودکار با مقدار جدید جایگزین میشوند. در ضورتیکه نمیخواهید عمل جایگزینی خودکار فعال باشه کافیه کلید دو حالته بالا (غیرفعال) باشد.
عمل جایگزینی محدود به ستون خاصی نیست و در کل شیت عمل میکند اما زمانیکه مقدار سلول را عوض میکنیم فقط مقادیر همان ستون کنترل و جایگزین میشوند.

[niksirat2030]

با سلام

علاوه بر توابع VLOOKUP و INDEX میتوانید از ویژوال بیسیک نیز استفاده کنید

Sub test()

Z1 = Cells(Rows.Count, "C").End(xlUp).Row
Z2 = Cells(Rows.Count, "H").End(xlUp).Row

For i = 2 To Z1
For J = 2 To Z2

If Range("c" & i).Value = Range("H" & J).Value Then
Range("c" & i).Value = Range("I" & J).Value

End If
Next: Next

End Sub 

سلام

میشه کاری کرد که بجای ورود نام صاحب حساب و شماره کارت در دو ستون توی خود فایل اکسل، ماکرو مربوطه بدون دستکاری فایل

1- دوتا فایل txt ورودی بگیره، که یکی شامل شماره کارت های بانکی هست و دیگری نام صاحب حساب اونها.

2- در فایل اکسل شماره کارت ها رو با نام صاحب کارت مورد نظر جایگزین کنه.

ممنون

[iranweld]

با سلام

در دو تا فایل text چطور مشخص میگردد که این شماره مربوط به چه شخصی در فایل text دوم هستش؟

ضمنا نمونه فایل تکست را ضمیمه کنید و هدف خود را شفاف تر بیان کنید

[niksirat2030]

با سلام

در دو تا فایل text چطور مشخص میگردد که این شماره مربوط به چه شخصی در فایل text دوم هستش؟

ضمنا نمونه فایل تکست را ضمیمه کنید و هدف خود را شفاف تر بیان کنید

دو فایل ضمیمه شد. فایل اول Cardnumber.txt که شامل شماره کارتها و فایل دوم Cardname.txt شامل صاحبان حساب.

هر خط در فایل اول متعلق به همون خط در فایل دوم. مثلا 6037991333368854 در خط سوم متعلق به خط متناظر در فایل دوم یعنی "فاطمه تاجیک".

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

طبیعتا برنامه میره سراغ بعدی.

و چون تعداد این نامها زیاده و هر ماه اضافه میشه، خیلی سخت هست که دوتا ستون به فایل اکسل اضافه کرد. بعلاوه موقعی که فایل اکسل ورودی

فایل صورتحساب بانکی باشه که خودش به اندازه کافی شلوغ هست.

خیلی ممنون