วิธีรวมค่าจากหลายแถวเข้าในแถวเดียวด้วยเครื่องหมายจุลภาค

ฉันมีไฟล์ Excel ที่แสดง SKU ของผลิตภัณฑ์ในหนึ่ง culumn และ URL รูปภาพผลิตภัณฑ์ในอีกคอลัมน์หนึ่ง ปัญหาของฉันคือไฟล์มีหลายแถวสำหรับผลิตภัณฑ์เดียวกัน ...

... เมื่อ CMS ที่ฉันใช้ในร้านค้าของฉันสามารถอ่านการนำเข้าเช่นนี้ได้เท่านั้น:

ฉันจะทำเอง แต่มีสินค้านับร้อยแต่ละตัวมีลิงค์รูปภาพหลายอัน โดยพื้นฐานแล้วฉันต้องมี SKU001 (SKU002, SKU003 และอื่น ๆ ) เพียงหนึ่งรายการและรวมเซลล์คอลัมน์ B ที่สอดคล้องกันไว้ในเซลล์เดียวโดยมีค่าทั้งหมดคั่นด้วยเครื่องหมายจุลภาค มีวิธีการทำเช่นนี้?

บอกว่าเรามีข้อมูลในSheet1 SKU อยู่ในคอลัมน์AและBสามารถมีข้อมูลใด ๆ ได้ SKU จะถูกเรียงลำดับ:

แมโครต่อไปนี้จะสร้างข้อมูลที่จัดระเบียบใหม่ในSheet2 :

Sub ReOrganizer()
   Dim s1 As Worksheet, s2 As Worksheet
   Dim N As Long, i As Long, K As Long
   Dim v1 As String, v2 As String
   Set s1 = Sheets("Sheet1")
   Set s2 = Sheets("Sheet2")
   K = 1
   N = Cells(Rows.Count, "A").End(xlUp).Row
   v1 = s1.Cells(2, 1).Value
   v2 = s1.Cells(2, 2).Value

   For i = 3 To N
      vn1 = s1.Cells(i, 1).Value
      vn2 = s1.Cells(i, 2).Value
      If vn1 = v1 Then
         v2 = v2 & "," & vn2
      Else
         s2.Cells(K, 1) = v1
         s2.Cells(K, 2) = v2
         v1 = vn1
         v2 = vn2
         K = K + 1
      End If
   Next i

   s2.Cells(K, 1) = v1
   s2.Cells(K, 2) = v2

End Sub

คิดว่าฉันไม่มีวิธีแก้ปัญหามาโคร

ซึ่งตัวกรองไป

ใน C2 type = IF (A2 = A1, C1 & "," & B2, B2)

จากนั้นในประเภท D2 = COUNTIF (C3, B3)

และเติมลงไปหนึ่งแถวด้านล่างตารางของคุณ

คอลัมน์ Col เชื่อมต่อกับสตริงด้านบนหากผลิตภัณฑ์เดียวกันหรือเริ่มต้นห่วงโซ่ใหม่หากผลิตภัณฑ์ใหม่

D col ค้นหาจุดสิ้นสุดของโซ่ (โดยตรวจสอบว่าแถวด้านล่างเป็นลูกโซ่ใหม่หรือไม่)

โปรดลองสิ่งนี้และบอกฉันถ้ามันทำงาน :)