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

प्रत्येक 5 या n पंक्तियों को एक कॉलम से एकाधिक कॉलम में कैसे स्थानांतरित करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-04-23
दस्तावेज़ प्रत्येक 5 पंक्तियों को स्थानांतरित करें 1

मान लीजिए, आपके पास कॉलम ए में लंबा डेटा है, और अब, आप कॉलम ए से प्रत्येक 5 पंक्तियों को एकाधिक कॉलम में स्थानांतरित करना चाहते हैं, जैसे ए 1: ए 5 को सी 6: जी 6, ए 6: ए 10 से सी 7: जी 7, और इसी तरह। निम्नलिखित स्क्रीनशॉट दिखाया गया है। Excel में बार-बार कॉपी और पेस्ट किए बिना आप इस कार्य से कैसे निपट सकते हैं?

प्रत्येक 5 या n पंक्तियों को सूत्र के साथ एक कॉलम से एकाधिक कॉलम में स्थानांतरित करें

VBA कोड के साथ प्रत्येक 5 या n पंक्तियों को एक कॉलम से एकाधिक कॉलम में स्थानांतरित करें

एक्सेल के लिए कुटूल के साथ प्रत्येक 5 या एन पंक्तियों को एक कॉलम से एकाधिक कॉलम में स्थानांतरित करें


एक्सेल में, आप प्रत्येक n पंक्तियों को एक कॉलम से एकाधिक कॉलम में स्थानांतरित करने के लिए निम्न सूत्र लागू कर सकते हैं, कृपया निम्नानुसार करें:

1. निम्नलिखित सूत्र को रिक्त कक्ष में दर्ज करें जहां आप परिणाम डालना चाहते हैं, उदाहरण के लिए C1, =सूचकांक($ए:$ए, पंक्ति(ए1)*5-5+स्तंभ(ए1)), स्क्रीनशॉट देखें:

दस्तावेज़ प्रत्येक 5 पंक्तियों को स्थानांतरित करें 2

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

2. फिर भरण हैंडल को दाईं ओर पाँच कक्षों तक खींचें, और 0 प्रदर्शित होने तक भरण हैंडल को कक्षों की श्रेणी तक नीचे खींचते रहें, स्क्रीनशॉट देखें:

दस्तावेज़ प्रत्येक 5 पंक्तियों को स्थानांतरित करें 3


प्रत्येक 5 या n पंक्तियों को एक कॉलम से एकाधिक कॉलम में बदलें:

प्रत्येक 5 या n पंक्तियों को एक कॉलम से एकाधिक कॉलम में बदलने के लिए, एक्सेल के लिए कुटूल's ट्रांसफ़ॉर्म रेंज उपयोगिता इस कार्य को यथाशीघ्र हल करने में आपकी सहायता कर सकती है। यह आपको डेटा की एक श्रृंखला को एक पंक्ति या स्तंभ में स्थानांतरित करने में भी मदद कर सकता है। एक्सेल के लिए कुटूल डाउनलोड करने के लिए क्लिक करें!

दस्तावेज़ प्रत्येक 5 पंक्तियों को स्थानांतरित करें 10

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


यदि आप सूत्र को सही ढंग से लागू नहीं कर सकते हैं, तो निम्नलिखित वीबीए कोड भी आपकी मदद कर सकता है।

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

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: प्रत्येक 5 या एन पंक्तियों को एक कॉलम से एकाधिक कॉलम में स्थानांतरित करें:

Public Sub TransposeData()
'updateby Extendoffice
    Dim xLRow As Long
    Dim xNRow As Long
    Dim i As Long
    Dim xUpdate As Boolean
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count > 1) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "the used range only contain one column", , "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)
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xLRow = xRg.Rows.Count
    For i = 1 To xLRow Step 5
        xRg.Cells(i).Resize(5).Copy
        xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        xNRow = xNRow + 1
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. कोड पेस्ट करने के बाद कृपया दबाएं F5 इसे चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको याद दिलाने के लिए पॉप अप होगा कि आप उस कॉलम का चयन करें जिसे आप स्थानांतरित करना चाहते हैं, स्क्रीनशॉट देखें:

दस्तावेज़ प्रत्येक 5 पंक्तियों को स्थानांतरित करें 4

4। तब दबायें OK, और एक सेल का चयन करें जहां आप परिणाम को दूसरे पॉप आउट बॉक्स में रखना चाहते हैं, स्क्रीनशॉट देखें:

दस्तावेज़ प्रत्येक 5 पंक्तियों को स्थानांतरित करें 5

5. और क्लिक करें OK, कॉलम में डेटा को पांच कॉलम में बदल दिया गया है जिनकी आपको आवश्यकता है, स्क्रीनशॉट देखें:

दस्तावेज़ प्रत्येक 5 पंक्तियों को स्थानांतरित करें 6

नोट: उपरोक्त कोड में आप नंबर बदल सकते हैं 5 आपको जिस अन्य नंबर की आवश्यकता है।


यदि आपके पास एक्सेल के लिए कुटूल, के साथ अपने ट्रांसफ़ॉर्म रेंज उपयोगिता, आप एक कॉलम या पंक्ति को तुरंत कई कॉलम और पंक्तियों में स्थानांतरित कर सकते हैं।

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

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

1. कॉलम में डेटा का चयन करें और फिर क्लिक करें कुटूल > रेंज > ट्रांसफ़ॉर्म रेंज, स्क्रीनशॉट देखें:

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

दस्तावेज़ प्रत्येक 5 पंक्तियों को स्थानांतरित करें 8

3। और फिर क्लिक करें Ok बटन, पॉप आउट बॉक्स में, कृपया परिणाम आउटपुट करने के लिए एक सेल का चयन करें, स्क्रीनशॉट देखें:

दस्तावेज़ प्रत्येक 5 पंक्तियों को स्थानांतरित करें 9

4। तब दबायें OK बटन, और आपका कॉलम डेटा प्रत्येक 5 पंक्तियों में दिखाए गए स्क्रीनशॉट के अनुसार स्थानांतरित कर दिया गया है:

दस्तावेज़ प्रत्येक 5 पंक्तियों को स्थानांतरित करें 6

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


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

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

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

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

Description


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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (15)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Bonjour,

J'ai, dans mon unique colonne de données, des cellules placées aléatoirement toutes les x lignes et qui contiennent une suite de caractères.

Je voudrait que cette cellule soit dans la première colonne de la ligne transposée, avec, dans les colonnes suivantes, la transposition des lignes qui la suivent, jusqu'à la répétition de ma chaine de caractères, qui signifierait le début de la ligne suivante...

Bref, Heeelllp...

Merci d'avance
Stéphane
This comment was minimized by the moderator on the site
You're a genius. Thanks!
Rated 5 out of 5
This comment was minimized by the moderator on the site
I try doing this just as written, and all I get is Error:508
This comment was minimized by the moderator on the site
Hi, How to do this for Colms to rows. Thank you
This comment was minimized by the moderator on the site
I've rewritten the command to this one:
=INDEX($A:$A,ROW(A1)+((COLUMN(A1)-2)*5))
This executes it inverted.
So:
1
2
3
4
5
6
7
8
9
...
becomes
1, 6
2, 7
3, 8
4, 9
5, ...
This comment was minimized by the moderator on the site
Thanks alot _/\_ Awesome job with =INDEX($A:$A,ROW(B1)*5-5+COLUMN(B1))
worked perfectly
This comment was minimized by the moderator on the site
I tried only the the formula option and it worked great. Till now have been using (Transpose formula with ctrl+shift+enter) but there the disadvantage for we have delete many extra rows. when the rows to be transposed for large in the order of lakhs, then deleting them in excel is either impossible or takes a lot of time.
this approach made the life easier by only copying the required rows... Thanks
This comment was minimized by the moderator on the site
This is fricking AWESOME!!! Thank you SO much. Your example was exactly what I needed and it worked beautifully.
This comment was minimized by the moderator on the site
=INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))
It was very simple and really useful. Thank you so much
This comment was minimized by the moderator on the site
It was great! Thank you! You saved me hours of manual work!
This comment was minimized by the moderator on the site
Thank you so much! It was really helpful. :)
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations