Excel VBA 宏查找/剪切/粘贴

Question

我很难为我正在从事的项目提出解决方案。 我需要一个宏来查看特定的工作表，找到一个特定的值，然后在行的末尾剪切/粘贴该值。

查看我附上的示例文件，您可以看到每个客户在 A 列中都有一个唯一的 ID。

他们正在回答问卷，他们给出的每个答案都会生成一个唯一的 ID。

答案 ID 的顺序无关紧要，因为它们是唯一的。 唯一重要的是分号的答案。 该答案 ID 需要是客户的最后一个 ID。 所以我需要找到一种方法来剪切这些答案 ID 并将它们粘贴到每一行的末尾。

我希望分号答案是数组中的最后一个答案。 第一次在这里发帖，如果格式不正确，我很抱歉。

更新：示例文件

Answer 1

我认为这会做你正在寻找的。 它遍历列并循环遍历这些列中的每一行，一旦找到带有;的单元格; ，它只是将该值向下移动到它所在行的底部。

Sub AnswerID()

    Dim lastCol As Long
    lastCol = Cells(1, Columns.count).End(xlToLeft).Column

    Dim i As Long
    For i = 1 To lastCol

        Dim lastRow As Long
        lastRow = Cells(Rows.count, i).End(xlUp).row

        Dim j As Long
        For j = 1 To lastRow
            If InStr(Cells(j, i), ";") > 0 Then
                Cells(lastRow, i).offset(1, 0).Value2 = Cells(j, i).Value2
                Cells(j, i).Value2 = vbNullString

                Exit For
            End If
        Next j

    Next i

End Sub