एक्सेल में मर्ज किए गए सेल की पंक्ति ऊंचाई को स्वचालित रूप से कैसे फ़िट करें?
एक्सेल में, हम इसका उपयोग करके सेल सामग्री को फिट करने के लिए पंक्ति की ऊंचाई को तुरंत समायोजित कर सकते हैं पंक्ति ऊँचाई बादऑटोफ़िट सुविधा, लेकिन यह फ़ंक्शन मर्ज की गई कोशिकाओं को पूरी तरह से अनदेखा कर देगा। कहने का तात्पर्य यह है कि, आप इसे लागू नहीं कर सकते पंक्ति ऊँचाई बादऑटोफ़िट मर्ज किए गए सेल की पंक्ति की ऊंचाई का आकार बदलने की सुविधा के लिए, आपको मर्ज किए गए सेल के लिए पंक्ति की ऊंचाई को एक-एक करके मैन्युअल रूप से समायोजित करने की आवश्यकता है। इस लेख में, मैं इस समस्या को हल करने के लिए कुछ त्वरित तरीके पेश कर सकता हूं।
वीबीए कोड के साथ मर्ज किए गए सेल की पंक्ति ऊंचाई को स्वचालित रूप से फ़िट करें
वीबीए कोड के साथ मर्ज किए गए सेल की पंक्ति ऊंचाई को स्वचालित रूप से फ़िट करें
मान लीजिए कि मेरे पास कुछ मर्ज किए गए सेल के साथ एक वर्कशीट है जैसा कि स्क्रीनशॉट में दिखाया गया है, और अब मुझे संपूर्ण सामग्री प्रदर्शित करने के लिए सेल पंक्ति की ऊंचाई का आकार बदलने की आवश्यकता है, नीचे दिया गया वीबीए कोड आपको कई मर्ज किए गए सेल की पंक्ति की ऊंचाई को स्वचालित रूप से फिट करने में मदद कर सकता है, कृपया ऐसा करें निम्नलिखित नुसार:
1. दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: एकाधिक मर्ज किए गए कक्षों की पंक्ति ऊंचाई को स्वचालित रूप से फ़िट करेंOption Explicit
Public Sub AutoFitAll()
Call AutoFitMergedCells(Range("a1:b2"))
Call AutoFitMergedCells(Range("c4:d6"))
Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
Dim tHeight As Integer
Dim iPtr As Integer
Dim oldWidth As Single
Dim oldZZWidth As Single
Dim newWidth As Single
Dim newHeight As Single
With Sheets("Sheet4")
oldWidth = 0
For iPtr = 1 To oRange.Columns.Count
oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
Next iPtr
oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
oRange.MergeCells = False
newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
oldZZWidth = .Range("ZZ1").ColumnWidth
.Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
.Range("ZZ1").WrapText = True
.Columns("ZZ").ColumnWidth = oldWidth
.Rows("1").EntireRow.AutoFit
newHeight = .Rows("1").RowHeight / oRange.Rows.Count
.Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
oRange.MergeCells = True
oRange.WrapText = True
.Range("ZZ1").ClearContents
.Range("ZZ1").ColumnWidth = oldZZWidth
End With
End Sub
टिप्पणियाँ:
(1.) उपरोक्त कोड में, आप नई श्रेणियां जोड़ सकते हैं बस कॉपी करें AutoFitMergedCells को कॉल करें (रेंज ("a1:b2")) अपनी इच्छानुसार कई बार स्क्रिप्ट करें, और मर्ज की गई सेल श्रेणियों को अपनी आवश्यकता के अनुसार बदलें।
(2.) और आपको वर्तमान वर्कशीट का नाम बदलना चाहिए Sheet4 आपके प्रयुक्त शीट के नाम पर.
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और अब, आप देख सकते हैं कि सभी मर्ज किए गए सेल उनकी सेल सामग्री में स्वतः फिट हो गए हैं, स्क्रीनशॉट देखें:
संबंधित लेख:
Excel में कॉलम की चौड़ाई को स्वचालित रूप से कैसे फ़िट करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!