Question

我正在尝试找出一种方法，将以下方式格式化的文本列表转换为带有每个键的单个标题的Excel电子表格。我是否必须根据标题名称制作组合列的代码？我搜索谷歌，找不到任何东西。任何帮助将非常感激。

文字列表

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

我创建了两个实例来替换＆＃34; Barcode:＆＃34;因为在文本示例中没有条形码数据，所以没有像其他人那样的尾随空格。

请注意，如果文本列表中存在预先存在的选项卡，则会导致导入到Excel。如果是这种情况，第一步应该是搜索/替换以消除它们。

以后手动插入标题行很容易。

文本列表以excel电子表格

1 个答案: