पाठ फ़ाइल से एक्सेल में विशिष्ट पंक्तियों का चयन करें और हटाएं

Question

मैं एक का चयन करना चाहते हैं बहुत उन्हें हटाने के लिए एक्सेल में पंक्तियों की संख्या और मैन्युअल रूप से ऐसा करने में घंटों लग जाते हैं। मेरे पास प्रत्येक पंक्ति पर एक संख्या के साथ .txt फ़ाइल में विशिष्ट पंक्ति संख्याएँ हैं। ऐशे ही:

1
5
8
9

क्या एक्सेल को इन पंक्तियों को स्वचालित रूप से चुनने / हटाने के लिए बताने का कोई अच्छा तरीका है?

उदाहरण:

Comments

एक पंक्ति को हटाने के लिए क्या शर्त पूरी होनी चाहिए?

— Eric F

कोई तार्किक स्थिति नहीं है। एक विशिष्ट विक्रेता हमारे साथ काम नहीं करने के कारण पंक्ति को हटा दिया जाता है - प्रतीत होता है यादृच्छिक पंक्तियाँ। इसलिए मेरे पास पाठ फ़ाइल में विशिष्ट पंक्तियाँ (1, 5, 8, 9 उदाहरण के रूप में) हैं और इन पंक्तियों का चयन / हटाने की आवश्यकता है।

— Aphex

पंक्तियों का चयन करना, राइट क्लिक करना, और डिलीट का चयन करना एक्सेल में पंक्तियों को हटाने का सबसे तेज़ तरीका है। आप कथित तौर पर VBA का उपयोग कर सकते हैं लेकिन इसमें कोई गति नहीं होगी।

— Eric F

यदि आप एक ही विक्रेता के लिए कई पंक्तियों को हटाना चाहते हैं तो यह एक अलग कहानी है और सभी घटनाओं को खोजने के लिए आप ऐसा करने के लिए VBA का उपयोग कर सकते हैं।

— Eric F

मान लीजिए कि मेरे पास 2000 पंक्तियों के डेटा के साथ एक दस्तावेज़ है और मुझे यादृच्छिक स्थानों में उनमें से 500 को हटाने की आवश्यकता है - यदि यह अधिक हो तो आसानी से 20-30 मिनट लग सकते हैं। अगर मैं किसी तरह ई.जी. विशिष्ट लाइनों का चयन करते हुए अलग पाठ फ़ाइल पर VBA स्क्रिप्ट, हम काम के सेकंड के बारे में बात कर रहे हैं। क्या आप जानते हैं कि कुटूल उपयोग में हो सकता है?

— Aphex

Answer 1

यहाँ एक उदाहरण है कि आप चीजों के VBA पक्ष पर आरंभ करें। मैंने एक कार्यपुस्तिका बनाई जिसमें दो फ़ील्ड हैं, विक्रेता और फ़ाइल स्थान। मैंने एक VBA उप प्रक्रिया भी बनाई जो टेक्स्ट फ़ाइल को खोलेगी और किसी भी पंक्ति को प्रतिस्थापित करेगी जो = उसके अंत में वापसी गाड़ी के साथ वेंडर नंबर और कुछ नहीं ("") के साथ बदलें

Sub Remove_line_item()
Dim myFile As String, text As String, textline As String, posLat As Integer, posLong As Integer
myFile = Range("B2").Value
myFile = Application.GetOpenFilename()
Open myFile For Input As #1
Do Until EOF(1)
Line Input #1, textline
text = text & textline
Loop
text = Replace(text, Range("A2").Value & ChrW(14), "")

myFile.Write text
myFile.Close
End Sub

मैंने एक समय में केवल एक फ़ाइल पथ का उपयोग किया था, लेकिन आप एक कदम आगे जा सकते थे और एक निर्देशिका में सभी पाठ फ़ाइलों के माध्यम से जा सकते थे। उम्मीद है कि यह आपके लिए एक अच्छी शुरुआत हो सकती है।