我可以将一个长列转置为多行，每个空白单元格（或任何分隔符）换一个新行吗？

Question

我有一个巨大的单词列表，我已将其转换为 .txt 并导入到 Excel。当我导入它时，它只是进入一个大列，每一行都在列下方的一个新单元格中。信息是这样的：

姓名：Xyz ltd
日期：1/1/1990
国家：爱尔兰
等等：等等

姓名：abc ltd
日期：1/1/2990
国家：日本
等等：等等
etc:etc

姓名：jfj ltd
日期：etc

在出现空白 space 之前，它们不一定都具有相同数量的单元格，但如果需要，我可以做到这一点。我还可以使空白单元格成为某种分隔符，例如 % 符号。

我想将它转换成这个（我在行中应该是新单元格的地方放置了一个逗号）：

名称：Xyz ltd，日期：1/1/1990，国家：爱尔兰等：等
名称：abc ltd，日期：1/1/2990，国家：日本等：等 etc:etc
名称：jfj ltd，日期：等等，等等

简单的转置只是将所有内容放在一长行而不是一长列中。

有什么想法吗？谢谢（顺便说一句，我在不同的 Word 文档中讨论了数万行，所以手动执行此操作真的是不可能的）

Answer 1

Sub QuickandDirty()
Dim r As Range  'cell to read
Dim t As Range  'cell to write
Set r = Range("A1")
Set t = Range("B1")
Do Until r.Row > r.Parent.UsedRange.Rows.Count
   t.Value = r.Text  'copy text
   Set r = r.Offset(1, 0) 'move r down
   Set t = t.Offset(0, 1) 'move t across
   If r = "" Or r = " " Then 'r is blank or has a space
      Set r = r.Offset(1, 0) 'move down 1 more
      Set t = Cells(t.Row + 1, 2) 'reset t to column b, next row
   End If
Loop
End Sub

我可以将一个长列转置为多行，每个空白单元格（或任何分隔符）换一个新行吗？

Can I transpose one long column into multiple rows, a new row for every blank cell (or any delimitter)?

excel

vba

formula