如何将单个单元格拆分为多个行并添加另一行

我有一个有两个列的表。 date和testing名称。 我想要发生的是一个单元格中的文本string被分成多行。 另外，我需要将date与每组文本关联起来。 我已经尝试过文本到列，然后转置，但它只能处理一组string，而不是整个数据集。

Answer 1

循环遍历列A，然后遍历它旁边的string。

结果将在D列

  Sub ChickatAH() Dim rng As Range, Lstrw As Long, c As Range Dim SpltRng As Range Dim i As Integer Dim Orig As Variant Dim txt As String Lstrw = Cells(Rows.Count, "A").End(xlUp).Row Set rng = Range("A2:A" & Lstrw) For Each c In rng.Cells Set SpltRng = c.Offset(, 1) txt = SpltRng.Value Orig = Split(txt, " ") For i = 0 To UBound(Orig) Cells(Rows.Count, "D").End(xlUp).Offset(1) = c Cells(Rows.Count, "D").End(xlUp).Offset(, 1) = Orig(i) Next i Next c End Sub 

Answer 2

这将需要一点复制和粘贴，也使用WORD，但这里有几个步骤，应该帮助你。

1. 复制有问题的单元格。
2. 打开Word
3. select性粘贴（使用粘贴图标下方的下拉箭头）
4. select选项 – 无格式的Unicode文本（作为您的粘贴特殊选项）
5. 全选
6. 更换
7. find什么:(键入空格）replace为：^ p（创build一个新行）
8. 将结果复制并粘贴到Excel中