एक्सेल में डेटा भरने के लिए कॉलम को पंक्तियों में कैसे बदलें और नई पंक्तियाँ कैसे डालें?
इस लेख में, मैं कॉलम को पंक्तियों में स्थानांतरित करने और डेटा भरने के लिए नई पंक्तियाँ सम्मिलित करने के लिए एक वीबीए कोड प्रस्तुत करता हूँ जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, यदि आप इस ऑपरेशन में रुचि रखते हैं, तो कृपया अधिक विवरण के लिए नीचे जाएँ।
VBA के साथ पंक्तियों को स्थानांतरित करें और सम्मिलित करें
VBA के साथ पंक्तियों को स्थानांतरित करें और सम्मिलित करें
किसी श्रेणी को स्थानांतरित करने और उसी डेटा को भरने के लिए पंक्तियों को सम्मिलित करने का कोई सीधा तरीका नहीं है, लेकिन यहां मैं इस कार्य को तुरंत हल करने के लिए एक वीबीए कोड पेश कर सकता हूं।
1। दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और नीचे VBA कोड को मॉड्यूल विंडो में पेस्ट करें। स्क्रीनशॉट देखें:
वीबीए: पंक्तियों को स्थानांतरित करें और सम्मिलित करें।
Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
Dim xRg As Range
Dim i As Long, j As Long, k As Long
Dim x As Long, y As Long
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
Application.ScreenUpdating = False
x = xRg(1, 1).Column + 2
y = xRg(1, xRg.Columns.Count).Column
For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
k = Cells(i, x - 2).End(xlToRight).Column
If k > y Then k = y
For j = k To x + 1 Step -1
Cells(i + 1, 1).EntireRow.Insert
With Cells(i + 1, x - 2)
.Value = .Offset(-1, 0)
.Offset(0, 1) = .Offset(-1, 1)
.Offset(0, 2) = Cells(i, j)
End With
Cells(i, j).ClearContents
Next j
End If
Next i
Application.ScreenUpdating = True
End Sub
3। दबाएँ F5 कोड को चलाने के लिए कुंजी, और फिर उस डेटा श्रेणी का चयन करें जिसे आप स्थानांतरित करना चाहते हैं और पॉपिंग संवाद में पंक्तियाँ सम्मिलित करें। स्क्रीनशॉट देखें:
4। क्लिक करें OK. और चयनित रेंज को नीचे दिखाए गए स्क्रीनशॉट के अनुसार परिवर्तित कर दिया गया है।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!