VBA宏将单元格移动到新工作表并删除Excel中的单元格标题

我试图创建一个VBA宏，将工作表1上的内容移动到工作表2上的行。这与这里发布的问题非常相似，但我无法让宏为我工作，因为我不理解答案的可变部分。
我们将把一块信息粘贴到活页一中，活页一看起来像这样，所有数据都在多个单元格的a列中：

问题描述：测试

优先权：标准

人数：xxxxxxx

遭遇号码：xxxxxxx

报告人：John CC X.Smith 2015年5月12日上午11:40 TSTEST2（jsmith）

模板名称：fts_临床指南_8310

因此，我们希望问题描述单元格中的信息移动到第2页的一行，其他单元格的文本在“：”之后，依此类推。我还需要所有单元格信息在移到第2页时保留在第一行中。我希望这是有意义的，我真的非常感谢任何帮助。谢谢

编辑：以下是我试图修改的代码。它提到了我将在以后更改的原始答案“标题”。例如，它提到MyID=“”，我不知道如何将信息放入引号中使其工作。

这对你有用

Sub SpecialCopy()
    Dim trg As Worksheet
    Set trg = ThisWorkbook.Worksheets(2)
    Dim i As Long, j As Long
    Dim lastRow As Long: lastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
    Dim lastRow2 As Long: lastRow2 = trg.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
    For i = 1 To lastRow ' assuming we starting from second row
        trg.Cells(lastRow2, i).Value = Split(Cells(i, 1).Value, ":")(0)
        For j = 1 To UBound(Split(Cells(i, 1).Value, ":"))
            trg.Cells(lastRow2 + 1, i).Value = trg.Cells(2, i).Value & Split(Cells(i, 1).Value, ":")(j)
        Next j
    Next i
End Sub

---

编辑：我已经编辑了代码，请让我知道这是否适合您。

欢迎来到stackoverflow，到目前为止您尝试了什么？你有你写的代码片段吗？我已经用我试图使用的代码更新了这个问题。谢谢你的快速回复！非常感谢您的回复，这很有效，但我需要将信息拆分为一行中的单元格。我的问题在这方面不清楚，对此我深表歉意。我还需要每个单元格的标题在添加到第2页时被删除。因此，当“优先级：xxxx”添加到第2页时，它将只是“xxxx”。这有什么意义吗？再次感谢你的帮助，不客气。请检查编辑后的答案。如果您对它感到满意，请接受回复，因为它确实工作得很好！最后一件事是，当我将新信息粘贴到工作表A并运行宏时，它会将信息插入到工作表2的同一行中。我们需要它进入下一行。那可能吗？再次感谢您的帮助，我从您的代码中学到了很多！再次感谢您的快速回复！这一次，它在表2中添加了两行，最上面的一行是标题信息，例如“优先级”，在第二行中，它添加标题和标题后的信息。在删除每个单元格的标题时，只将第二行添加到第2页是很好的。我将trg cells部分中的2更改为1，它修复了标题问题以及添加到行中的以下信息，但仍在添加一行，仅添加标题信息。思想？

Sub SpecialCopy()
    Dim trg As Worksheet
    Set trg = ThisWorkbook.Worksheets(2)
    Dim i As Long, j As Long
    Dim lastRow As Long: lastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
    Dim lastRow2 As Long: lastRow2 = trg.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
    For i = 1 To lastRow ' assuming we starting from second row
        trg.Cells(lastRow2, i).Value = Split(Cells(i, 1).Value, ":")(0)
        For j = 1 To UBound(Split(Cells(i, 1).Value, ":"))
            trg.Cells(lastRow2 + 1, i).Value = trg.Cells(2, i).Value & Split(Cells(i, 1).Value, ":")(j)
        Next j
    Next i
End Sub