Bereich definiert durch Werte in Zellen enthalten

Question

Ich habe mit einem Code zu kämpfen.

Also hier ist es, was ein Bedarf:

Everyday Ich brauche einen Bereich zu definieren und zu kopieren, die in einer Zelle beginnt, die das Wort „patrimonio“ enthält und endet in einer Zelle, die das Wort „total“ enthält. Also muss der Bereich alles zwischen diesen beiden Wörtern auswählen. Zum Beispiel: Ich habe ein Arbeitsblatt, dass Zelle "A3" enthält das Wort "patrimonio" und Zelle "A20" enthält das Wort "total", so dass der Bereich wird "A3: A20", aber an anderen Tagen das Wort "total" kann bei der Zelle "A14" sein, und das Wort "patrimonio" wird bei Zelle "A5" sein, so dass die Reichweite "A5: A14" sein wird.

Wie kann ich einen Code schreiben, um den Bereich basierend darauf zu definieren, welches Wort in der Zelle ist?

Answer 1

Bedenken Sie:

Sub FindDemo() 
    Dim alpha As Range, beta As Range, rCopy As Range 
    Dim Dest As Range 

    Set Dest = Range("Z100") 
    Set alpha = Cells.Find(What:="patrimonio", After:=Cells(1, 1)) 
    Set beta = Cells.Find(What:="Total", After:=alpha) 
    Set rCopy = Range(alpha, beta) 

    rCopy.Copy Dest 
End Sub 

Sobald der Block gefunden wird, es zu Z100

Ändern Sie das Ziel für Ihre Bedürfnisse kopiert wird.