एक्सेल में डुप्लिकेट पंक्तियों को कॉलम में कैसे स्थानांतरित करें?
मान लीजिए कि आपके पास एक्सेल में डेटा की एक श्रृंखला है, अब, आप डुप्लिकेट पंक्तियों को कई कॉलम में स्थानांतरित करना चाहेंगे जैसा कि स्क्रीनशॉट में दिखाया गया है, क्या आपके पास इस कार्य को हल करने के लिए कोई अच्छा विचार है?
VBA कोड के साथ डुप्लिकेट पंक्तियों को कॉलम में स्थानांतरित करें
VBA कोड के साथ डुप्लिकेट पंक्तियों को कॉलम में स्थानांतरित करें
दुर्भाग्य से, एक्सेल में इससे निपटने का आपके लिए कोई सीधा तरीका नहीं है, लेकिन आप इसे हल करने के लिए एक वीबीए कोड बना सकते हैं, कृपया निम्नानुसार करें:
1. नीचे पकड़ो ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: डुप्लिकेट पंक्तियों को एकाधिक कॉलम में स्थानांतरित करें
Sub ConvertTable()
'Updateby Extendoffice
Dim xArr1 As Variant
Dim xArr2 As Variant
Dim InputRng As Range, OutRng As Range
Dim xRows As Long
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xArr1 = InputRng.Value
t = UBound(xArr1, 2): xRows = 1
With CreateObject("Scripting.Dictionary")
.CompareMode = 1
For i = 2 To UBound(xArr1, 1)
If Not .exists(xArr1(i, 1)) Then
xRows = xRows + 1: .Item(xArr1(i, 1)) = VBA.Array(xRows, t)
For ii = 1 To t
xArr1(xRows, ii) = xArr1(i, ii)
Next
Else
xArr2 = .Item(xArr1(i, 1))
If UBound(xArr1, 2) < xArr2(1) + t - 1 Then
ReDim Preserve xArr1(1 To UBound(xArr1, 1), 1 To xArr2(1) + t - 1)
For ii = 2 To t
xArr1(1, xArr2(1) + ii - 1) = xArr1(1, ii)
Next
End If
For ii = 2 To t
xArr1(xArr2(0), xArr2(1) + ii - 1) = xArr1(i, ii)
Next
xArr2(1) = xArr2(1) + t - 1: .Item(xArr1(i, 1)) = xArr2
End If
Next
End With
OutRng.Resize(xRows, UBound(xArr1, 2)).Value = xArr1
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, उस डेटा श्रेणी का चयन करें जिसे आप पॉप आउट संवाद में डुप्लिकेट पंक्तियों को एकाधिक कॉलम में परिवर्तित करना चाहते हैं, स्क्रीनशॉट देखें:
4। क्लिक करें OK, और एक सेल का चयन करें जहां आप परिणाम को निम्नलिखित संवाद बॉक्स में रखना चाहते हैं, स्क्रीनशॉट देखें:
5. और फिर क्लिक करें OK बटन, आपका चयनित डेटा निम्नानुसार परिवर्तित कर दिया गया है:
संबंधित लेख:
कॉलम और पंक्तियों को एकल पंक्ति में कैसे परिवर्तित/परिवर्तित करें?
कॉलम और पंक्तियों को सिंगल कॉलम में कैसे बदलें/परिवर्तित करें?
एक्सेल में सिंगल कॉलम को मल्टीपल कॉलम में कैसे ट्रांसपोज़/कन्वर्ट करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!