ट्रैविस पूछता है:
मैं कुछ पाठों को अलग कॉलम में प्रारूपित करने की कोशिश कर रहा हूं। पाठ इस प्रकार है:
ए कंपनी का नाम ए पीओ बॉक्स 1 NEWARK NJ 07101 कंपनी का नाम बी पीओ बॉक्स 2 1400 SANS SOUCI PARKWAY विल्कस-बैर पीए 18703 कंपनी का नाम सी पीओ बॉक्स 3 CHICAGO IL 60694 कंपनी का नाम डी पीओ बॉक्स 4 CLEARFIELD UT 84015 कंपनी का नाम ई पीओ बॉक्स 5 OGDEN UT 84401 कंपनी का नाम एफ पीओ बॉक्स 6 BALTIMORE एमडी 21264-4351 जब मैंने एक्सेल को टेस्ट करने के लिए फॉर्मेट किया तो मैंने इस कॉलम को ऊपर चित्रित किया। मैं एक ऐसे फार्मूले के बारे में जानना चाहूंगा, जिससे मैं कंपनी के लिए कई पंक्तियों की बजाय एक पंक्ति में डेटा प्रदर्शित कर सकूं, यदि मुझे एक पंक्ति में लेकिन अलग-अलग कॉलमों में निम्नलिखित फॉर्मूला देना चाहिए, तो परिणाम
सभी एक ही ROW पर
ए बी सी कंपनी का नाम ए पीओ बॉक्स 1 NEWARK NJ 07101 मेरे पास vlookups और hlookups और पिवट टेबल हैं, लेकिन मैं यह पता नहीं लगा सकता कि यदि पंक्ति-दर-पंक्ति तरीके से तिथि कैसे प्राप्त की जाए।
मैं एक-एक कॉलम में पंक्ति-दर-पंक्ति प्रकट होने के लिए कंपनी के नाम प्राप्त करने में सक्षम रहा हूं और मुझे लगा कि मैं अपने परिणामों की तलाश करने के लिए एक ह्वाइडअप के साथ एक vlookup के संयोजन का उपयोग कर सकता हूं, लेकिन मुझे पता नहीं है ईथर देखने में घोंसले के लिए उचित सूत्र। मैंने कुछ DSUM फ़ंक्शन का भी परीक्षण किया है, लेकिन कोई भी मेरे लिए काम नहीं कर रहा है? तो कृपया मुझे बताएं कि मुझे क्या या कैसे अपनी समस्या को ठीक करना है।
मुझे लगता है कि मैक्रो का उपयोग करके इसे आसानी से प्राप्त किया जा सकता है। इसको आजमाओ।
Sub CopyAcross() Dim i As Long Dim NRow As Long Dim LastRow As Long NRow = 2 'First Row TO COPY, change this if you want i = 2 'First Row where the data appears, I assumed it started in A2 LastRow = Range("A65536").End(xlUp).Row While i <= LastRow Range(Cells(i, 1), Cells(i, 1).End(xlDown)).Copy Cells(NRow, 2).PasteSpecial Transpose:=True 'In here, I'm copying to Column 2, Next availabe Row. You can change the 2 if you want. NRow = NRow + 1 i = Cells(i, 1).End(xlDown).End(xlDown).Row Wend End Sub
