Frage : Entdeckung-erstes Entdeckungletztes Excel-VBA

Ich muss eine vba Funktion konstruieren, die, wenn sie eine Spalte in einem Tabelle (Listobject)
it gegeben wird, das erste und letzte Vorkommen einer gegebenen Schnur findet. Sie wird als, die Daten between
these Vorkommen und die Reihen zu einem anderen Blatt, bitte help.
zu kopieren

Antwort : Entdeckung-erstes Entdeckungletztes Excel-VBA

Den Code im Stückchen verwenden, aber anstelle von den Spaltenzahlen (in Beispielspalte (1)) können Sie sie benutzen, um diese Informationen vom listobject zu erhalten.

1: 2: 3: 4: 5: 6: 7: 8: 9:

Wenn Spalten (1).Rows (1).Value = "" dann zuerst = Spalten (1).End (xlDown). Adresse Sonst zuerst = Spalten (1).Rows (1).Address Beenden wenn Letztes = Spalten (1).SpecialCells (xlCellTypeLastCell). Adresse Strecke (zuerst u. „: “ u. letzt). Kopien-Bestimmungsort: =Workbooks (1).Sheets (2).Cells (1)