एक्सेल में सेल कॉलम को कैसे संयोजित करें और टेक्स्ट का रंग कैसे रखें?
जैसा कि हम सभी जानते हैं, सेल कॉलम को एक कॉलम में संयोजित या संयोजित करते समय, सेल फ़ॉर्मेटिंग (जैसे टेक्स्ट फ़ॉन्ट रंग, संख्या फ़ॉर्मेटिंग, आदि) खो जाएगी। इस लेख में, मैं सेल कॉलम को एक में संयोजित करने और एक्सेल में टेक्स्ट का रंग यथासंभव आसानी से बनाए रखने के लिए कुछ तरकीबें पेश करूंगा।
सेल कॉलम को संयोजित करें और टेक्स्ट फ़ॉन्ट का रंग VBA कोड के साथ रखें
सेल कॉलम को संयोजित करें और टेक्स्ट फ़ॉन्ट का रंग VBA कोड के साथ रखें
एक्सेल में इस कार्य को पूरा करने के लिए, निम्नलिखित वीबीए कोड आपकी मदद कर सकता है, कृपया इसे इस प्रकार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: सेल कॉलम को संयोजित करें और टेक्स्ट का रंग रखें:
Sub MergeFormatCell()
'Updateby Extendoffice
Dim xSRg As Range
Dim xDRg As Range
Dim xRgEachRow As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim I As Integer
Dim xRgLen As Integer
Dim xSRgRows As Integer
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("Please select cell columns to concatenate:", "KuTools For Excel", xAddress, , , , , 8)
If xSRg Is Nothing Then Exit Sub
xSRgRows = xSRg.Rows.Count
Set xDRg = Application.InputBox("Please select cells to output the result:", "KuTools For Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
Set xDRg = xDRg(1)
For I = 1 To xSRgRows
xRgLen = 1
With xDRg.Offset(I - 1)
.Value = vbNullString
.ClearFormats
.NumberFormat = "@"
Set xRgEachRow = xSRg(1).Offset(I - 1).Resize(1, xSRg.Columns.Count)
For Each xRgEach In xRgEachRow
.Value = .Value & Trim(xRgEach.Value) & " "
Next
For Each xRgEach In xRgEachRow
xRgVal = xRgEach.Value
With .Characters(xRgLen, Len(Trim(xRgVal))).Font
.Name = xRgEach.Font.Name
.FontStyle = xRgEach.Font.FontStyle
.Size = xRgEach.Font.Size
.Strikethrough = xRgEach.Font.Strikethrough
.Superscript = xRgEach.Font.Superscript
.Subscript = xRgEach.Font.Subscript
.OutlineFont = xRgEach.Font.OutlineFont
.Shadow = xRgEach.Font.Shadow
.Underline = xRgEach.Font.Underline
.ColorIndex = xRgEach.Font.ColorIndex
End With
xRgLen = xRgLen + Len(Trim(xRgVal)) + 1
Next
End With
Next I
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको उस डेटा श्रेणी का चयन करने की याद दिलाने के लिए पॉप आउट होता है जिसे आप टेक्स्ट रंग के साथ संयोजित करना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK, एक और संवाद बॉक्स दिखाई देता है, कृपया उन कक्षों का चयन करें जहां आप संयुक्त परिणाम आउटपुट करना चाहते हैं, स्क्रीनशॉट देखें:
5। तब दबायें OK बटन, कॉलम को टेक्स्ट का रंग खोए बिना संयोजित किया गया है जैसा कि निम्नलिखित स्क्रीनशॉट में दिखाया गया है:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!