मुख्य सामग्री पर जाएं

एक्सेल में मैट्रिक्स स्टाइल टेबल को तीन कॉलम में कैसे बदलें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-05-26

मान लीजिए कि आपके पास एक मैट्रिक्स-शैली तालिका है जिसमें कॉलम शीर्षक और पंक्ति शीर्षक हैं, और अब आप इस शैली तालिका को तीन कॉलम तालिका में परिवर्तित करना चाहते हैं, इसे निम्न स्क्रीनशॉट में दिखाए गए अनुसार सूची तालिका भी कहा जाता है, क्या आपके पास इसे हल करने का कोई अच्छा तरीका है एक्सेल में समस्या?

PivotTable के साथ मैट्रिक्स शैली तालिका को सूची में बदलें

VBA कोड के साथ मैट्रिक्स शैली तालिका को सूची में बदलें

एक्सेल के लिए कुटूल के साथ मैट्रिक्स शैली तालिका को सूची में बदलें

दस्तावेज़ मैट्रिक्स को सूची 1 में बदलें


एक्सेल में, मैट्रिक्स स्टाइल टेबल को तीन कॉलम टेबल में बदलने के लिए हमारे लिए कोई सीधी सुविधा नहीं है, लेकिन, यदि आप पिवोटटेबल से परिचित हैं, तो यह आपके लिए उपयोगी हो सकता है। कृपया निम्नलिखित चरणों का पालन करें:

1. अपनी वर्कशीट को सक्रिय करें जिसे आप उपयोग करना चाहते हैं, फिर होल्ड करें ऑल्ट + डी, और उसके बाद दबाएँ P कीबोर्ड में, पॉप आउट में पिवट टेबल और पिवट चार्ट विजार्ड संवाद, चुनें एकाधिक समेकन श्रेणियाँ नीचे वह डेटा कहां है जिसका आप विश्लेषण करना चाहते हैं अनुभाग, और फिर चुनें पिवट तालिका नीचे आप किस तरह की रिपोर्ट बनाना चाहते हैं अनुभाग, स्क्रीनशॉट देखें:

दस्तावेज़ मैट्रिक्स को सूची 2 में बदलें

2। तब दबायें अगला बटन, में 2 में से चरण 3ए विज़ार्ड, का चयन करें मैं पेज फ़ील्ड बनाउंगा विकल्प, स्क्रीनशॉट देखें:

दस्तावेज़ मैट्रिक्स को सूची 3 में बदलें

3. क्लिक करते जाइये अगला बटन, में 2 में से चरण 3बी विज़ार्ड, क्लिक करें दस्तावेज़ मैट्रिक्स को सूची 5 में बदलें उस डेटा श्रेणी का चयन करने के लिए बटन जिसे आप कनवर्ट करना चाहते हैं, और फिर क्लिक करें डेटा श्रेणी को जोड़ने के लिए बटन सभी पर्वतमाला सूची बॉक्स, स्क्रीनशॉट देखें:

दस्तावेज़ मैट्रिक्स को सूची 4 में बदलें

4. और क्लिक करें अगला बटन, में 3 की 3 कदम विज़ार्ड, अपनी इच्छानुसार पिवट तालिका के लिए एक स्थान चुनें।

दस्तावेज़ मैट्रिक्स को सूची 6 में बदलें

5। तब दबायें अंत बटन, एक बार में एक पिवट टेबल बनाई गई है, स्क्रीनशॉट देखें:

दस्तावेज़ मैट्रिक्स को सूची 7 में बदलें

6. पिवट तालिका में, ग्रैंड टोटल के इंटरसेक्टिंग सेल पर डबल क्लिक करें, इस मामले में, मैं सेल F22 पर डबल क्लिक करूंगा, और यह दिखाए गए स्क्रीनशॉट के अनुसार तीन कॉलम तालिका उत्पन्न करेगा:

दस्तावेज़ मैट्रिक्स को सूची 8 में बदलें

7. और अंत में, आप तालिका का चयन करके और फिर चयन करके तालिका प्रारूप को सामान्य श्रेणी में परिवर्तित कर सकते हैं तालिका > रेंज में परिवर्तित करें संदर्भ मेनू से, स्क्रीनशॉट देखें:

दस्तावेज़ मैट्रिक्स को सूची 9 में बदलें


