Wie fügt man einen einfachen Anführungsstrich und ein Komma zu allen Werten in einer Spalte hinzu?

Question

Ich habe eine Spalte host mit folgenden Werten:

server1.abc.com 
server2.abc.com 
server3 

Nun, ich möchte jeden dieser Werte Apostrophe und durch Komma getrennt sein. Die Ausgabe sollte wie folgt aussehen:

'server1.abc.com','server2.abc.com','server3' 

Bitte lassen Sie mich wissen, wie dies mit Excel erreicht werden kann.

So weit ich bin in der Lage zu separaten Werten , mit folgendem Code:

Public Function MergeME(r As Range) As String 
    MergeME = Join(Application.Transpose(r.Value), ",") 
End Function 

Wie kann ich doppelte Anführungszeichen um Werte in jeder Zelle hinzufügen ??

Answer 1

Ihre ursprüngliche UDF war in der Nähe. Sie müssen nur mit ',' zu verbinden, anstatt , und legen dann ' am Anfang und Ende der Ausgabezeichenfolge

Public Function MergeME(r As Range) As String 
    MergeME = "'" & Join(Application.Transpose(r.Value), "','") & "'" 
End Function 

Output-String nach Bedarf:

'server1.abc.com','server2.abc.com','server3' 

Answer 2

Mit Daten in A1 durch A3, in B1 eingeben:

="'" 

(dies ist ein Apostroph in doppelten Anführungszeichen eingeschlossen)

Dann in B2 :

=B1 & A1 & B1 & "," & B1 & A2 & B1 & "," & B1 & A3 & B1