एक्सेल में बाएं से दाएं कॉलम को एक कॉलम में कैसे स्टैक करें?
मान लीजिए कि कई कॉलम हैं, तो काम नीचे दिए गए स्क्रीनशॉट के अनुसार कॉलम को बाएं से दाएं एक सिंगल कॉलम में रखना है। कॉलमों को मैन्युअल रूप से एक-एक करके स्थानांतरित करने के अलावा, क्या एक्सेल में इसे हल करने की कोई तरकीबें हैं?
वीबीए के साथ कॉलमों को बाएं से दाएं एक कॉलम में स्टैक करें
एक्सेल के लिए कुटूल के साथ कॉलम को बाएं से दाएं एक कॉलम में स्टैक करें
वीबीए के साथ कॉलमों को बाएं से दाएं एक कॉलम में स्टैक करें
एक्सेल में, ऐसा कोई अंतर्निहित फ़ंक्शन नहीं है जो इस काम को संभाल सके, लेकिन, वीबीए कोड आपकी मदद कर सकता है।
1। दबाएँ Alt + F11 चाबियाँ, फिर में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल एक नया रिक्त मॉड्यूल बनाने के लिए।
2. नीचे दिए गए कोड को कॉपी करके पेस्ट करें मॉड्यूल.
वीबीए: स्तंभों को एक में ढेर करें
Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNumC = 1 To xSRg.Columns.Count
For xFNumR = 1 To xSRg.Rows.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
xI = xI + 1
Next xFNumR
Next xFNumC
Application.ScreenUpdating = True
End Sub
3। दबाएँ F5 कोड को चलाने के लिए कुंजी, आपके लिए उन कॉलमों का चयन करने के लिए एक संवाद पॉप आउट होता है जिन्हें आप एक में एकत्रित करेंगे।
4। क्लिक करें OK, परिणाम रखने के लिए एक सेल का चयन करें।
5। क्लिक करें OK को खत्म करने। अब चयनित कॉलमों को एक कॉलम में व्यवस्थित कर दिया गया है।
एक्सेल के लिए कुटूल के साथ कॉलम को बाएं से दाएं एक कॉलम में स्टैक करें
यदि आपके पास एक्सेल के लिए कुटूल एक्सेल में स्थापित, आप इसका उपयोग कर सकते हैं Transform Range इस कार्य को संभालने के लिए उपयोगिता.
एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। |
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:(अब एक्सेल के लिए नि:शुल्क कुटूल डाउनलोड करें!)
1. उन कॉलमों का चयन करें जिन्हें आप स्टैक करना चाहते हैं, क्लिक करें कुटूल > रेंज > Transform Range.
2। में Transform Range संवाद, जांचें Range to single row चेकबॉक्स, क्लिक करें Ok.
3. पॉपिंग डायलॉग में, परिणाम रखने के लिए एक सेल का चयन करें, क्लिक करें OK.
अब कॉलम एक पंक्ति में बदल गए हैं।
4. एकल पंक्ति का चयन करें, दबाएँ Ctrl + C इसे कॉपी करने के लिए, और एक अन्य सेल का चयन करें जो स्टैक कॉलम रखेगा, चयन करने के लिए राइट क्लिक करें Transpose(T) संदर्भ मेनू में
अब एकल पंक्ति को स्टैक कॉलम में स्थानांतरित कर दिया गया है।
ट्रांसपोज़ रेंज
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!