यदि आपको पहली विधि पसंद नहीं है, तो निम्नलिखित VBA कोड भी आपकी सहायता कर सकता है।

1। दबाएँ ऑल्ट + F11 प्रदर्शित करने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2. विंडो में, क्लिक करें सम्मिलित करें > मॉड्यूल एक नई मॉड्यूल विंडो दिखाने के लिए, फिर निम्नलिखित VBA कोड को मॉड्यूल विंडो में कॉपी और पेस्ट करें।

वीबीए कोड: मैट्रिक्स शैली तालिका को सूची में बदलें

Sub ConvertTable()
'Update 20150512
Dim Rng As Range
Dim cRng As Range
Dim rRng As Range
Dim xOutRng As Range
xTitleId = "KutoolsforExcel"
Set cRng = Application.InputBox("Select your Column labels", xTitleId, Type:=8)
Set rRng = Application.InputBox("Select Your Row Labels", xTitleId, Type:=8)
Set Rng = Application.InputBox("Select your data", xTitleId, Type:=8)
Set outRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set xWs = Rng.Worksheet
k = 1
xColumns = rRng.Column
xRow = cRng.Row
For i = Rng.Rows(1).Row To Rng.Rows(1).Row + Rng.Rows.Count - 1
    For j = Rng.Columns(1).Column To Rng.Columns(1).Column + Rng.Columns.Count - 1
        outRng.Cells(k, 1) = xWs.Cells(i, xColumns)
        outRng.Cells(k, 2) = xWs.Cells(xRow, j)
        outRng.Cells(k, 3) = xWs.Cells(i, j)
        k = k + 1
    Next j
Next i
End Sub

3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको डेटा के कॉलम लेबल चुनने की सुविधा देता है, स्क्रीनशॉट देखें:

दस्तावेज़ मैट्रिक्स को सूची 10 में बदलें

4। और फिर क्लिक करें OK बटन, अगले प्रॉम्प्ट बॉक्स में, पंक्ति लेबल चुनें, स्क्रीनशॉट देखें:

दस्तावेज़ मैट्रिक्स को सूची 11 में बदलें

5. क्लिक करते जाइये OK, फिर प्रॉम्प्ट बॉक्स में कॉलम और पंक्ति शीर्षकों को छोड़कर डेटा रेंज का चयन करें, स्क्रीनशॉट देखें:

दस्तावेज़ मैट्रिक्स को सूची 12 में बदलें

6। और फिर क्लिक करें OK, इस संवाद बॉक्स में, कृपया उस सेल का चयन करें जहां आप परिणाम का पता लगाना चाहते हैं। स्क्रीनशॉट देखें:

दस्तावेज़ मैट्रिक्स को सूची 13 में बदलें

7. अंत में क्लिक करें OK, और आपको एक साथ तीन कॉलम वाली तालिका मिल जाएगी।


उपरोक्त दोनों विधियां कुछ हद तक परेशानी वाली हैं, यहां मैं आपको एक आसान तरीका बताऊंगा-- एक्सेल के लिए कुटूल, के साथ अपने तालिका आयाम स्थानांतरित करें सुविधा, आप कोशिकाओं के मैट्रिक्स और सूची तालिका के बीच शीघ्रता से परिवर्तित कर सकते हैं।

एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्न चरणों का पालन करें:

1। क्लिक करें कुटूल > रेंज > तालिका आयाम स्थानांतरित करें, स्क्रीनशॉट देखें:

2. में तालिका आयाम स्थानांतरित करें संवाद बकस:

(1.)चुनें सूची बनाने के लिए तालिका को क्रॉस करें विकल्प के तहत स्थानांतरण प्रकार.

(2.) और फिर क्लिक करें दस्तावेज़ मैट्रिक्स को सूची 5 में बदलें नीचे बटन स्रोत सीमा उस डेटा श्रेणी का चयन करने के लिए जिसे आप कनवर्ट करना चाहते हैं।

(3.) फिर क्लिक करें दस्तावेज़ मैट्रिक्स को सूची 5 में बदलें नीचे बटन परिणाम सीमा उस सेल का चयन करने के लिए जहां आप परिणाम डालना चाहते हैं।

दस्तावेज़ मैट्रिक्स को सूची 15 में बदलें

