जवाबों:
Shiftकुंजी बदलाव लक्ष्य पंक्ति / स्तंभ अधिलेखन के बजाय पंक्ति / स्तंभ।
यह अभी भी एक कट / पेस्ट विधि है, लेकिन सबसे सरल तरीका है जिसके बारे में मैं सोच सकता हूं।
4-क्लिक समाधान: (उदाहरण के लिए पंक्ति 8 पंक्ति 5 से ऊपर)
नोट: यह कई पंक्तियों को आगे बढ़ाने के लिए भी काम करता है।
अपनी व्यक्तिगत मैक्रो वर्कबुक में निम्न मैक्रोज़ जोड़ें और उन्हें शॉर्टकट कुंजियाँ असाइन करें। व्यवहार उदात्त पाठ के स्वैप लाइन ऊपर और स्वैप रेखा नीचे की नकल करता है।
Sub move_rows_down()
Dim rOriginalSelection As Range
Set rOriginalSelection = Selection.EntireRow
With rOriginalSelection
.Select
.Cut
.Offset(rOriginalSelection.rows.Count + 1, 0).Select
End With
Selection.Insert
rOriginalSelection.Select
End Sub
Sub move_rows_up()
Dim rOriginalSelection As Range
Set rOriginalSelection = Selection.EntireRow
With rOriginalSelection
.Select
.Cut
.Offset(-1, 0).Select
End With
Selection.Insert
rOriginalSelection.Select
End Sub
अतीत में इसी तरह के मामलों से निपटने में, जहां मैं केवल एक पंक्ति के आधार पर छाँट नहीं सकता था, मुझे एक सूत्र के साथ एक कॉलम उत्पन्न करने का तरीका मिला जो कुछ ऐसा था जिस पर मैं हल कर सकता था।
मुझे इस साइट से आपके प्रश्न का अधिक प्रत्यक्ष उत्तर मिला :
Microsoft Word में एक सुविधा है जिसमें Excel की कमी है। जॉन की विधि में डेटा को वर्ड में ले जाना, वर्ड कमांड को नियोजित करना और फिर डेटा को एक्सेल में चिपकाना शामिल है। इन कदमों का अनुसरण करें।
- अपनी स्पाईशीट के बाहर पंक्तियों और स्तंभों के प्रासंगिक चून को कॉपी करें। रेंज का आकार नोट करना सबसे अच्छा है, उदाहरण के लिए, 118 पंक्तियों x 5 कॉलम
- Microsoft Word दस्तावेज़ में डेटा चिपकाएँ, जहाँ यह स्वचालित रूप से एक तालिका बन जाता है और आपके सभी स्वरूपण को बरकरार रखता है।
वर्ड में, छोटी गति से ज्ञात SHIFT-ALT-UP-ARROW और SHIFT-ALT-DOWN-ARROW को बहुत ही तेजी से स्लाइड पंक्तियों (या पंक्तियों के चुनिंदा विखंडू) पर और नीचे की ओर उपयोग करें। एक या अधिक पंक्तियों का चयन करें। आप पूरी पंक्ति या पंक्ति के एक हिस्से का चयन कर सकते हैं जैसा कि यहाँ दिखाया गया है।
जल्दी से स्थिति में पंक्तियों को स्लाइड करने के लिए शिफ्ट + Alt + UpArrow को कई बार मारो।
जब आप अपनी पसंद के अनुसार पंक्तियों को अनुक्रमित कर लेते हैं, तो उन्हें वापस एक्सेल में पेस्ट करें, यह सुनिश्चित करते हुए कि आपने जो कॉपी किया है, उसी आकार के चंक को ओवरराइट करें।
@ विल्सन के उत्तर पर थोड़ा सुधार:
राइट क्लिक पंक्ति संख्या (जैसे। पंक्ति 8), "t" राइट क्लिक पंक्ति संख्या (जैसे। पंक्ति 5), हिट "e"
माउस और कीबोर्ड का मिश्रण वास्तव में मेरे लिए इसे गति देता है।
यहां एक उप है जो स्तंभों के लिए भी काम करता है; यह सभी चार दिशाओं के लिए कार्यक्षमता को जोड़ती है:
Sub MoveRowsOrColumns(direction As String)
Dim rOriginalSelection As Range
Select Case direction
Case "up", "down"
Set rOriginalSelection = Selection.EntireRow
Case "left", "right"
Set rOriginalSelection = Selection.EntireColumn
Case Else
Debug.Assert False
End Select
With rOriginalSelection
.Select
.Cut
Select Case direction
Case "up"
.Offset(-1, 0).Select
Case "down"
.Offset(rOriginalSelection.Rows.Count + 1, 0).Select
Case "left"
.Offset(0, -1).Select
Case "right"
.Offset(0, rOriginalSelection.Columns.Count + 1).Select
End Select
End With
Selection.Insert
rOriginalSelection.Select
End Sub