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