excel - 如何在 Excel 中的大量单词之间放置一个带有固定文本的额外行？

Question

谁知道一种简单地将 Excel 中的单词列表粘贴到一个列中的方法，然后 Excel 会立即在其旁边创建相同的列表，但在每个原始行之间添加一个带有固定文本的额外行？

例子:

输入栏:

字 1

字 2

字 3

... ETC。

以“哔”一词作为“固定文本”的示例。

输出列:

字 1

哔

字 2

哔

字 3

哔

...等*

截图示例:
View example image

列表很长(50.000+ 字)。我可以将这种格式的列表用于仅读取上述格式的列表的提醒应用程序。我必须以这种方式转换很多列表

非常感谢!

Answer 1

这是一个简单的 VBA 例程，基于您的屏幕截图。您显然需要调整范围以匹配您的真实数据。由于使用了 VBA 数组，因此它应该比涉及从工作表中进行多次读取/写入的解决方案运行得更快。

Option Explicit
Sub NewList()
Dim vInput As Variant, vNewList As Variant
Dim sFixedWord As String
Dim I As Long

vInput = Range("a2", Cells(Rows.Count, "A").End(xlUp))
sFixedWord = Range("b2")

ReDim vNewList(0 To UBound(vInput, 1) * 2, 1 To 1)
vNewList(0, 1) = Range("C1") 'Header
For I = 1 To UBound(vInput, 1)
    vNewList((I - 1) * 2 + 1, 1) = vInput(I, 1)
    vNewList((I - 1) * 2 + 2, 1) = sFixedWord
Next I

With Range("c1").Resize(UBound(vNewList, 1) + 1)
    .EntireColumn.Clear
    .Value = vNewList
    .EntireColumn.AutoFit
End With

End Sub