Excel Makro bir satırdan diğerine tek bir sözcüğe bağlı olarak bir satırın tamamını kopyalamak için bir makro, bir paragraf içinde, bir hücre içinde

Question

Guys bir satırdan diğerine bir satır diğerine kopyalayabileceğiniz basit bir excel makrosu arıyorum Hücrede belirli bir kelimeye dayanarak. Bir sayfam var, "veri" ve "final" olarak adlandırılan iki sayfa. İşte verilere

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 

bir eaxmple bir levha "nihai" sütunu D'de veri ya sözcüğünü içeriyorsa "cevapta" veya kelimeye yaprağından tüm satırdaki daha "veri" copy istediğiniz olduğu paragraf içinde bir yerde "yanıt".

Her türlü ipucu mecburdur.

sayesinde J

Answer 1

Bu çalışması gerekir başka bir satır kopyalamak için kısa yol için yukarı Oy

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