テキストリストからスプレッドシートをExcelにする

Question

下のように書式設定されたテキストリストを、各キーごとに1つのヘッダーを持つExcelスプレッドシートに変換する方法を理解しようとしています。ヘッダー名に基づいて列を結合するコードを作成する必要がありますか？私はGoogleを検索して何も見つけることができません。どんな助けでも大歓迎です。

テキストリスト

Item No: Baklawa 001 
Description: Jasmine Mixed Baklawa Tray 
Barcode: 777640001048 
Size: 1x320 g 

Item No: Baklawa 002 
Description: Jasmine Mixed Baklawa Tray 
Barcode: 777640001031 
Size: 1x725 g 

Item No: Baklawa021 
Description: Jasmine Baklawa Roll 
Barcode: 
Size: 40 pcs 

Item No: Baklawa041 
Description: Jasmine Baklawa Almond (Square) 
Barcode: 
Size: 40 pcs 

エンドテキストリスト

Answer 1

ことが可能だ場合、これは、より簡単に、Wordで達成されます。タブで区切られたリストを作成し、それをExcelに配置することができます。

例のテキスト書式が正確であると仮定すると、以下のマクロが目的の変換を実行します。手動で検索/置換することもできます。

Sub LineZapper() 
    Selection.Find.Execute FindText:="Item No: ", ReplaceWith:="", Replace:=wdReplaceAll 
    Selection.Find.Execute FindText:="^pDescription: ", ReplaceWith:="^t", Replace:=wdReplaceAll 
    Selection.Find.Execute FindText:="^pBarcode: ", ReplaceWith:="^t", Replace:=wdReplaceAll 
    Selection.Find.Execute FindText:="^pBarcode:", ReplaceWith:="^t", Replace:=wdReplaceAll 
    Selection.Find.Execute FindText:="^pSize: ", ReplaceWith:="^t", Replace:=wdReplaceAll 
    Selection.Find.Execute FindText:="^p^p", ReplaceWith:="^p", Replace:=wdReplaceAll 
End Sub 

ため、私は何のバーコードデータがありません他の人が持っているように、末尾にスペースがありませんテキストサンプルに「Barcode:」行を置き換えるために2つのインスタンスを作成しました。

テキストリストに既存のタブがある場合、Excelへのインポートが中止されることに注意してください。そうであれば、最初のステップは、それらを除去するための検索/置換でなければなりません。

後で手動でヘッダ行を挿入するのは簡単です。