Nhờ trợ giúp gộp dòng không mất dữ liệu.

[gacondj]

Nhờ các bác xử lý giúp em file sau với:
Em muốn gộp các dòng trong cột "Task description" theo từng số Ref. No: C00... mà dữ liệu tổng sẽ đầy đủ dữ liệu ở từng ô cần gộp.
Số lượng ô cần gộp ở mỗi số Ref. No: C00... là khác nhau.
Nhờ các bác xử lý giúp, em cám ơn!

 

[snow25]

Nhờ các bác xử lý giúp em file sau với:
Em muốn gộp các dòng trong cột "Task description" theo từng số Ref. No: C00... mà dữ liệu tổng sẽ đầy đủ dữ liệu ở từng ô cần gộp.
Số lượng ô cần gộp ở mỗi số Ref. No: C00... là khác nhau.
Nhờ các bác xử lý giúp, em cám ơn!

Bạn xem đúng không nhé.

Sub gopdulieu()
    Dim arr, arr1, lr As Long, i As Long, j As Long, s As String, b As Long
    With Sheet1
         b = 1
         lr = .Range("E" & Rows.Count).End(xlUp).Row
         .Range("F2:F" & lr).ClearContents
         arr = .Range("A2:F" & lr).Value
         For i = 2 To UBound(arr, 1)
             If Len(arr(i, 1)) = 0 Then
                If s = Empty Then s = arr(i, 5) Else s = s & Chr(10) & arr(i, 5)
             Else
                arr(b, 6) = s
                s = Empty
                b = i
             End If
        Next i
        .Range("A2:F" & lr).Value = arr
    End With
End Sub

 

[gacondj]

Bạn xem đúng không nhé.

Sub gopdulieu()
    Dim arr, arr1, lr As Long, i As Long, j As Long, s As String, b As Long
    With Sheet1
         b = 1
         lr = .Range("E" & Rows.Count).End(xlUp).Row
         .Range("F2:F" & lr).ClearContents
         arr = .Range("A2:F" & lr).Value
         For i = 2 To UBound(arr, 1)
             If Len(arr(i, 1)) = 0 Then
                If s = Empty Then s = arr(i, 5) Else s = s & Chr(10) & arr(i, 5)
             Else
                arr(b, 6) = s
                s = Empty
                b = i
             End If
        Next i
        .Range("A2:F" & lr).Value = arr
    End With
End Sub

Gần chuẩn rồi bạn, bạn gộp luôn cả dòng đầu giúp mình
nữa bạn ơi (dòng bên trái dòng đã gộp đó)
Thanks!

 

[snow25]

Gần chuẩn rồi bạn, bạn gộp luôn cả dòng đầu giúp mình
nữa bạn ơi (dòng bên trái dòng đã gộp đó)
Cảm ơn!

Bạn chạy code này xem đúng không nhé.

Sub gopdulieu()
    Dim arr, arr1, lr As Long, i As Long, j As Long, s As String, b As Long
    With Sheet1
         b = 1
         lr = .Range("E" & Rows.Count).End(xlUp).Row
         .Range("F2:F" & lr).ClearContents
         arr = .Range("A2:F" & lr).Value
         For i = 1 To UBound(arr, 1)
             If Len(arr(i, 1)) = 0 Then
                s = s & Chr(10) & arr(i, 5)
             Else
                arr(b, 6) = s
                s = Empty
                b = i
                s = arr(i, 5)
             End If
        Next i
        arr(b, 6) = s
        .Range("A2:F" & lr).Value = arr
    End With
End Sub

 

[gacondj]

Bạn chạy code này xem đúng không nhé.
Cám ơn bạn nhiều!