Excel VBA 宏查找/剪切/粘贴

Question

I am having a difficult time coming up with a solution for a project I'm working on. I am needing a Macro to look at a specific sheet, find a specific value, and cut/paste that value at the end of the row.

Looking at the example file I have attached, you can see that each customer has a unique ID in column A.

They are answering a questionnaire, and each answer they give generates a unique ID.

The order of the answer ID's doesn't matter, as they are unique. The only one that DOES matter is the answer with Semicolons. That answer ID needs to be the customer's last ID. So I need to find a way to cut these answer ID's and paste them to the end of each row.

I want the semi-colon answer to be the last answer in the array. First time posting on here so I'm sorry if the format is incorrect.

Updated: Example File

Answer 1

I think that this will do what you're looking for. It goes through columns and loops through each row in those columns and once it finds a cell with a ; , it just moves that value down to the bottom of the row it was found in.

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