एक्सेल मैक्रो एक ही पंक्ति के आधार पर एक ही पंक्ति के आधार पर, एक पैराग्राफ के भीतर, एक पैरा के भीतर, एक सेल

Question

दोस्तों के लिए एक पूरी पंक्ति की प्रतिलिपि बनाने के लिए दोस्तों मैं एक साधारण एक्सेल मैक्रो की तलाश में हूं जो एक शीट से दूसरे में एक्सेल के भीतर एक पंक्ति की प्रतिलिपि बना सकता है सेल में एक विशिष्ट शब्द होने के आधार पर। मेरे पास एक शीट है, जिसे "डेटा" कहा जाता है और एक शीट जिसे "फाइनल" कहा जाता है। यहाँ डेटा

A   B   C    D 
john  mary   555.555.4939 initial reply to phone conversation 
Jim  jack   555.555.5555 floor estimate for bathroom 
jerry  kim   555.555.5553 initial response to phone call 

के eaxmple मैं एक चादर "अंतिम" यदि स्तंभ डी में डेटा होता है या तो शब्द "जबाब" या शब्द को "डाटा" चादर से पूरी पंक्ति से कॉपी करना चाहते है अनुच्छेद के भीतर कहीं "प्रतिक्रिया"।

कोई भी सुझाव अधिक बाध्य होगा।

धन्यवाद, जम्मू

Answer 1

यह काम करना चाहिए

Sub Foo() 
Dim i As Long, iMatches As Long 
Dim aTokens() As String: aTokens = Split("reply,response", ",") 
For Each cell In Sheets("data").Range("D:D") 
    If (Len(cell.Value) = 0) Then Exit For 
     For i = 0 To UBound(aTokens) 
      If InStr(1, cell.Value, aTokens(i), vbTextCompare) Then 
       iMatches = (iMatches + 1) 
       Sheets("data").Rows(cell.Row).Copy Sheets("final").Rows(iMatches) 
      End If 
     Next 
Next 
End Sub