[حل شده] جایگزینی

[scoter0]

می خواستم در اکسل ، اگه دستور یا ماکرو ایی باشه تا بتونم (چون باید بار ها این کار رو برای چندین اکسل انجام بدم) یک سری اسم ها رو با اسم دیگری جایگذاری کنم
مثلا در این مورد من لیتولوژی Gray Marl و Marl رو دارم می خوام بجاشون فقط همون Marl باشه
یا Dolomiticlimeston و Dolomit-Limestone و DolLst رو دارم که می خوام بجاش فقط DolLst باشه
یا Limestone و LST رو دارم که می خوام بجاش فقط LST باشه

و در نهایت مجموع سطرهایی که درصدش 100 نمیشه رو نشون بده

اگه هر کدوم از این قسمت ها رو کسی بتونه کمک کنه ممنون میشم

[iranweld]

با سلام

فایل پیوست را بررسی کنید

مجموع 100 شامل جمع کدوم سلولها در هر ردیف میشه؟

Sub test()

For Each cell In ActiveSheet.UsedRange

Select Case cell

Case "Gray Marl"
cell.Value = "Maral"

Case "Dolomiticlimeston"
cell.Value = "DolLst"

Case "Dolomit-Limestone"
cell.Value = "DolLst"

Case "Limestone"
cell.Value = "LST"

End Select

Next
End Sub 

[scoter0]

سپاس از لطفتون
100 برای مجموع درصد ها است
یعنی مجموع درصد های ستون c , E باید 100 باشد

[iranweld]

سپاس از لطفتون
100 برای مجموع درصد ها است
یعنی مجموع درصد های ستون c , E باید 100 باشد

بررسی بفرمایید