मैं एक्सेल में वस्तुओं के कॉलम का विस्तार कैसे करूं ताकि प्रत्येक आइटम अपनी लाइन पर हो?

5

मेरे पास यह है:

  -----A-----|-----B-----|-----C-----
1|cherry     |apple      |banana
2|kiwi       |banana     |cantaloupe
3|peach      |grape      |peach
4|           |peach      |watermelon
5|           |strawberry |

मुझे यह पसंद है:

  -----A-----|-----B-----|-----C-----
1|           |apple      |
2|           |banana     |banana
3|           |           |cantaloupe
4|cherry     |           |
5|           |grape      |
6|kiwi       |           |
7|peach      |peach      |peach
8|           |strawberry |
9|           |           |watermelon

मूल रूप से कॉलम में क्या है के अनुसार प्रत्येक कॉलम का विस्तार करें, और अपनी लाइन पर समान तत्वों को मिलाएं। (मान लें कि प्रत्येक स्तंभ सॉर्ट किया गया है।)

मैं मैन्युअल रूप से कट-पेस्ट गिंसू शेफ खेलकर ऐसा कर रहा हूं, लेकिन सोच रहा था कि क्या कोई स्वचालित तरीका है? (मेरे पास Excel 2007 है लेकिन शीघ्र ही Excel 2010 प्राप्त होगा।)

वैकल्पिक रूप से, क्या इस उद्देश्य के लिए एक्सेल से बेहतर कोई और उपकरण है?

आपके समय के लिए धन्यवाद।

— जेडब्ल्यू।
स्रोत

1

यदि आप इससे परिचित हैं तो आप शायद एक्सेल के भीतर VBA उप के साथ ऐसा कर सकते हैं। क्या ऐसा करते समय वस्तुओं को किसी विशेष तरीके से क्रमबद्ध करने की आवश्यकता है?

— जेम्स

जरुरी नहीं। मैं बाद में छांट सकता हूं।

— जेडब्ल्यू।

4

VBA आवश्यक नहीं है। सभी उदाहरणों की एक सूची बनाएं (कहते हैं कि ColumnD में पंक्तियाँ हैं: Apple, केला, कैंटालूप, चेरी, अंगूर, कीवी, आड़ू, स्ट्रॉबेरी, तरबूज) फिर =IF(ISERROR(INDEX(A$1:A$5,MATCH($D1,A$1:A$5,0))),"",INDEX(A$1:A$5,MATCH($D1,A$1:A$5,0)))E1 में डालें । E1 के G1 के निचले आरएच कोने को खींचें। G1 के निचले आरएच कोने पर डबल क्लिक करें। कॉपी / पेस्ट मूल्य। कॉलम A: D को हटाएं।

— pnuts
स्रोत

मैंने कुछ इस तरह से करना समाप्त किया। धन्यवाद!

— जेडब्ल्यू।

1

बिस्तर पर जाते समय अभी के लिए छद्म कोड, लेकिन आप शायद नीचे के समान कुछ VBA के साथ कर सकते हैं।

शीट का उपयोग करने के लिए 'उपयोग की गई रेंज' प्राप्त करें

Dim oSH As Worksheet
Set oSH = ActiveWorkbook.Sheets("MySheetWithList")
Dim data As range
Set data = oSH.UsedRange

तब स्तंभ A के लिए मानों के माध्यम से पुनरावृति: उपयोग की गई सीमा के भीतर प्रत्येक पंक्ति पर, जब आप मानों का मिलान करते हैं, तब कटिंग-और-पेस्टिंग करते हैं।

    i = 2

While (i < data.Rows.Count)
    A = oSH.range("A" & i).Value2
    B = oSH.range("B" & i).Value2
    C = oSH.range("C" & i).Value2

    If (A = B) Then
     [Move the cells down in columns B and C and reset used range]
    Else
     [Perform the other checks on same row]
    End If

    i = i + 1
Wend

आदि।

— जेम्स
स्रोत