Excel में ऊपर/बाएँ रिक्त कक्षों को स्वचालित रूप से कैसे मर्ज करें?
इस लेख में, मैं ऊपर या बाईं ओर रिक्त कोशिकाओं को स्वचालित रूप से विलय करने के बारे में बात करने जा रहा हूँ जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है। दरअसल, ऐसी कोई अंतर्निहित उपयोगिता नहीं है जो इस कार्य को संभाल सके, लेकिन मैक्रो कोड कर सकते हैं।
उपरोक्त रिक्त स्थान को मर्ज करें | ||
बचे हुए रिक्त स्थानों को मिलाएँ | ||
एक कॉलम के आधार पर उपरोक्त रिक्त कक्षों को मर्ज करें
उपरोक्त रिक्त कक्षों को मर्ज करें (केवल एकल स्तंभ के लिए कार्य करें)
बाएँ रिक्त कक्षों को मर्ज करें
एक कॉलम के आधार पर उपरोक्त रिक्त कक्षों को मर्ज करें
मान लीजिए कि तीन कॉलम में डेटा की एक श्रृंखला है, और अब आप कॉलम सी के आधार पर उपरोक्त डेटा को मर्ज करना चाहते हैं।
1। दबाएँ ऑल्ट + F11 kसक्षम करने के लिए आंखें अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, और क्लिक करें सम्मिलित करें > मॉड्यूल. स्क्रीनशॉट देखें:
2. फिर नीचे दिए गए कोड को खाली स्क्रिप्ट पर पेस्ट करें। स्क्रीनशॉट देखें:
वीबीए: अगले कॉलम के आधार पर ऊपर के रिक्त स्थान को मर्ज करें
Sub MergeCells()
'UpdatebyExtendoffice2017025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then
Range(xCell, xCell.Offset(-1, 0)).Merge
End If
Next
End Sub
3। दबाएँ F5 कोड को चलाने के लिए कुंजी, और फिर एक संवाद आपको काम करने के लिए एक सीमा का चयन करने की याद दिलाने के लिए पॉप आउट होता है। स्क्रीनशॉट देखें:
4। क्लिक करें OK, तो रिक्त कक्षों को ऊपर मर्ज कर दिया गया है। स्क्रीनशॉट देखें:
उपरोक्त रिक्त कक्षों को मर्ज करें (केवल एकल स्तंभ के लिए कार्य करें)
यहां एक मैक्रो कोड है जो उपरोक्त रिक्त कोशिकाओं को निर्दिष्ट कॉलम में मर्ज कर सकता है।
1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, और क्लिक करें सम्मिलित करें > मॉड्यूल. स्क्रीनशॉट देखें:
2. नीचे दिए गए कोड को स्क्रिप्ट में चिपकाएँ। स्क्रीनशॉट देखें:
वीबीए: ऊपर रिक्त कोशिकाओं को मर्ज करें
Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
Dim I As Long
Dim xRow As Long
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only work for single column", , "KuTools For Excel"
Exit Sub
End If
xRow = xRg.Rows.Count
Set xRg = xRg(xRow)
For I = xRow To 1 Step -1
Set xCell = xRg.Offset(I - xRow, 0)
Debug.Print xCell.Address
If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
Next
End Sub
3। दबाएँ F5 कोड को चलाने के लिए कुंजी, और एक कॉलम श्रेणी का चयन करने के लिए एक संवाद आपके सामने आता है। स्क्रीनशॉट देखें:
4. ठीक क्लिक करें. और चयन में रिक्त कक्षों को ऊपर मर्ज कर दिया गया है।
बाएँ रिक्त कक्षों को मर्ज करें
यदि आप बचे हुए रिक्त कक्षों को मर्ज करना चाहते हैं, तो निम्नलिखित कोड आपकी मदद कर सकता है।
1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ माइक्रोसॉफ्ट विजुअल बेसिक एप्लिकेशन विंडो के लिए, और क्लिक करें सम्मिलित करें > मॉड्यूल. स्क्रीनशॉट देखें:
2. फिर नीचे दिए गए कोड को खाली स्क्रिप्ट पर पेस्ट करें। स्क्रीनशॉट देखें:
वीबीए: बचे हुए रिक्त स्थानों को मर्ज करें
Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
Next
End Sub
3। दबाएँ F5 कोड को चलाने के लिए कुंजी, और एक सीमा का चयन करने के लिए एक संवाद आपके सामने आता है। स्क्रीनशॉट देखें:
4। क्लिक करें OK. रिक्त कक्षों को बायीं ओर मिला दिया गया है।
बचे हुए रिक्त स्थानों को मिलाएँ | ||
समान कोशिकाओं को मर्ज करें या सेल को अलग करें
|
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!