एक्सेल वर्कशीट में अवांछित पंक्तियों और स्तंभों को कैसे हटाएं
( यह पहली नज़र के रूप में लंबे समय तक नहीं लग सकता है और यह सुरक्षित है!)
नीचे दी गई प्रक्रिया में दो शीट निर्दिष्ट हैं।
चलो अपनी मूल शीट को कॉल करते हैं YourOriginalSheet
(यह आपकी मूल शीट का वास्तविक नाम दर्शाता है )।
चलो दूसरी शीट को कॉल करते हैं ShortSheet
, जिसमें केवल प्रासंगिक कोशिकाओं की एक प्रति होगी।
(1) में YourOriginalSheet
, Select
और Copy
संबंधित कोशिकाओं की सीमा (अभी तक कहीं भी पेस्ट नहीं करें)।
(2) नाम की एक नई शीट जोड़ें ShortSheet
, कर्सर को कॉपी किए जा रहे रेंज के ऊपरी-बाएँ-कोने के प्रतिनिधित्व वाले सेल में डालें (शायद A1
), और इस तरह पेस्ट करें:
(2a) Paste Special...
> Formulas
[ऊपरी-बाएँ-कोने के सेल पर राइट-क्लिक करें]
(2 बी) Paste Special...
>Values
(2 सी) Paste Special...
>Formats
(2 डी) Paste Special...
>Column Widths
(2e) अन्य Paste Special
विकल्पों को शामिल करें जो आपको लगता है कि शीट को बेहतर बनाने में मदद कर सकते हैं।
(3) यह सुनिश्चित करने के लिए कि यह सभी प्रासंगिक डेटा शामिल है Ctrl-Shift-End
, निचले-दाएं कोने को खोजने के लिए दबाएं ।ShortSheet
(4) Save
कार्यपुस्तिका। ( Save As ...
यदि आप बैकअप चाहते हैं तो एक नई फ़ाइल।)
(5) हटाएं YourOriginalSheet
(संबंधित डेटा वर्तमान में सहेजा गया है ShortSheet
।)
(६) ShortSheet
अपनी मूल शीट के वास्तविक नाम का नाम बदलें ’।
वर्कबुक को बहुत छोटा बनाने के अलावा कुछ भी नहीं बदला है, इसलिए सभी मैक्रोज़, इस वर्कशीट के बाहरी संदर्भ आदि को अभी भी काम करना चाहिए।
यहाँ macro
(2) में चरणों को पूरा करना है।
Sub pasteSpecialAll()
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
मैक्रो, Select
और Copy
प्रासंगिक रेंज का उपयोग करने से पहले , जैसा कि चरण (1) में किया गया था।
मैंने अपनी मैक्रो को अपनी Personal.xlsb
कार्यपुस्तिका में भविष्य में उपयोग करने के लिए हर जगह सहेजा और Ctrl + Shift + V
इसे कीपर सौंपा ।