يضيف Excel نصًا ورقمًا في موضع الخلية المحدد
في Excel ، تعد إضافة نصوص أو أرقام إلى الخلايا مهمة شائعة جدًا. مثل إضافة مسافة بين الأسماء ، وإضافة بادئة أو لاحقة إلى الخلايا ، وإضافة شرطات إلى الأرقام الاجتماعية. هنا في هذا البرنامج التعليمي ، يسرد تقريبًا جميع سيناريوهات الإضافة في Excel ويوفر لك الطرق المقابلة.
ملاحظات
في هذا البرنامج التعليمي ، أقوم بإنشاء بعض الأمثلة لشرح الطرق ، يمكنك تغيير المراجع التي تحتاجها عند استخدام رمز أو صيغ VBA أدناه ، أو يمكنك تنزيل العينات لتجربة الأساليب مباشرةً.
يسرد هذا الجزء طرقًا مختلفة لإضافة أحرف إلى بداية كل خلية كما هو موضح أدناه لقطة الشاشة:
1.1 أضف في بداية الخلايا باستخدام الصيغة
يمكنك هنا اختيار إحدى الصيغ الثلاث التالية:
عامل التشغيل المتسلسل للفورمولا 1 "&"
انضم إلى نصوص متعددة معًا بواسطة حرف العطف "&".
& الخلية
الدالة CONCATENATE Formula2
تُستخدم وظيفة CONCATENATE لربط النصوص معًا.
CONCATENATE ("نص" ، خلية)
دالة CONCAT الخاصة بـ Formula3
هذه وظيفة جديدة تظهر فقط في Excel 2019 و Office 365 و Excel عبر الإنترنت.
CONCAT ("نص" ، خلية)
في الصيغ العامة: الخلية هي مرجع الخلية للنص الذي تريد إضافة بادئة إليه ، والنص هو النص المستخدم للإضافة إلى الخلية.
باستخدام المثال أعلاه ، يمكنك استخدام الصيغ في شريط الصيغة على النحو التالي:
"&"
= E $ 3 & B3 or = "Iphone" & B3
دالة CONCATENATE
= CONCATENATE ($ E $ 3، B3) or = CONCATENATE ("Iphone"، B3)
وظيفة CONCAT
= CONCAT ($ E $ 3، B3) or = CONCAT ("Iphone"، B3)
صحافة أدخل مفتاح للحصول على النتيجة ، ثم اسحب مقبض الملء التلقائي لأسفل لإضافة نص إلى كل خلية من خلايا النطاق B3: B6.
انتباه: يجب وضع النص بين علامتي اقتباس أو أن الصيغة ترجع قيمة الخطأ #NAME ؟. إذا كنت تستخدم مرجع الخلية للنص ، فيرجى تذكر استخدام المرجع المطلق ، يمكنك الضغط على المفتاح F4 لتغيير المرجع النسبي إلى المرجع المطلق. |
1.2 إضافة في بداية الخلايا عن طريق التعبئة السريعة
إذا كنت تستخدم Excel 2013 أو الإصدارات الأحدث ، فإن الميزة الجديدة القوية ، فلاش فيل، يمكن أن تملأ الخلايا بناءً على الخلايا المذكورة أعلاه التي أدخلتها تلقائيًا.
اختر خلية بجوار البيانات الأصلية الأولى ، اكتب البيانات الأولى يدويًا بنص البادئة كما هو موضح أدناه:
ثم في الخلية أدناه ، استمر في كتابة البيانات الثانية بنص البادئة أثناء الكتابة ، ستظهر قائمة باللون الرمادي ، اضغط أدخل مفتاح للسماح لـ Flash Fill بملء البيانات تلقائيًا.
إذا لم يتم إنشاء قائمة المعاينة ، فالرجاء الانتقال إلى علامة التبويب الصفحة الرئيسية ، ثم النقر فوق شغل > فلاش فيل لتشغيله يدويًا.
1.3 إضافة في بداية الخلايا باستخدام كود فبا
إذا كنت معتادًا على التعليمات البرمجية لـ VBA ، هنا يقدم رمز VBA لإضافة نص في بداية كل خلية في نطاق.
1. حدد نطاقًا من الخلايا التي تريد إضافة نص البادئة إليها ، ثم اضغط على قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. ثم في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإدراج وحدة جديدة فارغة.
3. انسخ والصق رمز فبا أدناه إلى الوحدة الجديدة.
فبا: أضف في بداية الخلايا
Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub
انتباه: في نص الكود ، اي فون هو النص الذي تريد إضافته في بداية الخلايا المحددة ، قم بتغييره حسب حاجتك. |
4. صحافة F5 مفتاح أو انقر يجري زر في النافذة لتنشيط كود فبا.
الآن تمت إضافة جميع الخلايا المحددة النص "Iphone" في البداية.
باستثناء إضافة نص إلى بداية الخلايا ، فإن إضافة نص إلى نهاية الخلايا أمر شائع أيضًا. هنا نأخذ إضافة وحدة في نهاية كل خلية للحصول على أمثلة كما هو موضح أدناه لقطة الشاشة:
2.1 إضافة في نهاية الخلايا باستخدام الصيغة
يمكنك هنا اختيار إحدى الصيغ الثلاث التالية:
عامل التشغيل المتسلسل للفورمولا 1 "&"
انضم إلى نصوص متعددة معًا بواسطة حرف العطف "&".
خلية & "نص"
الدالة CONCATENATE Formula2
تُستخدم وظيفة CONCATENATE لربط النصوص معًا.
CONCATENATE (خلية ، "نص")
دالة CONCAT الخاصة بـ Formula3
هذه وظيفة جديدة تظهر فقط في Excel 2019 و Office 365 و Excel عبر الإنترنت.
CONCAT (الخلية ، "النص")
في الصيغ العامة: الخلية هي مرجع الخلية للنص الذي تريد إضافة لاحقة إليه ، والنص هو النص المستخدم للإضافة إلى الخلية.
باستخدام المثال أعلاه ، يمكنك استخدام الصيغ في شريط الصيغة على النحو التالي:
"&"
= B3 و $ E 3 or = B3 & "Kg"
دالة CONCATENATE
= CONCATENATE (B3، $ E $ 3) or = CONCATENATE (B3، "Kg")
وظيفة CONCAT
= CONCAT (B3، E $ 3) or = CONCAT (B3، "Kg")
صحافة أدخل مفتاح للحصول على النتيجة ، ثم اسحب مقبض الملء التلقائي لأسفل لإضافة نص إلى نهاية كل خلية من النطاق B3: B6.
انتباه: يجب وضع النص بين علامتي اقتباس أو أن الصيغة ترجع قيمة الخطأ #NAME ؟. إذا كنت تستخدم مرجع الخلية للنص ، فيرجى تذكر استخدام المرجع المطلق ، يمكنك الضغط على المفتاح F4 لتغيير المرجع النسبي إلى المرجع المطلق. |
2.2 إضافة في نهاية الخلايا عن طريق التعبئة السريعة
إذا كنت تستخدم Excel 2013 أو الإصدارات الأحدث ، فإن الميزة الجديدة القوية ، فلاش فيل، يمكن أن تملأ الخلايا بناءً على الخلايا المذكورة أعلاه التي أدخلتها تلقائيًا.
اختر خلية بجوار البيانات الأصلية الأولى ، اكتب البيانات الأولى يدويًا بنص اللاحقة كما هو موضح أدناه:
ثم قم بتنشيط الخلية الموجودة أسفل النتيجة الأولى ، انقر فوق البيانات > فلاش فيل، سيتم ملء جميع الخلايا أدناه بما في ذلك الخلية النشطة تلقائيًا.
2.3 إضافة في نهاية الخلايا باستخدام التعليمات البرمجية لـ VBA
إليك رمز VBA يمكنه إضافة نص في نهاية كل خلية في نطاق.
1. حدد نطاقًا من الخلايا التي تريد إضافة نص اللاحقة إليها ، ثم اضغط على قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. ثم في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإدراج وحدة جديدة فارغة.
3. انسخ والصق رمز فبا أدناه إلى الوحدة الجديدة.
فبا: إضافة في نهاية الخلايا
Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub
انتباه: في نص الكود ، Kg هو النص الذي تريد إضافته في نهاية الخلايا المحددة ، قم بتغييره حسب حاجتك. |
4. صحافة F5 مفتاح أو انقر يجري زر في النافذة لتنشيط كود فبا.
الآن تمت إضافة النص "Kg" في نهاية كل خلية.
بالنسبة لمعظمكم ، تعد إضافة نصوص إلى بداية الخلايا أو نهايتها أمرًا سهلاً ، ولكن إضافة نصوص إلى منتصف الخلايا قد يكون أمرًا صعبًا إلى حد ما. خذ على سبيل المثال ، كما هو موضح أدناه ، إضافة محدد ، مثل النقطتين: في نهاية الحرف الثاني من كل خلية في النطاق B3: B7.
3.1 إضافة بعد الحرف n من السلسلة تلو الأخرى
فيما يلي أربع صيغ متوفرة لك للتعامل مع هذه الوظيفة ، اختر واحدة لاستخدامها:
Formula1 تجمع بين الدالتين LEFT و RIGHT
LEFT (خلية ، n) & "نص" & يمين (خلية ، LEN (خلية) -n)
Formula2 تجمع بين وظائف CONCATENATE (CONCAT) و RIGHT و LEN
CONCATENATE (LEFT (cell، n)، "text"، RIGHT (cell، LEN (cell) -n))
Or
CONCAT (LEFT (cell، n)، "text"، RIGHT (cell، LEN (cell) -n))
وظيفة استبدال Formula3
REPLACE (الخلية، n + 1، 0، "text")
في الصيغ العامة: الخلية هي مرجع الخلية للنص الذي تريد إضافة نص في المنتصف ، والنص هو النص المستخدم للإضافة إلى الخلية ، n هو الرقم الذي يحدد بعد أي حرف في السلسلة النصية تريد أضف نصًا.
لحل الوظيفة المذكورة أعلاه ، يرجى استخدام الصيغ على النحو التالي:
اجمع بين الوظائف اليمنى واليسرى
= LEFT (B3، 2) & ":" & RIGHT (B3، LEN (B3) -2) or = LEFT (B3، 2) & $ E $ 3 & RIGHT (B3، LEN (B3) -2)
الجمع بين وظائف CONCATENATE (CONCAT) و RIGHT و LEN
= CONCATENATE (LEFT (B3، 2)، ":"، RIGHT (B3، LEN (B3) -2)) or = CONCAT (LEFT (B3، 2)، ":"، RIGHT (B3، LEN (B3) -2))
استبدال وظيفة
= استبدال (B3، 2 + 1، 0، ":") or = استبدال (B3، 2 + 1، 0، $ E $ 3)
صحافة أدخل مفتاح للحصول على النتيجة ، ثم اسحب مقبض الملء التلقائي لأسفل لإضافة نص بعد الحرف الثاني من كل خلية من النطاق B3: B7.
انتباه: يجب وضع النص بين علامتي اقتباس أو أن الصيغة ترجع قيمة الخطأ #NAME ؟. إذا كنت تستخدم مرجع الخلية للنص ، فيرجى تذكر استخدام المرجع المطلق ، يمكنك الضغط على المفتاح F4 لتغيير المرجع النسبي إلى المرجع المطلق. |
3.2 أضف بعد الحرف n من السلسلة بواسطة Flash Fill
إذا كنت تستخدم Excel 2013 أو الإصدارات الأحدث ، فإن ملف فلاش فيل، يمكن أن تملأ الخلايا بناءً على الخلايا المذكورة أعلاه التي أدخلتها تلقائيًا.
اختر خلية بجوار البيانات الأصلية الأولى ، اكتب البيانات الأولى يدويًا بعلامة النقطتين بعد الحرف الثاني كما هو موضح أدناه:
ثم قم بتنشيط الخلية الموجودة أسفل النتيجة الأولى ، اضغط على CTRL + E مفاتيح للتنشيط فلاش فيل الأمر ، تم ملء جميع الخلايا أدناه بما في ذلك الخلية النشطة تلقائيًا.
انتباه: إذا كنت في نظام MAC ، فاضغط على مفاتيح Command + E. |
3.3 إضافة بعد الحرف n من السلسلة باستخدام كود VBA
يمكن لرمز VBA القيام بهذه المهمة أيضًا.
1. صحافة قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. ثم في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإدراج وحدة جديدة فارغة.
3. انسخ والصق رمز فبا أدناه إلى الوحدة الجديدة.
فبا: أضف إلى منتصف الخلايا
Sub AddToMidduleOfString()
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 = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
Next
End Sub
انتباه: في نص الكود ، 2 هو الرقم الذي يحدد الموضع الذي تريد إضافة نص بعده ، : هو النص الذي تريد الإضافة إليه ، 3 هو مجموع 2 وطول النص الذي تضيفه. خذ مثالًا آخر ، لإضافة "و" بعد الحرف الأول من السلسلة "AB" ، يجب أن يكون البرنامج النصي Rng.Value = VBA.Left (Rng.Value، 1) & "و & VBA.Mid (Rng.Value ، 4، VBA.Len (Rng.Value) - 1) |
4. صحافة F5 مفتاح أو انقر يجري زر في النافذة لتنشيط كود فبا. ينبثق مربع حوار لتحديد الخلايا لإضافة نص.
5. انقر OK. الآن تمت إضافة النص ":" بعد الحرف الثاني من كل خلية في النطاق B19: B23.
إذا مللت من الصيغ و VBA ، يمكنك تجربة أداة قوية وسهلة الاستخدام ، كوتولس ل إكسيل، والتي يمكن أن تساعدك في إضافة نص ميزة.
يمكن لميزة إضافة النص هذه:
- أضف النص قبل الحرف الأول
- أضف نصًا بعد الحرف الأخير
- إضافة نص في المواقف المحددة
- تمديد
أضف نصًا قبل الأحرف الكبيرة
أضف نصًا قبل الأحرف الصغيرة
أضف نصًا قبل الأحرف الكبيرة / الصغيرة
أضف نصًا قبل الأحرف الرقمية
انقر للحصول على نسخة تجريبية مجانية مدتها 30 يومًا الآن.
حدد الخلايا التي تريد إضافة نص إليها ، ثم قم بتطبيق إضافة نص بالنقر كوتولس > نص > إضافة نص.
4.1 إضافة نص قبل الحرف الأول أو بعد الحرف الأخير
في مجلة إضافة نص في مربع الحوار ، اكتب النص الذي تريد إضافته إلى الخلايا في ملف نص مربع نص ، ثم تحقق قبل الشخصية الأولى في ال الموقع الحالي والقسم الخاص به.
انقر التقديم or Ok لإنهاء الإضافة.
لإضافة نص بعد الحرف الأخير ، اكتب النص الذي تريد إضافته إلى الخلايا في ملف نص مربع نص ، ثم تحقق بعد آخر حرف في ال الموقع الحالي والقسم الخاص به.
انقر التقديم or Ok لإنهاء الإضافة.
4.2 إضافة نص في الموضع (المواضع) المحددة
في بعض الأحيان ، قد ترغب في إضافة نص إلى منتصف الخلية ، أو إضافة نص إلى عدة مواضع بالخلية. لنفترض إضافة فاصل "-" بعد الرقمين الثالث والسابع من الأرقام الاجتماعية كما هو موضح أدناه لقطة الشاشة:
في مجلة إضافة نص الحوار ، اكتب النص فيه نص مربع نص ، وتحقق تحديد الخيار ، ثم اكتب المواضع باستخدام الفاصلة للفصل في مربع النص ثم انقر فوق Ok or التقديم.
4.3 تمديد الأداة المساعدة إضافة نص
إلى جانب إضافة نص إلى المواضع العادية (البداية والنهاية والموضع المحدد) ، فإن ملف إضافة نص الأداة تدعم أيضا لإضافة نص
- قبل الأحرف الكبيرة
- قبل الأحرف الصغيرة
- قبل الأحرف الكبيرة / الصغيرة
- قبل الأحرف الرقمية
في مجلة إضافة نص الحوار ، اكتب النص فيه نص مربع نص ، وتحقق أضف فقط إلى الخيار ، ثم انقر فوق القائمة المنسدلة أدناه لاختيار العملية التي تريدها.
يوفر هذا الجزء صيغًا لإضافة نص قبل أو بعد أول نص محدد ظهر في Excel.
على سبيل المثال ، تريد إضافة نص "(بيع)" قبل النص الأول "السعر" في الخلية كما هو موضح أدناه لقطات الشاشة:
في Excel ، يمكن لوظائف REPLACE و SUBSTITUTE حل هذه المهمة.
استبدال وظيفة
REPLACE (خلية، FIND ("find_text"، خلية)، 0، "add_text")
وظيفة الاستبدال
البديل (الخلية ، "find_text" ، "replace_text" ، 1)
في هذه الحالة ، يرجى استخدام الصيغ أعلاه على النحو التالي:
= REPLACE (B4، FIND ("price"، B4)، 0، "(sale)")
Or
= SUBSTITUTE (B4، "price"، "(sale) price"، 1)
حجج الصيغة في هذه الحالة هي
الخلية: B4 ،
Find_text: السعر ،
Add_text: (بيع) ،
Replace_text: السعر (البيع).
صحافة أدخل مفتاح للحصول على نتيجة الإضافة الأولى ، ثم اسحب مقبض الملء التلقائي فوق الخلايا التي تحتاج إلى هذه الصيغة.
على سبيل المثال ، تريد إضافة رمز العملة "$" بعد العلامة الأولى ":" في الخلية كما هو موضح أدناه:
في Excel ، يمكن لوظائف REPLACE و SUBSTITUTE حل هذه المهمة.
استبدال وظيفة
REPLACE (خلية ، FIND ("find_text" ، خلية) ، find_text_length ، "replace_text")
وظيفة الاستبدال
البديل (الخلية ، "find_text" ، "replace_text")
في هذه الحالة ، يرجى استخدام الصيغ أعلاه على النحو التالي:
= REPLACE (B12، FIND (":"، B12)، 1، ": $")
Or
= الاستبدال (B12، ":"، ": $")
حجج الصيغة في هذه الحالة هي
الخلية: B12 ،
بحث عن نص: :،
Replace_text :: $.
Find_text_length: 1
صحافة أدخل مفتاح للحصول على نتيجة الإضافة الأولى ، ثم اسحب مقبض الملء التلقائي فوق الخلايا التي تحتاج إلى هذه الصيغة.
في هذا الجزء من البرنامج التعليمي ، يقدم ثلاث طرق مختلفة (الصيغة ، Find and Replace ، VBA) لمساعدتك على إضافة أحرف قبل أو بعد كل كلمة في الخلية.
أضف الأحرف قبل كل كلمة |
أضف الأحرف بعد كل كلمة |
6.1 أضف حرفًا (أحرف) قبل أو بعد كل كلمة حسب الصيغة
يمكن استخدام الدالة SUBSTITUTE لحل هذه الوظيفة ، والصيغ العامة على النحو التالي:
أضف قبل كل كلمة
"حرف" & SUBSTITUTE (سلسلة ، "" ، "حرف")
أضف بعد كل كلمة
SUBSTITUTE (سلسلة ، "" ، "حرف") و "حرف"
لنفترض إضافة "+" قبل كل كلمة في قائمة B3: B6 ، يرجى استخدام الصيغة على النحو التالي:
= "+" & الاستبدال (B3، ""، "+")
صحافة أدخل مفتاح للحصول على النتيجة الأولى ، ثم اسحب مقبض التعبئة التلقائية لأسفل للحصول على جميع النتائج.
بافتراض إضافة ($) بعد كل كلمة من القائمة B11: B14 ، يرجى استخدام الصيغة على النحو التالي:
= الاستبدال (B11، ""، "($)") & "($)"
صحافة أدخل مفتاح للحصول على النتيجة الأولى ، ثم اسحب مقبض التعبئة التلقائية لأسفل للحصول على جميع النتائج.
6.2 أضف حرفًا (أحرف) قبل أو بعد كل كلمة عن طريق البحث والاستبدال
إذا كنت ترغب في إضافة أحرف قبل كل كلمة باستثناء الأولى ، أو إضافة أحرف بعد كل كلمة باستثناء آخر لقطة الشاشة الموضحة أدناه ، فإن برنامج Excel المدمج بحث واستبدال يمكن أن تتعامل الأداة مع هذه الوظيفة.
أضف قبل كل كلمة باستثناء الكلمة الأولى
أضف بعد كل كلمة باستثناء الكلمة الأخيرة
1. حدد الخلايا التي تريد إضافة أحرف قبل كل كلمة أو بعدها ، ثم اضغط CTRL + H مفاتيح لتمكين بحث واستبدال الحوار.
2. اكتب مسافة في ملف تجد ما textbox ، ثم اكتب الأحرف الجديدة بمسافة استبدال textbox ، ثم انقر أخيرًا على ملف استبدال الكل .
عملية | العلاجات العامة | مثال |
أضف الأحرف قبل كل كلمة | إضافة أحرف جديدة بعد مسافة | أضف (بيع) قبل كل كلمة |
عملية | العلاجات العامة | مثال |
أضف الأحرف بعد كل كلمة | شخصيات جديدة متبوعة بمسافة | أضف - بعد كل كلمة |
هنا يوفر اثنين من رموز VBA لإضافة أحرف قبل أو بعد كل كلمة ، يرجى تشغيل الكود باتباع الخطوات التالية.
1. صحافة قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإدراج وحدة فارغة جديدة.
3. انسخ والصق رمز VBA أدناه إلى الوحدة النمطية.
أضف قبل كل كلمة
Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
On Error Resume Next
Set xSRg = Application.Selection
Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
If StrPtr(xInStr) = 0 Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
xArr = Split(xCell.Text, " ")
xValue = ""
For Each xStr In xArr
If Trim(xStr) <> "" Then
If xValue = "" Then
xValue = xInStr & Trim(xStr)
Else
xValue = xValue & " " & xInStr & Trim(xStr)
End If
End If
Next
xCell.Value = xValue
Next
Application.ScreenUpdating = True
End Sub
أضف بعد كل كلمة
Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
On Error Resume Next
Set xSRg = Application.Selection
Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
If StrPtr(xInStr) = 0 Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
xArr = Split(xCell.Text, " ")
xValue = ""
For Each xStr In xArr
If Trim(xStr) <> "" Then
If xValue = "" Then
xValue = Trim(xStr) & xInStr
Else
xValue = xValue & " " & Trim(xStr) & xInStr
End If
End If
Next
xCell.Value = xValue
Next
Application.ScreenUpdating = True
End Sub
4. صحافة F5 مفتاح لتشغيل التعليمات البرمجية (أو يمكنك النقر فوق يجري زر ) ، يظهر مربع حوار ليطلب منك تحديد خلايا مستمرة للعمل ، انقر فوق OK.
5. في مربع الحوار المنبثق الثاني ، اكتب الأحرف التي تريد إضافتها ، انقر فوق OK.
ثم ستتم إضافة الأحرف في مقدمة أو نهاية كل كلمة.
في بعض الأحيان ، قد ترغب في إضافة نص بين كل حرف. هنا في هذا الجزء ، يسرد سيناريوهين ، أحدهما لإضافة نص بين كل حرف ، والآخر هو إضافة مسافة بين كل رقم.
7.1 إضافة نص بين كل حرف / رقم مع وظيفة من تحديد المستخدم
لإضافة أحرف بين كل حرف في سلسلة ، يمكن أن تساعدك الوظيفة المعرفة من قبل المستخدم.
في هذه الحالة ، نضيف مسافة بين كل حرف.
1. صحافة قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإدراج وحدة فارغة جديدة.
3. انسخ والصق رمز VBA أدناه إلى الوحدة النمطية.
أضف نصًا بين الأحرف
Function AddText(Str As String) As String
Dim i As Long
For i = 1 To Len(Str)
AddText = AddText & Mid(Str, i, 1) & " "
Next i
AddSpace = Trim(AddSpace)
End Function
4. احفظ الكود وأغلق النافذة للعودة إلى ورقة العمل ، ثم اكتب الصيغة أدناه في الخلية التي تريد وضع نتيجة الإضافة.
= AddText (B3)
B3 هي الخلية التي تحتوي على السلسلة التي تريد إضافة مسافة بين الأحرف.
5. صحافة أدخل للحصول على النتيجة ، اسحب مقبض التعبئة التلقائية فوق الخلايا للحصول على نتائج أخرى حسب حاجتك.
انتباه: 1 ، في كود فبا ، يمكنك تغيير "" إلى نصوص أخرى حسب حاجتك ، بافتراض تغييرها إلى "-" لإضافة - بين الأحرف. 2 ، الرمز سيضيف النص الجديد بعد كل حرف. يمكنك إزالة آخر نص مضاف إذا لم تكن في حاجة باستخدام الصيغة أدناه. لمزيد من التفاصيل حول الصيغة ، يرجى زيارة: كيفية إزالة الأحرف N الأولى أو الأخيرة من خلية أو سلسلة في Excإيل؟ LEFT (خلية ، LEN (خلية) - طول_نص) |
7.2 أضف مسافة بين كل رقم مع الصيغة
إذا كنت تريد إضافة مسافة بين أرقام سلسلة وهي قيمة رقمية ، يمكنك استخدام الدالة TEXT.
انتباه: يجب أن تكون أرقام النطاق التي تريد إضافة مسافة بينها بنفس الطول ، وإلا فقد تكون بعض النتائج غير صحيحة. |
لنفترض هنا قائمة بالأرقام المكونة من 8 أرقام في النطاق B10: B12 ، يرجى تحديد خلية ستضع النتيجة ، اكتب الصيغة أدناه:
= TEXT (B10، "# # # # # # # #")
صحافة أدخل مفتاح ، ثم اسحب مقبض الملء التلقائي فوق الخلايا الأخرى.
إذا كان طول الأرقام 5 ، سيتم تغيير الصيغة إلى = TEXT (B10، "# # # # #").
إذا كنت ترغب في إضافة حرف (أحرف) بين كل كلمة ، بافتراض إضافة مسافة بين الأسماء الأولى والمتوسطة والأخيرة كما هو موضح أدناه ، يمكنك استخدام وظيفة محددة من قبل المستخدم.
1. صحافة قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإدراج وحدة فارغة جديدة.
3. انسخ والصق رمز VBA أدناه إلى الوحدة النمطية.
أضف الأحرف بين الكلمات
Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddCharacters = xOut
End Function
4. احفظ الكود وأغلق النافذة للعودة إلى ورقة العمل ، ثم اكتب الصيغة أدناه في الخلية التي تريد وضع نتيجة الإضافة.
= AddCharacters (B3)
B3 هي الخلية التي تحتوي على السلسلة التي تريد إضافة مسافة بين الكلمات.
5. صحافة أدخل للحصول على النتيجة ، اسحب مقبض التعبئة التلقائية فوق الخلايا للحصول على نتائج أخرى حسب حاجتك.
انتباه: في كود فبا ، يمكنك تغيير "" إلى نصوص أخرى حسب حاجتك ، بافتراض تغييرها إلى "-" لإضافة - بين الكلمات. |
لإضافة حرف (أحرف) معين بين النصوص والأرقام كما هو موضح أدناه ، تقدم هنا طريقتان.
9.1 أضف حرفًا بين النصوص والأرقام بالصيغة
إذا كانت النصوص في مقدمة الأرقام ، فإن الصيغة العامة هي
TRIM (REPLACE (سلسلة، MIN (FIND ({1,2,3,4,5,6,7,8,9,0،1234567890،0،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX}، string & "XNUMX"))، XNUMX، "-"))
باستخدام الحالة أعلاه كمثال ، يرجى استخدام الصيغة على النحو التالي:
=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))
صحافة أدخل مفتاح للحصول على النتيجة الأولى ، ثم اسحب مقبض التعبئة التلقائية فوق الخلايا الأخرى لملء هذه الصيغة.
إذا كانت الأرقام في مقدمة النصوص ، فإن الصيغة العامة هي
LEFT (سلسلة ، SUM (سلسلة) -LEN (SUBSTITUTE (سلسلة ، {0,1,2,3,4,5,6,7,8,9،13،0,1,2,3,4,5,6,7,8,9،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX}، "")))) & "." & RIGHT (سلسلة ، LEN (BXNUMX) - SUM (LEN (سلسلة) -LEN (SUBSTITUTE (سلسلة ، {XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX،XNUMX}، ""))))
باستخدام الحالة أعلاه كمثال ، يرجى استخدام الصيغة على النحو التالي:
=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT(B13,LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13, {0,1,2,3,4,5,6,7,8,9}, ""))))
صحافة أدخل مفتاح للحصول على النتيجة الأولى ، ثم اسحب مقبض التعبئة التلقائية فوق الخلايا الأخرى لملء هذه الصيغة.
9.2 إضافة حرف بين النصوص والأرقام باستخدام Flash Fill
إذا كنت تستخدم Excel 2013 أو الإصدارات الأحدث ، فإن ملف فلاش فيل يمكن أن يساعدك أيضًا في إضافة حرف (أحرف) بين النصوص والأرقام.
بجانب البيانات الأصلية ، اكتب البيانات الجديدة التي تمت إضافة الحرف (الأحرف) بين النصوص والأرقام. ثم اضغط على مفتاح Enter للانتقال إلى الخلية التالية من النتيجة الأولى.
و اضغط CTRL + E مفاتيح لتمكين Flash Fill.
تمديد
يسرد هذا البرنامج التعليمي أيضًا بعض السيناريوهات حول إضافة نص قد نلتقي به في حياتنا اليومية أو عملنا.
في بعض الأحيان ، تحتاج إلى إضافة فواصل مثل الشرطات إلى سلسلة من أرقام الهواتف أو الأرقام الاجتماعية كما هو موضح أدناه لقطة الشاشة. ستتم تجربة الكتابة يدويًا إذا كان هناك مئات الأرقام المطلوب إضافتها. في هذا الجزء ، يقدم ثلاث طرق خدعة للتعامل مع هذه الوظيفة بسرعة.
10.1 أضف الشرطات إلى الأرقام حسب الصيغة
فيما يلي صيغتان يمكن أن تضيفا بسرعة شرطات إلى الأرقام. لإضافة شرطات بعد الرقمين الثالث والسادس في الخلية B3 ، الرجاء استخدام الصيغة على النحو التالي:
استبدال وظيفة
= REPLACE (REPLACE (B3,4,0،8,0،XNUMX، "-")، XNUMX،XNUMX، "-")
دالة TEXT
= TEXT (B3، "؟؟؟ - ؟؟؟ - ؟؟؟")
صحافة أدخل مفتاح للحصول على النتيجة الأولى ، ثم اسحب مقبض التعبئة التلقائية فوق الخلايا الأخرى.
انتباه: يمكنك تغيير حجج الصيغ أعلاه حسب حاجتك. افترض إضافة "-" بعد الأرقام الثانية والرابعة والسادسة ، يمكنك استخدام الصيغ على النحو التالي: = REPLACE (REPLACE (REPLACE (B3,3,0،6,0،9,0، "-")، XNUMX،XNUMX، "-")، XNUMX،XNUMX، "-") = TEXT (B3، "؟؟ - ؟؟ - ؟؟ - ؟؟؟") |
10.2 إضافة شرطات إلى الأرقام عن طريق تنسيق الخلايا
لإضافة شرطات مباشرة إلى الأرقام الموجودة في الخلايا الأصلية ، يمكنك استخدام امتداد تنسيق الخلايا ميزة.
1. حدد الأرقام التي تريد إضافة شرطات إليها ، ثم اضغط CTRL + 1 مفاتيح لتمكين تنسيق الخلايا الحوار.
2. في ال تنسيق الخلايا الحوار ، تحت رقم الهاتف علامة التبويب، اختر Custom من الفئة والقسم الخاص به.
3. ثم في اليمين النوع قسم اكتب ### - ### - ### في مربع النص ، انقر فوق OK.
الآن تمت إضافة الأرقام المحددة شرطات.
10.3 إضافة شرطات إلى رقم الهاتف عن طريق إضافة نص Kutools for Excel
إذا كان لديك كوتولس ل إكسيل المثبتة في Excel ، فإن إضافة نص ميزة أيضا يمكن أن تفعل لك معروفا.
1. حدد الخلايا التي تحتوي على الأرقام المطلوبة لإضافتها شرطات ، انقر فوق كوتولس > نص > أضف نصًا.
2. في ال إضافة نص الحوار ، اكتب الشرطة أو الفاصل الآخر فيه نص مربع نص ، اختر تحديد الخيار ، ثم اكتب المواضع التي تريد إضافة شرطات بعدها وفصل بينها بفاصلات في مربع النص أدناه.
3. انقر Ok أو تطبيق. ثم تمت إضافة شرطات على الأرقام المحددة.
قم بتنزيل Add Text مجانًا لمدة 30 يومًا للتجربة.
لنفترض أن هناك قائمة من الأرقام بأطوال مختلفة ، فأنت تريد إضافة أصفار بادئة لجعلها بنفس الطول وتبدو نظيفة كما هو موضح أدناه. فيما يلي طريقتان تم توفيرهما لك للتعامل مع الوظيفة.
11.1 إضافة أصفار بادئة إلى الخلايا باستخدام ميزة تنسيق الخلايا
يمكنك استخدام تنسيق الخلايا ميزة لتعيين تنسيق مخصص لإصلاح طول الخلية عن طريق إضافة الأصفار البادئة.
1. حدد الخلايا التي تريد إضافة الأصفار البادئة إليها ، ثم اضغط CTRL + 1 مفاتيح للتمكين تنسيق الخلايا الحوار.
2. في ال تنسيق الخلايا الحوار ، تحت رقم الهاتف علامة التبويب، اختر Custom من الفئة والقسم الخاص به.
3. ثم في اليمين النوع قسم اكتب 0000 في مربع النص (لإصلاح طول الرقم على 4-dight ، اكتب 0000 ، يمكنك تغييره إلى طول آخر ، مثل 5-dight ، اكتب 00000) ، انقر فوق OK.
ثم تمت إضافة الأصفار البادئة وبنفس الطول.
انتباه: إذا تجاوز طول البيانات الأصلية الطول المحدد ، فسيتم عرض البيانات الأصلية بدون أصفار بادئة. |
11.2 أضف الأصفار البادئة إلى الخلايا ذات الصيغة
إذا كنت لا تريد تغيير البيانات الأصلية ، يمكنك استخدام الصيغة لإضافة أصفار بادئة إلى أرقام في مواقع أخرى.
فيما يلي ثلاث وظائف يمكن أن تساعدك.
دالة Formula1 TEXT
TEXT (رقم ، "00…")
دالة Formula2 RIGHT
RIGHT ("00…" & number، length)
دالة Formula3 BASE
BASE (العدد ، 10 ، الطول)
عدد الأصفار في الصيغة يساوي طول الرقم.
هنا قمت بتعيين 4 أرقام بطول الأرقام ، يرجى استخدام الصيغ على النحو التالي:
= TEXT (B10، "0000")
= RIGHT ("0000" & B10,4،XNUMX)
= BASE (B10,10,4،XNUMX،XNUMX)
صحافة أدخل مفتاح واسحب مقبض التعبئة التلقائية لأسفل.
انتباه: إذا تجاوز طول البيانات الأصلية الطول المحدد ، فسيتم عرض البيانات الأصلية بدون أصفار بادئة. |
إذا كنت ترغب في إضافة أصفار زائدة إلى أرقام لعمل طول ثابت ، بافتراض إضافة أصفار زائدة إلى الأرقام الموجودة في الخلية B3: B7 لجعلها بطول 5 أرقام كما هو موضح أدناه ، يمكنك تطبيق صيغة للتعامل مع الوظيفة .
وظيفة REPT
number & REPT ("0"، length-LEN (رقم))
في الصيغة ، تمثل الوسيطة "رقم" الرقم أو مرجع الخلية الذي تريد إضافة أصفار لاحقة إليه ، ووسيطة "الطول" هي الطول الثابت الذي تريده.
الرجاء استخدام الصيغة على النحو التالي:
= B3 & REPT ("0"، 5-LEN (B3))
صحافة أدخل مفتاح واسحب مقبض التعبئة التلقائية لأسفل إلى الخلايا التي تحتاج إلى هذه الصيغة.
إذا كنت ترغب في تصدير البيانات أو نسخها من ورقة عمل إلى مفكرة ، فقد يتم وضع النصوص بشكل غير مرتب لأن قيم الخلية بأطوال مختلفة ، لجعلها تبدو أنيقة كما هو موضح أدناه ، تحتاج إلى إضافة مسافة لاحقة.
لحل هذه الوظيفة ، يمكن لوظيفة REPT أن تقدم لك معروفًا.
LEFT (نص و REPT (""، max_length)، max_length)
في الصيغة ، الوسيطة "text" هي النص أو مرجع الخلية الذي تريد إضافة مسافة لاحقة إليه ، والوسيطة "max_length" هي الطول الثابت الذي تريده لإنشاء النصوص ، والذي يجب أن يكون أطول من أو يساوي أقصى طول للنصوص المستخدمة.
لإضافة مسافة زائدة للنصوص في الخلية B3: C6 ، يرجى استخدام الصيغة أدناه:
= LEFT (B3 & REPT (""، 10)، 10)
صحافة أدخل مفتاح ، ثم اسحب مقبض التعبئة التلقائية إلى جميع الخلايا التي تحتاجها هذه الصيغة.
في هذه الحالة ، نظرًا لأن أطول نص مستخدم هو 9 أحرف ، فإننا نستخدم 10 هنا.
في بعض الأحيان ، تحتاج إلى إضافة علامات اقتباس أو أقواس حول النص أو الأرقام في الخلايا كما هو موضح أدناه ، باستثناء الكتابة اليدوية واحدة تلو الأخرى ، إليك طريقتان في Excel يمكنهما حلها بسرعة.
14.1 قم بإضافة أقواس / علامات اقتباس حول تنسيق الخلايا
إذا كنت تريد إضافة علامات اقتباس حول النص في البيانات الأصلية ، فيمكن أن تساعدك ميزة تنسيق الخلايا في Excel.
1. حدد الخلايا التي تريد إضافة علامات الاقتباس إليها ، اضغط على CTRL + 1 مفاتيح لتمكين تنسيق الخلايا الحوار.
2. في ال تنسيق الخلايا الحوار تحت رقم الهاتف علامة التبويب، اختر Custom من قائمة الفئة، ثم انتقل إلى القسم الأيمن للكتابة "" "" @ "" "" في النوع مربع الكتابة. انقر OK.
تمت إضافة النص الموجود في الخلايا المحددة بعلامات اقتباس.
إذا كنت تريد إضافة أقواس حول النص ، في مربع نص النوع في مربع حوار تنسيق الخلايا ، استخدم (@).
14.2 أضف علامات الاقتباس / الأقواس حول الصيغ
يمكن أيضًا استخدام الصيغ لإضافة علامات اقتباس إلى نص في خلايا أخرى.
باستخدام والموصل
""""&نص&""""
Or
شار (34) ونص وشار (34)
في هذه الحالة ، اكتب نصًا في الخلية B11 ، يرجى استخدام الصيغ على النحو التالي:
= "" "" & B11 & "" ""
Or
= char (34) & B11 & char (34)
صحافة أدخل مفتاح واسحب مقبض التعبئة التلقائية لأسفل لملء الخلايا.
إذا كنت تريد إضافة أقواس حول النص ، فاستخدم الصيغة كـ "("&نص&")".
14.3 أضف علامات الاقتباس / الأقواس حولها بواسطة VBA
إذا كنت بحاجة إلى رمز VBA لحل هذه الوظيفة ، فإليك VBA.
1. صحافة قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. ثم في النافذة المنبثقة ، انقر فوق إدراج > وحدة لإدراج وحدة جديدة فارغة.
3. انسخ والصق رمز فبا أدناه إلى الوحدة الجديدة.
فبا: أضف علامات اقتباس حول النصوص
Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
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 = """" & Rng.Value & """"
Next
End Sub
انتباه: في نص الكود ، "" "& Rng.Value &" "" " يشير إلى إضافة "" حول النصوص ، إذا كنت تريد إضافة أقواس () حول النص ، فقم بتغييره إلى "(" & Rng.Value & ")". |
4. صحافة F5 مفتاح أو انقر يجري زر في النافذة لتنشيط كود فبا. ينبثق مربع حوار لاختيار الخلايا لإضافة علامات اقتباس.
5. انقر OK. تمت الآن إضافة علامات الاقتباس حول النصوص الموجودة في الخلايا المحددة.
في بعض الأحيان ، لمساعدة المستخدمين الآخرين على فهم البيانات بشكل أفضل ، قد تحتاج إلى إضافة نص في نتائج الصيغة كما هو موضح أدناه. لتضمين النص في الصيغة ، يمكنك استخدام علامات الاقتباس المحيطة بالنص وإضافة الرابط & لدمج النص والصيغة معًا.
الحالة 1 تضيف نصًا قبل الصيغة
"اليوم هو" & TEXT (TODAY () ، "dddd ، mmmm dd.")
الحالة 2 تضيف نصًا بعد ذلك معادلة
TEXT (NOW ()، "HH: MM: SS") & "هو الوقت الحالي."
الحالة 3 تضيف نصوصًا في جانبين من الصيغة
"تباع اليوم" & البيانات & "كجم".
المزيد من دروس Excel: |
الجمع بين مصنفات / أوراق عمل متعددة في واحد تقسيم خلايا النص والرقم والتاريخ (افصل إلى أعمدة متعددة) ادمج محتويات خلايا متعددة دون فقد البيانات في Excel قارن بين عمودين للمطابقات والاختلافات في Excel |
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!