दूसरे कॉलम में अद्वितीय मानों के आधार पर एक कॉलम में कोशिकाओं को कैसे स्थानांतरित करें?
मान लीजिए, आपके पास डेटा की एक श्रृंखला है जिसमें दो कॉलम हैं, अब, आप निम्नलिखित परिणाम प्राप्त करने के लिए एक कॉलम में कोशिकाओं को दूसरे कॉलम में अद्वितीय मानों के आधार पर क्षैतिज पंक्तियों में स्थानांतरित करना चाहते हैं। क्या आपके पास एक्सेल में इस समस्या को हल करने के लिए कोई अच्छा विचार है?
सूत्रों के साथ अद्वितीय मानों के आधार पर कोशिकाओं को एक कॉलम में स्थानांतरित करें
वीबीए कोड के साथ अद्वितीय मानों के आधार पर कोशिकाओं को एक कॉलम में स्थानांतरित करें
एक्सेल के लिए कुटूल के साथ अद्वितीय मानों के आधार पर कोशिकाओं को एक कॉलम में स्थानांतरित करें
सूत्रों के साथ अद्वितीय मानों के आधार पर कोशिकाओं को एक कॉलम में स्थानांतरित करें
निम्नलिखित सरणी सूत्रों के साथ, आप अद्वितीय मान निकाल सकते हैं और उनके संबंधित डेटा को क्षैतिज पंक्तियों में स्थानांतरित कर सकते हैं, कृपया निम्नानुसार करें:
1. यह सरणी सूत्र दर्ज करें: =INDEX($A$2:$A$16, MATCH(0, COUNTIF($D$1:$D1, $A$2:$A$16), 0)) उदाहरण के लिए, एक रिक्त कक्ष, D2 में, और दबाएँ शिफ्ट + Ctrl + एंटर सही परिणाम प्राप्त करने के लिए कुंजियाँ एक साथ, स्क्रीनशॉट देखें:
नोट: उपरोक्त सूत्र में, A2: A16 वह कॉलम है जिससे आप अद्वितीय मानों को सूचीबद्ध करना चाहते हैं, और D1 इस फ़ॉर्मूला सेल के ऊपर की सेल है.
2. फिर सभी अद्वितीय मान निकालने के लिए भरण हैंडल को नीचे की ओर खींचें, स्क्रीनशॉट देखें:
3. और फिर इस सूत्र को सेल E2 में दर्ज करते जाएँ: =IFERROR(INDEX($B$2:$B$16, MATCH(0, COUNTIF($D2:D2,$B$2:$B$16)+IF($A$2:$A$16<>$D2, 1, 0), 0)), 0), और दबाना याद रखें शिफ्ट + Ctrl + एंटर परिणाम प्राप्त करने के लिए कुंजी, स्क्रीनशॉट देखें:
नोट: उपरोक्त सूत्र में: B2: B16 वह कॉलम डेटा है जिसे आप स्थानांतरित करना चाहते हैं, A2: A16 वह कॉलम है जिसके आधार पर आप मानों को स्थानांतरित करना चाहते हैं, और D2 इसमें वह अद्वितीय मान शामिल है जिसे आपने चरण 1 में निकाला है।
4. फिर भरण हैंडल को उन कक्षों के दाईं ओर खींचें जिन्हें आप ट्रांसपोज़्ड डेटा को 0 प्रदर्शित होने तक सूचीबद्ध करना चाहते हैं, स्क्रीनशॉट देखें:
5. और फिर दिखाए गए स्क्रीनशॉट के अनुसार ट्रांसपोज़्ड डेटा प्राप्त करने के लिए भरण हैंडल को कोशिकाओं की श्रेणी तक नीचे खींचना जारी रखें:
वीबीए कोड के साथ अद्वितीय मानों के आधार पर कोशिकाओं को एक कॉलम में स्थानांतरित करें
हो सकता है कि सूत्र आपके लिए समझने में जटिल हों, यहां, आप वांछित परिणाम प्राप्त करने के लिए निम्नलिखित वीबीए कोड चला सकते हैं।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: दूसरे कॉलम में अद्वितीय मानों के आधार पर एक कॉलम में कोशिकाओं को स्थानांतरित करें:
Sub transposeunique()
'updateby Extendoffice
Dim xLRow As Long
Dim i As Long
Dim xCrit As String
Dim xCol As New Collection
Dim xRg As Range
Dim xOutRg As Range
Dim xTxt As String
Dim xCount As Long
Dim xVRg As Range
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("please select data range(only two columns):", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If (xRg.Columns.Count <> 2) Or _
(xRg.Areas.Count > 1) Then
MsgBox "the used range is only one area with two columns ", , "Kutools for Excel"
Exit Sub
End If
Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
If xOutRg Is Nothing Then Exit Sub
Set xOutRg = xOutRg.Range(1)
xLRow = xRg.Rows.Count
For i = 2 To xLRow
xCol.Add xRg.Cells(i, 1).Value, xRg.Cells(i, 1).Value
Next
Application.ScreenUpdating = False
For i = 1 To xCol.Count
xCrit = xCol.Item(i)
xOutRg.Offset(i, 0) = xCrit
xRg.AutoFilter Field:=1, Criteria1:=xCrit
Set xVRg = xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible)
If xVRg.Count > xCount Then xCount = xVRg.Count
xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible).Copy
xOutRg.Offset(i, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Next
xOutRg = xRg.Cells(1, 1)
xOutRg.Offset(0, 1).Resize(1, xCount) = xRg.Cells(1, 2)
xRg.Rows(1).Copy
xOutRg.Resize(1, xCount + 1).PasteSpecial Paste:=xlPasteFormats
xRg.AutoFilter
Application.ScreenUpdating = True
End Sub
3. फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको याद दिलाने के लिए पॉप अप होगा कि आप उस डेटा रेंज का चयन करें जिसका आप उपयोग करना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK बटन, एक और प्रॉम्प्ट बॉक्स आपको परिणाम डालने के लिए एक सेल का चयन करने की याद दिलाने के लिए पॉप अप होगा, स्क्रीनशॉट देखें:
6। क्लिक करें OK बटन, और कॉलम बी में डेटा को कॉलम ए में अद्वितीय मानों के आधार पर स्थानांतरित कर दिया गया है, स्क्रीनशॉट देखें:
एक्सेल के लिए कुटूल के साथ अद्वितीय मानों के आधार पर कोशिकाओं को एक कॉलम में स्थानांतरित करें
यदि आपके पास एक्सेल के लिए कुटूल, संयोजन उन्नत संयोजन पंक्तियाँ और विभाजन कोशिकाओं उपयोगिताओं, आप इस कार्य को बिना किसी सूत्र या कोड के शीघ्रता से पूरा कर सकते हैं।
एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. |
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:
1. वह डेटा श्रेणी चुनें जिसका आप उपयोग करना चाहते हैं. (यदि आप मूल डेटा रखना चाहते हैं, तो कृपया पहले डेटा को कॉपी करके किसी अन्य स्थान पर पेस्ट करें।)
2। तब दबायें कुटूल > विलय और विभाजन > उन्नत संयोजन पंक्तियाँ, स्क्रीनशॉट देखें:
3. में कॉलम के आधार पर पंक्तियों को संयोजित करें संवाद बॉक्स, कृपया निम्नलिखित कार्य करें:
(1.) उस कॉलम नाम पर क्लिक करें जिसके आधार पर आप डेटा स्थानांतरित करना चाहते हैं, और चयन करें प्राथमिक कुंजी;
(2.) किसी अन्य कॉलम पर क्लिक करें जिसे आप स्थानांतरित करना चाहते हैं, और क्लिक करें मिलाना फिर संयुक्त डेटा, जैसे स्पेस, अल्पविराम, अर्धविराम को अलग करने के लिए एक विभाजक चुनें।
4। तब दबायें Ok बटन, कॉलम बी में डेटा को कॉलम ए के आधार पर एक सेल में एक साथ जोड़ दिया गया है, स्क्रीनशॉट देखें:
5. और फिर संयुक्त कक्षों का चयन करें, और क्लिक करें कुटूल > विलय और विभाजन > विभाजन कोशिकाओं, स्क्रीनशॉट देखें:
6. में विभाजन कोशिकाओं संवाद बॉक्स में, चयन करें स्तंभों में विभाजित करें नीचे प्रकार विकल्प, और फिर विभाजक चुनें जो आपके संयुक्त डेटा को अलग करता है, स्क्रीनशॉट देखें:
7। तब दबायें Ok बटन, और पॉप आउट डायलॉग बॉक्स में विभाजित परिणाम डालने के लिए एक सेल का चयन करें, स्क्रीनशॉट देखें:
8। क्लिक करें OK, और आपको आवश्यकतानुसार परिणाम मिलेगा। स्क्रीनशॉट देखें:
एक्सेल के लिए कुटूल अभी डाउनलोड करें और निःशुल्क परीक्षण करें!
डेमो: एक्सेल के लिए कुटूल के साथ अद्वितीय मानों के आधार पर कोशिकाओं को एक कॉलम में स्थानांतरित करें
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!