VBA-split-string durch Leerzeichen

Ich möchte eine Funktion in excel, die ich anrufen kann, und übergeben Sie eine Zelle in. Eingang:

Firstname          Lastname      email@mail.com       
Firstname      midname     Lastname      email@mail.com

Die Anzahl der Leerzeichen zwischen zufällig sind. Ausgabe sollte nur ein array sein. Das array kann eine beliebige Länge, da ich nicht weiß, was die Saiten Aussehen. Ausgabe sollte sein:

Firstname, Lastname, email@mail.com       
Firstname, midname, Lastname, email@mail.com

Ich rufe die Funktion aus einer Zelle wie =MySplitFunction(A1), und das sollten Vorname in A1, Nachname in B1, und [email protected] in C1. Ich erstellt ein neues Modul und versucht Sie den folgenden code:

Function MySplitFunction(s As String) As String()
    MySplitFunction = Split(s, " ")
End Function

Gibt mir Ausgang

Firstname

Wie bekomme ich wieder das ganze array? Ist es auch möglich, schreiben Sie eine Funktion in einer Zelle, der die Sachen in den Zellen, um es zu schließen?

EDIT:

VBA-split-string durch Leerzeichen

InformationsquelleAutor Goatcat | 2013-08-01
  1. 12
    • Geben Sie Ihnen die Eingabe von Daten in A1
    • Wählen Sie die B1:D1 Reihe
    • geben Sie Ihre Formel =MySplitFunction(A1)
    • damit es eine Matrixformel durch drücken von STRG + SHIFT + ENTER anstatt nur ENTER.

    Zu entfernen, die über mehrere Räume, Sie könnte ändern Sie Ihren code wie dieser hier (nicht super effizient, aber funktioniert):

    Function MySplitFunction(s As String) As String()
    Dim temp As String

    Do
      temp = s
      s = Replace(s, "  ", " ") 'remove multiple white spaces
    Loop Until temp = s

    MySplitFunction = Split(Trim(s), " ") 'trim to remove starting/trailing space
End Function
    • Dies irgendwie funktioniert, jedoch glaube ich nicht, loszuwerden, alle das zusätzliche Leerzeichen. Irgendwelche Ideen?
    • Ich denke, ich möchte etwas machen, das ersetzt alle mehrfachen Leerzeichen mit EINEM einzigen weißen Raum, und führen Sie dann Split(s, " ") auf. Gedanken?
    • Siehe mein edit.
    • Ich habe es zu arbeiten, aber ich musste hinzufügen s = Replace(s, Chr(160), " ") unterhalb der aktuellen Zeile ersetzen, denn es enthielt so genannte "nicht-Leerzeichen". Ich bearbeitet habe, die Antwort, um diese aufzunehmen. Ich danke Ihnen sehr für Ihre Hilfe!
    InformationsquelleAutor assylias
  2. 5

    Alternative Lösung:

    1. verwenden RegEx als ersten Schritt entfernen Sie alle Leerzeichen
    2. split-Ergebnis der ersten Schritt auf Basis einzelner Räume Links
    3. darüber hinaus, denn Sie müssen zurück, andere-element von den text in verschiedenen Zellen als zusätzliche Funktion parameter wird gelöst.

    Es wird vorgeschlagen, Funktion:

    Public Function MySplitFunction(sMark As String, nTh As Integer) As String

On Error GoTo EH
    'regexp declaration
    Dim objRegExp As Object
    Set objRegExp = CreateObject("vbscript.regexp")

    Dim tmpTXT As String
    Dim tmpArr As Variant
    With objRegExp
        .Global = True
        .Pattern = "\s+"

        tmpTXT = .Replace(sMark, " ")
    End With

    tmpArr = Split(tmpTXT, " ")
    MySplitFunction = tmpArr(nTh - 1)

Exit Function
EH:
    MySplitFunction = ""

End Function

    und das ist Screenshot präsentieren, wie es funktioniert:

    VBA-split-string durch Leerzeichen

    Wichtig! bei Aufruf der Funktion in Excel verwenden Sie Kommas zum trennen von Parametern (anstelle der vorgestellten semi-Kolon aufgrund von lokalen-nationalen version von excel, das ich verwende).

    • Ich habe die Formel genau so wie in B2, aber ich bekomme Fehler ", die Sie nicht ändern können Teil eines Arrays ist."
    • was ist mit Komma vs. Semikolon, die ich bereits in der letzten Bemerkung am Ende meiner Antwort?
    • Prüfen, Bearbeiten der original-post. Ich glaube nicht, ich sollte mit Kommas. Ich in der Regel immer die Verwendung semi-colon.
    • Sie Recht, semi-colon ist ok für Sie. 1. Kommentar On error... Linie vorübergehend und gebe mein feedback, welche Zeile den Fehler in dem code. 2. die Beantwortung Ihrer weiteren Frage (ab edition)- könnte man verbessern mit dieser Funktion machen es die array-Funktion und rufen Sie es als Nächstes mit Strg+Shift+Enter in excel.
    • +1 gute Idee, auf die regexp. Hinzufügen eines CHAR(160) Komponente, um das Muster wäre auch eine gute Idee.
    InformationsquelleAutor Kazimierz Jawor
Schreibe einen Kommentar