كيف يمكن تحويل فواصل الأسطر إلى فواصل في Excel؟
ربما تحتوي ورقة العمل لديك على العديد من الخلايا التي تتضمّن قيمًا مفصولة بعودة السطر، وتحتاج الآن إلى العثور على كل مثيلات عودة السطر واستبدالها بفواصل أو أحرف أخرى، كما هو موضح في لقطة الشاشة التالية. كيف يمكنك تحويل كل مثيلات عودة السطر إلى فواصل أو أحرف أخرى في ورقة العمل بسرعة وسهولة؟
تحويل عودة السطر إلى فواصل باستخدام صيغة
تحويل عودة السطر إلى فواصل باستخدام دالة البحث والاستبدال
تحويل عودة السطر إلى فواصل باستخدام كود VBA
تحويل عودة السطر إلى فواصل باستخدام صيغة
يمكنك بسهولة استبدال فواصل الأسطر بفواصل أو بأحرف أخرى باستخدام الصيغة البسيطة التالية.
1. اكتب هذه الصيغة في خلية فارغة بجانب بياناتك:=SUBSTITUTE(A1,CHAR(10),",") (A1 تشير إلى الخلية التي تريد استبدال فواصل الأسطر فيها، والفاصلة بين علامتي الاقتباس هي الحرف الذي ستستخدمه بدلاً منها—يمكنك تغييرها حسب احتياجاتك). انظر لقطة الشاشة:
2. بعد ذلك، اسحب مقبض التعبئة عبر النطاق الذي تريد تطبيق الصيغة عليه، وستحصل على النتيجة التالية، حيث يتم استبدال علامات نهاية السطر بالفواصل.
تحويل عودة السطر إلى فواصل باستخدام دالة البحث والاستبدال
يمكنك أيضًا استخدام دالة البحث والاستبدال لتحويل جميع علامات نهاية السطر إلى فواصل دفعة واحدة. يُرجى اتباع الخطوات التالية:
1. حدد نطاق البيانات الذي تريد تحويل عوائد السطر فيه.
2. انقر فوقالصفحة الرئيسية > البحث والتحديد > استبدال، أو استخدم اختصار لوحة المفاتيحCtrl + H لفتح مربع حوارالبحث والاستبدال. انظر لقطة الشاشة:
3.في مربع حوارالبحث والاستبدال، في حقلالبحث عن، اضغطCtrl + J، وفي حقلاستبدال بـ، اكتب الأحرف التي تريدها؛ في هذه الحالة سأكتب فاصلة (),)، انظر لقطة الشاشة:
4. بعد ذلك، انقر فوق الزراستبدال الكل، وسيظهر مربع تنبيه يُذكّرك بعدد عمليات الاستبدال التي تمت. انظر لقطة الشاشة:
5. ثم انقر فوقموافقوأغلق مربع حوارالبحث والاستبدال، وقد تم استبدال جميع مثيلات عودة السطر بالفواصل.
تحويل عودة السطر إلى فواصل باستخدام كود VBA
إذا كنت مهتمًا بكود VBA، فيسعدني أن أقدّم لك كودًا يُنفّذ هذه المهمة.
1. اضغط مع الاستمرار على مفتاحَيALT + F11، وسيُفتح بذلك نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة نمطية، ثم الصق الكود التالي في نافذة الوحدة النمطية.
كود VBA: تحويل عودة السطر إلى فواصل
Sub ReplaceCarriage()
'Update 20141023
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = Replace(Rng.Value, Chr(10), ",")
Next
End Sub
3. بعد ذلك، اضغط على مفتاحF5 لتشغيل هذا الكود، وسيظهر مربع تنبيه لتذكيرك بتحديد نطاق البيانات التي تريد استخدامها. انظر لقطة الشاشة:
4. بعد ذلك، انقر فوقموافق، وستُحوَّل علامات نهاية السطر إلى فواصل فورًا.
ملاحظة:
في الكود أعلاه، يمكنك تغيير الفاصلة "," داخل السطرRng.Value = Replace(Rng.Value, Chr([[PH_43]]), ",") إلى أي أحرف أخرى تريدها.
مقالات ذات صلة:
كيف يمكن إزالة فواصل الأسطر بسرعة في Excel؟
كيف يمكن تقسيم الخلايا إلى أعمدة أو صفوف متعددة باستخدام عودة السطر؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل