รูปแบบเกี่ยวกับวิธีรวมค่าจากหลายแถวเข้าด้วยกันเป็นแถวเดียวใน Excel [ซ้ำ]

สวัสดีฉันกำลังพยายามปรับ VBA ที่ยอดเยี่ยมที่โพสต์ก่อนหน้านี้เพื่ออ่านข้อมูลและนำทุกบรรทัดที่มี ID เดียวกันในคอลัมน์ 1 และเพิ่มทั้งหมดลงในหนึ่งแถวสำหรับแต่ละรายการ พยายามรับจากสิ่งนี้:

สำหรับสิ่งนี้

แต่โค้ดที่ดัดแปลงด้านล่างจะรวมแถว 2 แถวเข้าด้วยกันเท่านั้นแม้ว่าจะมีมากกว่าสองแถวที่มี id เดียวกันในคอลัมน์ 1

Sub CombineInvoices()
Dim currentRow As Long
Dim currentCol As Long
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row 
currentCol = 4
For currentRow = LastRow To 2 Step -1
    If Cells(currentRow, 1) = Cells(currentRow - 1, 1) Then
        Range(Cells(currentRow, 1), Cells(currentRow, 4)).Copy Destination:=Range(Cells(currentRow - 1, currentCol + 1), Cells(currentRow - 1, currentCol + 4))
        Rows(currentRow).EntireRow.Delete
    End If
Next
currentCol = currentCol + 4
End Sub

ความช่วยเหลือทั้งหมดได้รับสุดซึ้งจริงๆ

หากคุณย้ายคำสั่ง currentCol = currentCol + 4

จัดการงานให้หมด ฉันกำลังลบแถวขณะที่ฉันกำลังแยกคำสั่งคัดลอกและลบออกตามด้านล่างและทั้งหมดใช้งานได้! เย้!

Sub CombineRowsRevisitedStep()
Dim currentRow As Long
Dim currentCol As Long
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
currentCol = 4
For currentRow = LastRow To 2 Step -1
    If Cells(currentRow, 1) = Cells(currentRow - 1, 1) Then
        Range(Cells(currentRow, 1), Cells(currentRow, currentCol)).Copy Destination:=Range(Cells(currentRow - 1, 4), Cells(currentRow - 1, currentCol + 30))
    currentCol = currentCol + 4
    End If
Next
For currentRow = LastRow To 2 Step -1
    If Cells(currentRow, 1) = Cells(currentRow - 1, 1) Then
        Rows(currentRow).EntireRow.Delete
    End If
Next
End Sub