आपकी पोस्ट को VBa के साथ टैग किया गया है, और इस तरह, यह मैक्रो करेगा। लेकिन, मैंने मैच का उपयोग नहीं किया या जैसा कि आपने उल्लेख किया है, मुझे यकीन नहीं है कि आपको उन लोगों का उपयोग करना है या नहीं, मैंने मान लिया है कि नहीं और आप केवल वही दिखा रहे हैं जो आपने प्रयास किया है।
हमेशा मैक्रोज़ के साथ के रूप में, अपना काम पहले सहेजें, फ़ाइल की एक प्रति बनाएँ, और फिर इसे लागू करें (यदि ऐसा नहीं है तो आप जो चाहते थे उसका मतलब है कि आपके पास एक बैकअप है)
Sub RemoveEmails()
Dim row As Integer
row = 1
Dim sheet_A_Column As String
sheet_A_Column = "D" ' UPDATE ME IF NEEDED. I am the column of emails in the main table. You will be deleting emails from this list
Dim sheet_B_Column As String
sheet_B_Column = "A" ' UPDATE ME IF NEEDED. I am the list of emails which need to be matched for deletion.
Do While (True) ' don't ever stop me! I loop forever...
Dim theValue As String
theValue = Worksheets("Sheet2").Range(sheet_B_Column & row).Value ' the value on Sheet2 (the delete list)
If theValue = "" Then
Exit Do ' unless I run out of things to loop through, at which point, exit
End If
'Now to loop through all the cells on Sheet1 to see which value(s) need clearing or not
For Each c In Worksheets("Sheet1").Range(sheet_A_Column & ":" & sheet_A_Column).Cells
If c.Value = theValue Then
c.Value = ""
End If
Next
row = row + 1
Loop
End Sub
तो, कुछ स्क्रीन शॉट्स समझाने में मदद करने के लिए।
शीट 2 पर ईमेल की सूची जो हम शीट 1 से निकालना चाहते हैं
अब, शीट 1, वास्तविक सूची जहां हम उनमें से कुछ को निकालना चाहते हैं।
और मैक्रो चलाने के बाद अंतिम परिणाम
मुझे स्वीकार करना होगा, जो कोड मैंने दिया है वह सबसे अधिक कुशल नहीं है लेकिन, आपके प्रश्न के आधार पर, यह वही करता है जो इसकी आवश्यकता है!