☰

Formatieren einer Excel-Tabelle beim Kopieren/Einfügen von einer Website

tag-icon • tag-icon microsoft-excel-2010
Formatieren einer Excel-Tabelle beim Kopieren/Einfügen von einer Website

Ich versuche eine Datenbank zu erstellen ausDiese Internetseite. Jedes Land hat zahlreiche Vertreter, neben deren Namen auch Kontaktdaten angegeben sind (Faxnummer und Firmenname sind nicht erforderlich).

Das Problem ist, aufgrund derFormat der Website, wenn ich die Daten in mein Excel-Blatt kopiere, sind die Informationen zu jedem Agenten auf drei oder vier Zeilen verteilt.

Ich brauche für jeden Agenten alle Informationen in einer Zeile,

zB. (Zellen in Klammern)

[ A1 ]       [ B1 ]             [ C1 ]  [ D1 ]                     [ E1 ]  [ F1 ]
GRO Alberti  [email protected]  Bosnia  P Hora K2 A 8 41 Dhjetori  Girana  Tel:+42-79/379 82 86.

Ich habe versucht, alles manuell zu kopieren und einzufügen, aber das dauert viel zu lange.

Gibt es eine automatische oder schnellere Möglichkeit, mein Ziel zu erreichen?

Antwort1

Wenn Sie Excel-Formeln verwenden möchten:

  • Kopieren und Einfügen der Tabelle in Excel
    • Zeilen in den ersten beiden Spalten werden zusammengeführt, aber Formeln können den Wert nur in der Zelle ganz oben links im zusammengeführten Bereich sehen, andere Zellen erscheinen für Formeln leer
  • Angenommen, die Daten beginnen in der Zelle A2, fügen Sie die folgende Formel in die Zelle ein E2– eine neue Zeile wird durch Folgendes eingefügt Alt+Enter:
    =C2 & WENN($A3<>"", "", " 
    " & E3)
  • Formel in entsprechenden Bereich kopieren
  • Filtern nach NameSpalte, ausgenommen(Blanks)
  • Original Addressund Other infoSpalten ausblenden
  • Kopieren und Einfügen von Spezialwerten in ein neues Blatt

Abbildung der Lösung vor dem letzten Schritt

Der zugrunde liegende Algorithmus ist:

  1. beginnen Sie in der untersten Reihe
  2. Wenn Namein einer Zeile weiter unten nicht leer ist, erstellen Sie eine neue Zeichenfolge, Sdie die Adresse aus dieser Zeile enthält.
    Andernfalls fügen Sie Text aus der Adresse in dieser Zeile an den Anfang vonS
  3. 1 Zeile nach oben verschieben

Antwort2

Ich bin mir nicht sicher, wie Sie den Wert von C1 genau erhalten, aber Sie sollten in der Lage sein, die Quelle der Seite abzurufen. Drücken Sie dazu Ctrl+ U. Dadurch sollten Sie eine in HTML geschriebene Seite erhalten. Suchen Sie nach Zeile 128 (oder wo die Tabelle beginnt). Dort sollten die Daten stehen, die Sie benötigen, und sie beginnen mit <table class ....

Kopieren Sie alles von <table class ...bis </table>, was in der gleichen Zeile steht, nahe dem Ende.

Fügen Sie dies in den Notizblock ein.

Klicken Sie auf Ctrl+ Hund verwenden Sie „Suchen nach: <br />Ersetzen durch: „ “ (ein Leerzeichen) und klicken Sie auf „Alles ersetzen“.

Kopieren Sie alles und fügen Sie es in Excel ein. Sie können die Formatierung anschließend entfernen, um die Zellenabmessungen auszugleichen.

Beachten Sie, dass Hyperlinks in den Daten verbleiben.

BEARBEITEN:

Die Trennung von E-Mail, Tel., Mobil und Fax wird etwas länger dauern, aber nicht ganz so lang.

Um die E-Mail zu erhalten, verwenden Sie diese Formel in der nächsten Zelle in E2:

=LEFT(D2, FIND(" ",D2)-1)

Und nach unten ziehen.

Um die Zahlen jetzt zu erhalten, ist es einfacher, sie zunächst alle einzeln in Spalte F abzurufen:

=MID(D2, FIND(" ",D2)+1, LEN(D2))

Jetzt bekommen wir in G das Telefon, in H das Fax und in I das Mobiltelefon.

Geben Sie in G2 Folgendes ein und ziehen Sie es nach unten:

=IFERROR(MID(F2,FIND("Tel:",F2)+4,IFERROR(FIND(":",F2,FIND("Tel:",F2)+4),LEN(F2))-FIND("Tel:",F2)-4),"")

Fügen Sie in H2 Folgendes ein und ziehen Sie es nach unten:

=IFERROR(MID(F2,FIND("Fax:",F2)+4,IFERROR(FIND(":",F2,FIND("Fax:",F2)+4),LEN(F2))-FIND("Fax:",F2)-4),"")

Geben Sie in I2 Folgendes ein und ziehen Sie es nach unten:

=IFERROR(MID(F2,FIND("Mobile:",F2)+7,IFERROR(FIND(":",F2,FIND("Mobile:",F2)+7),LEN(F2))-FIND("Mobile:",F2)-7),"")

Anschließend alles kopieren und als Werte einfügen, um die Formeln zu entfernen. Die Spalten G bis I markieren und alle ersetzen Tel, Faxund Mobiledurch nichts bis Ctrl+ H.

Die französischen Funktionen in der oben genannten Reihenfolge:

=GAUCHE(D2, TROUVE(" ",D2)-1)

=STXT(D2, TROUVE(" ",D2)+1, NBCAR(D2))

=SIERREUR(STXT(F2,TROUVE("Tel:",F2)+4,SIERREUR(TROUVE(":",F2,TROUVE("Tel:",F2)+4),NBCAR(F2))-TROUVE("Tel:",F2)-4),"")

=SIERREUR(STXT(F2,TROUVE("Fax:",F2)+4,SIERREUR(TROUVE(":",F2,TROUVE("Fax:",F2)+4),NBCAR(F2))-TROUVE("Fax:",F2)-4),"")

=SIERREUR(STXT(F2,TROUVE("Mobile:",F2)+7,SIERREUR(TROUVE(":",F2,TROUVE("Mobile:",F2)+7),NBCAR(F2))-TROUVE("Mobile:",F2)-7),"")

verwandte Informationen