يعمل استخدام VBA لتحويل سلسلة الفاصلة الخاصة بي إلى صفوف بشكل رائع - لكنني الآن بحاجة إلى مطابقة الفاصل مع القيمة الموجودة في العمود أ. مثال
يحتوي العمود A على "الأشجار: العمود B عبارة عن سلسلة فاصلة: Dogwood ، و Ash ، و Maple ، و Elm ، و Apple.
كيف أعرض كـ:
شكراً لك
يحتوي العمود A على "الأشجار: العمود B عبارة عن سلسلة فاصلة: Dogwood ، و Ash ، و Maple ، و Elm ، و Apple.
كيف أعرض كـ:
| [font = Calibri]حالياًّ[/ FONT] | |
| [font = Calibri]الأشجار[/ FONT] | [font = Calibri]دوجوود ، آش ، ميبل ، إلم ، تفاح[/ FONT] |
| [font = Calibri]حاجة[/ FONT] | |
| [font = Calibri]الأشجار[/ FONT] | [font = Calibri]القرانيا شجرة[/ FONT] |
| [font = Calibri]الأشجار[/ FONT] | [font = Calibri]رماد[/ FONT] |
| [font = Calibri]الأشجار[/ FONT] | [font = Calibri]خشب القيقب[/ FONT] |
| [font = Calibri]الأشجار[/ FONT] | [font = Calibri]خشب الدردار[/ FONT] |
| [font = Calibri]الأشجار[/ FONT] | [font = Calibri] Apple [/ font] |
نص فرعي عام
تعيين ARange = النطاق ("A: A")
تعيين BRange = النطاق ("B: B")
تعيين CRange = Range ("C: C")
تعيين DRange = النطاق ("D: D")
Dim arr () كسلسلة
lr = Cells.Find ("*" ، SearchOrder: = xlByRows ، SearchDirection: = xlPrevious) .Row
حدد = أوراق العمل
out.Name = "خارج"
الصف الخارجي = 2
بالنسبة إلى i = 2 إلى lr
arr = سبليت (ARange (i)، "،")
لـ j = 0 إلى UBound (arr)
out.Cells (outRow، 1) = Trim (arr (j))
out.Cells (outRow، 2) = BRange (i)
out.Cells (outRow، 3) = CRange (i)
out.Cells (outRow، 4) = DRange (i)
الصف الخارجي = الصف الخارجي + 1
ي المقبل
أنا القادم
نهاية الفرعية
لم أفعل الرؤوس أو أتعامل بشكل صحيح مع ورقة الإخراج ولكن يمكنك أن ترى ما يحدث بشكل أساسي.
تعيين ARange = النطاق ("A: A")
تعيين BRange = النطاق ("B: B")
تعيين CRange = Range ("C: C")
تعيين DRange = النطاق ("D: D")
Dim arr () كسلسلة
lr = Cells.Find ("*" ، SearchOrder: = xlByRows ، SearchDirection: = xlPrevious) .Row
حدد = أوراق العمل
out.Name = "خارج"
الصف الخارجي = 2
بالنسبة إلى i = 2 إلى lr
arr = سبليت (ARange (i)، "،")
لـ j = 0 إلى UBound (arr)
out.Cells (outRow، 1) = Trim (arr (j))
out.Cells (outRow، 2) = BRange (i)
out.Cells (outRow، 3) = CRange (i)
out.Cells (outRow، 4) = DRange (i)
الصف الخارجي = الصف الخارجي + 1
ي المقبل
أنا القادم
نهاية الفرعية
لم أفعل الرؤوس أو أتعامل بشكل صحيح مع ورقة الإخراج ولكن يمكنك أن ترى ما يحدث بشكل أساسي.
- الصفحة:
- 1
لا توجد ردود لهذا المنصب حتى الآن.