Làm thế nào để làm việc với chuyển đổi cột hàng excel?

Tôi có nhiều dữ liệu hơn để làm việc, nhưng kịch bản như hình dưới đây

Xin vui lòng hướng dẫn cho tôi

Chà, 11 dòng thay vì 5 dòng, nhưng đối với tôi nó đủ gần;)

1. Đặt con trỏ của bạn vào cột nơi bạn muốn các giá trị mới của bạn
2. Chèn macro ở đâu đó trong trình soạn thảo VBA của bạn ( Alt + F11 )
3. Thực thi macro ( F5 )
4. Trả lời inputbux với phạm vi chính xác của bảng của bạn. Trong ví dụ của bạn: "A2: C9"

Sub mergeColumns()

    strTable = InputBox("Please enter the range of your table" & vbNewLine & "Example: A1:C4", "Select your table")
    arrTable = Range(strTable)

    For Each cell In arrTable
        i = i + 1
        ActiveCell.Offset(i, 0) = cell
    Next

End Sub

Đây chỉ là một bằng chứng về khái niệm mà không có các chỉnh sửa như ScreenUpdating, ErrorHandling hoặc khai báo biến.