In diesem Beispiel wird der Inhalt der Zwischenablage (eine Tabelle mit Text, in der das Leerzeichen als Trennzeichen verwendet wird) in mehreren Spalten in Sheet1 ausgegeben. Sie können eine einfache Tabelle dieser Art im Editor oder mit WordPad (bzw. mit einem anderen Texteditor) erstellen, die Texttabelle in die Zwischenablage kopieren, zu Microsoft Excel wechseln und anschließend dieses Makro ausführen.
Worksheets("Sheet1").Activate
ActiveSheet.Paste
Selection.TextToColumns DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Space:=True