التقسيم التلقائي للنص حسب الفاصل المحدد

GETSUBSTR() الوصف

ستجد أدناه وظيفة ستساعدك على تقسيم النص إلى أجزاء بناءً على الفاصل المحدد.

VBA رمز الماكرو

لإضافة ماكرو، افتح محرر Visual Basic (Alt+F11)، إدراج وحدة برمجية فارغة جديدة (Insert - Module) وانسخ نص هذه الوظيفة هناك:

Function GETSUBSTR(Txt, Delimiter, n) As String
   'moonexcel.com.ua
   Dim x As Variant
      x = Split(Txt, Delimiter)
      If n > 0 And n - 1 <= UBound(x) Then
        GETSUBSTR = x(n - 1)
      Else
        GETSUBSTR = ""
      End If
End Function

احفظ ثم عد إلى Excel. الآن في الوظائف المخصصة يمكنك العثور على دالة GETSUBSTR() الخاصة بنا.

 =GETSUBSTR(نص؛ محدد؛ تسلسل_رقم_الجزء_الجزء) 

أين:

• نص - النص الموجود في الخلية التي نخطط لاستخراج الأجزاء منها؛
• مقسم - الرمز الذي سنقسم به النص؛
• الرقم التسلسلي للقطعة - الرقم الذي سيُظهر الجزء الذي نريد الحصول عليه بالترتيب.

مقالات حول الموضوع:

• تقسيم النص إلى عدة أعمدة
• استخراج جزء من الحروف من النص (LEFT, RIGHT, MID)
• تسلسل النص من خلايا مختلفة (CONCATENATE)
• تسلسل النص حسب الشرط (CONCATIF)