3। और फिर क्लिक करें OK बटन, और आपको निम्नलिखित परिणाम मिलेगा जिसमें मूल सेल फ़ॉर्मेटिंग भी शामिल है:

दस्तावेज़ मैट्रिक्स को सूची 16 में बदलें

इस उपयोगिता के साथ, आप भी फ़्लैट सूची तालिका को 2-आयामी क्रॉस तालिका में बदलें.

इस ट्रांसपोज़ टेबल आयाम सुविधा के बारे में अधिक जानने के लिए।

एक्सेल के लिए कुटूल अभी डाउनलोड करें और निःशुल्क परीक्षण करें!


एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क। अभी डाउनलोड करें और निःशुल्क परीक्षण करें!

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for the tips. It's greatly saved my time and manual efforts.
This comment was minimized by the moderator on the site
Anybody know how to do this in a mac?
This comment was minimized by the moderator on the site
Sub ConvertTable_UseThis()

Dim Rng As Range
Dim cRng As Range
Dim rRng As Range
Dim xOutRng As Range
Dim xRng As Range, cRow As Integer, cCol As Integer


xTitleId = "Convert Table"
Set xRng = Application.Selection
Set xRng = Application.InputBox("Please select range:", "Number Range", Selection.Address, , , , , 8)
cRow = xRng.Rows.Count
cCol = xRng.Columns.Count


Set cRng = Range(xRng.Cells(1, 2), xRng.Cells(1, cCol))
Set rRng = Range(xRng.Cells(2, 1), xRng.Cells(cRow, 1))
Set Rng = Range(xRng.Cells(2, 2), xRng.Cells(cRow, cCol))
Set outRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set xWs = Rng.Worksheet
k = 1
xColumns = rRng.Column
xRow = cRng.Row
For i = Rng.Rows(1).Row To Rng.Rows(1).Row + Rng.Rows.Count - 1
For j = Rng.Columns(1).Column To Rng.Columns(1).Column + Rng.Columns.Count - 1
outRng.Cells(k, 1) = xWs.Cells(i, xColumns)
outRng.Cells(k, 2) = xWs.Cells(xRow, j)
outRng.Cells(k, 3) = xWs.Cells(i, j)
k = k + 1
Next j
Next i
End Sub
This comment was minimized by the moderator on the site
For the VBA Code, one seems to really need this:xColumns = cRng.Column
xRow = rRng.Row
This comment was minimized by the moderator on the site
do you have a code with a tweak where the leftmost column of a selection is column labels and the topmost row of a selection is row labels?

Thanks in advance,
This comment was minimized by the moderator on the site
Sub ConvertTable_UseThis()

Dim Rng As Range
Dim cRng As Range
Dim rRng As Range
Dim xOutRng As Range
Dim xRng As Range, cRow As Integer, cCol As Integer


xTitleId = "Convert Table"
Set xRng = Application.Selection
Set xRng = Application.InputBox("Please select range:", "Number Range", Selection.Address, , , , , 8)
cRow = xRng.Rows.Count
cCol = xRng.Columns.Count


Set cRng = Range(xRng.Cells(1, 2), xRng.Cells(1, cCol))
Set rRng = Range(xRng.Cells(2, 1), xRng.Cells(cRow, 1))
Set Rng = Range(xRng.Cells(2, 2), xRng.Cells(cRow, cCol))
Set outRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set xWs = Rng.Worksheet
k = 1
xColumns = rRng.Column
xRow = cRng.Row
For i = Rng.Rows(1).Row To Rng.Rows(1).Row + Rng.Rows.Count - 1
For j = Rng.Columns(1).Column To Rng.Columns(1).Column + Rng.Columns.Count - 1
outRng.Cells(k, 1) = xWs.Cells(i, xColumns)
outRng.Cells(k, 2) = xWs.Cells(xRow, j)
outRng.Cells(k, 3) = xWs.Cells(i, j)
k = k + 1
Next j
Next i
End Sub
This comment was minimized by the moderator on the site
Thanks a Ton, really appreciate the way you have explained. very useful
This comment was minimized by the moderator on the site
Thanks alot for this useful tool
This comment was minimized by the moderator on the site
Thanks, this was exactly what I was looking for. Awesome:)
This comment was minimized by the moderator on the site
what if i have 4 or more column?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations