प्रोग्रामिंग, सवालों के जवाब में मदद करें / एक्सेल / मानदंड - एक्सेल के आधार पर स्तंभ से पंक्ति में डेटा कैसे ले जाएं

मानदंड के आधार पर कॉलम से पंक्ति तक डेटा कैसे स्थानांतरित करें - एक्सेल

मैं इस प्रश्न के लिए अधिक विशिष्ट शीर्षक के बारे में सोच सकता हूं, क्षमा करें।

मेरे पास कुछ डेटा है जो एक से निकाला गया हैबड़े डेटाबेस, हालांकि एक कॉलम में बुलेट पॉइंट होते हैं, और एक्सेल ने प्रत्येक बुलेट पॉइंट को कॉलम ए में एक नई पंक्ति में डाल दिया है। मैं इस कॉलम से सभी डेटा लेने और इसे संबंधित पंक्ति में जोड़ने के लिए एक फॉर्मूला चाहूंगा।

सभी प्रविष्टियों में सूचियाँ नहीं हैं, और सभी सूचियाँ एक ही लंबाई की नहीं हैं, इसलिए मुझे एक्सेल को बताने का एक तरीका खोजने की आवश्यकता है कि कौन-सी प्रविष्टि लिंक है जो कि पंक्ति भी है।

यहाँ डेटा का एक उदाहरण है जिसके साथ मैं काम कर रहा हूँ

Code         Name       Info       List
A10          A10 name   A10 info   List Item 1
List Item 2
List Item 3
A11          A11 name   A11 info
A12          A12 name   A12 info   List item 1
List Item 2
A13          A13 name   A13 info   List item 1
List Item 2
List Item 3
List Item 4
A14          A14 name   A14 info
A15          A15 name   A15 info
A16          A16 name   A16 info

etc....


I would like it to look like this
Code         Name       Info       List         List 2        List 3
A10          A10 name   A10 info   List Item 1  List Item 2   List Item 3
A11          A11 name   A11 info
A12          A12 name   A12 info   List item 1  List Item 2

...आदि.......

क्या यह संभव है?

मैंने पहले से ही कई तरीकों की कोशिश की है, लेकिन मैं कुछ नौसिखिया हूँ।

उत्तर:

जवाब के लिए 0 № 1

E2 में:

=IF(LEN(INDIRECT(ADDRESS(ROW()+COLUMN()-4,2)))=0,INDIRECT(ADDRESS(ROW()+COLUMN()-4,1)),"")

अनिवार्य रूप से, यदि नीचे पंक्ति में स्तंभ B रिक्त है, तो कॉलम A से सूची (मान) मान को पकड़ो।

इसे पंक्ति 2 में दाईं ओर भरें (स्तंभ E से जहाँ तक आपकी आवश्यकता है)। फिर नीचे भरें।

जब आप फिर से काम करते हैं, तो सूत्रों से छुटकारा पाने के लिए मूल्यों को कॉपी / पेस्ट करें और फिर कर्नल ए पर सॉर्ट करें और किसी भी सूची आइटम पंक्तियों को हटा दें।

जवाब के लिए 0 № 2

यह मानकर कि आपकी इच्छा के अनुसार प्रत्येक पंक्ति के कॉलम A में "A #" लिखा हुआ है ...

dim i as integer
"puts the list otems at the end of the previous row
for i = 1 to Cells(Rows.Count, "A").End(xlUp).Row
if not range("A" & i) Like "A#" then
if range("E" & i - 1) = "" Then"I assumed only 3 possible bullets, but suit this to your liking. If there are many bullets put this in a loop.
range("E" & i - 1) = range("A" & i)
ElseIf range("E" & i - 1)(,2) = "" Then
range("E" & i - 1)(,2) = range("A" & i)
ElseIf range("E" & i - 1)(,3) = "" Then
range("E" & i - 1)(,3) = range("A" & i)
Rows("i").delete Shift:=xlUp "deletes the line
end if
next