将单个单元格内容重新格式化为多个标题

我有一个从网上商店导出的订单，将variables作为单个单元格导出到.csv文件中。

tier: Elite | division: Male/Male Team | captain shirt size: Large | teammate shirt size: XLarge | Team Name: Terrible 2's | Participant/Volunteer Waiver & Liability Release Captain's Full Name: Craig Carroll | Participant/Volunteer Waiver & Liability Release Teammate's Full Name: Ashley Carroll | Waiver & Release of All Claims & Assumption of Risk Captain's Intials: cc | Waiver & Release of All Claims & Assumption of Risk Teammate's Initials: ac | Age Requirement: Yes 

这是它出口到一个单元格。 有没有一种方法可以使前面的单词成为一个标题，如A1所示，以及前面的文字 成为A2的价值？ 我已经使用了文本到列的function，但是它创build了格式化为tier:Elite等的单元格。 有关400个订单或订单项解决scheme的任何build议？

原版的

期望

等等

Answer 1

我会推荐以下步骤：

• 像上面提到的那样，使用文本到列 作为分隔符
• 然后转置数据（高亮行，复制，select一个单元格粘贴，然后编辑特殊的转置）
• 随着转置的数据再次使用文本到列，这次用:作为分隔符

数据将以如下格式结束：

 tier Elite division Male/Male Team captain shirt size Large teammate shirt size XLarge Team Name Terrible 2's ... 

（只显示前五行，因为其他行中有很多文本）

Answer 2

该macros假定原始数据位于Sheet1的 A列中 。 重新组织的数据将被放置在Sheet2中 ：

 Sub ReOrganize() Dim N As Long, i As Long, K As Long N = Cells(Rows.Count, "A").End(xlUp).Row K = 1 For i = 1 To N ary = Split(Cells(i, "A").Value, "|") For Each a In ary bry = Split(a, ":") With Sheets("Sheet2") .Cells(K, 1).Value = bry(0) .Cells(K, 2).Value = bry(1) K = K + 1 End With Next a Next i End Sub