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

एक्सेल में डेटा ऑर्डर की एक पंक्ति को जल्दी से कैसे फ़्लिप/रिवर्स करें?

लेखक: केली अंतिम संशोधित: 2013-11-26

जब आपको किसी पंक्ति के डेटा क्रम को उलटने या फ़्लिप करने की आवश्यकता होती है, तो आप इसे जल्दी से कैसे पूरा कर सकते हैं? आम तौर पर आपको ऐसा करने के लिए वीबीए कोड या अन्य एक्सेल ऐड-इन्स का उपयोग करना पड़ सकता है, क्योंकि एक्सेल ऐसे ऑपरेशन का समर्थन नहीं करता है। और यहां निम्नलिखित पेचीदा चीजें आती हैं जो आपको एक्सेल में डेटा ऑर्डर की एक पंक्ति को तुरंत पलटने या उलटने में मदद करेंगी।

VBA के साथ पंक्तियों में डेटा क्रम को क्षैतिज रूप से फ़्लिप/रिवर्स करें

एक्सेल के लिए कुटूल के साथ पंक्तियों में डेटा क्रम को क्षैतिज रूप से फ़्लिप/रिवर्स करें



तीर नीला दायां बुलबुला VBA के साथ पंक्तियों में डेटा क्रम को क्षैतिज रूप से फ़्लिप/रिवर्स करें

यहां एक साफ-सुथरा वीबीए मैक्रो है जो आपको क्षैतिज रूप से पंक्तियों में डेटा ऑर्डर को तुरंत फ्लिप/रिवर्स करने में मदद कर सकता है।

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

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

Sub FlipRows()
'Updateby20131126
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

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

दस्तावेज़-रिवर्स-ऑर्डर8

चरण १: दबाएँ OK, आप नीचे दिखाए अनुसार परिणाम देख सकते हैं:


तीर नीला दायां बुलबुला एक्सेल के लिए कुटूल के साथ पंक्तियों में डेटा क्रम को क्षैतिज रूप से फ़्लिप/रिवर्स करें

- एक्सेल के लिए कुटूलहै क्षैतिज सीमा को पलटें उपकरण, आप चयनित पंक्तियों में डेटा क्रम को क्षैतिज रूप से फ़्लिप/रिवर्स कर सकते हैं।

एक्सेल के लिए कुटूल्स में 300 से अधिक उपयोगी एक्सेल टूल शामिल हैं। 30 दिनों में बिना किसी सीमा के प्रयास करने के लिए निःशुल्क। अब समझे.

चरण 1: उस पंक्ति का चयन करें जिसमें आप डेटा फ़्लिप करेंगे।

चरण 2: दबाएं कुटूल > रेंज कनवर्टर > क्षैतिज सीमा को पलटें, स्क्रीनशॉट देखें:

दस्तावेज़-रिवर्स-पंक्ति-क्रम3

फिर आप देखेंगे कि चयनित पंक्तियों में सभी डेटा क्रम उलट गया है।

दस्तावेज़-रिवर्स-पंक्ति-क्रम4
-1
दस्तावेज़-रिवर्स-पंक्ति-क्रम5

क्लिक करें क्षैतिज सीमा को पलटें इस सुविधा के बारे में अधिक जानने के लिए।


संबंधित लेख:

एक्सेल में डेटा ऑर्डर के कॉलम को लंबवत रूप से फ़्लिप/रिवर्स कैसे करें?

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

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

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

Description


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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In response to Rodrigo, Fbkil:

The error occurs because when you cut and paste the macro text into the Excel VBA editor, there are non-printing characters hidden in the area where the macro rows are indented. Delete them and it will work.

Note: Solved by someone else, not me. Was tricky, as it looked like it should work, but didn't.
This comment was minimized by the moderator on the site
When I try to run this macro, I get the message "syntax error" with the command line "For j = 1 To UBound(Arr, 2) / 2" highlighted in red. Does anyone know how to fix it?
This comment was minimized by the moderator on the site
got the same error. update needed
This comment was minimized by the moderator on the site
Great tool, thanks so much for VBA - I transposed a column to rows first and then used your VBA for reversing - saved tons of time!
This comment was minimized by the moderator on the site
You flipped the column order not the row order as per the title.
This comment was minimized by the moderator on the site
Copy paste (transpose) the row to column. Add 1 to x on the column beside. Filter from largest to smallest and expand. Then copy paste result and transpose to row again
This comment was minimized by the moderator on the site
A quicker way would be be to copy your selection. Right click, choose paste special. Check the transpose button, hit ok and the rows and columns will be transposed. http://office.microsoft.com/en-us/excel-help/switch-transpose-columns-and-rows-HP010224502.aspx
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations