Sắp xếp lại dữ liệu (từ bậc thang thành 1 cột) (5 người xem)

[parkjun]

Chào các bạn,

Mình có 1 file xuất từ hệ thống, khi xuất ra thì data được sắp xếp theo dạng bậc thang (diễn tả chắc hơi khó hiểu nên mình có đính kèm file để các hình dung dễ hơn)
Cho mình hỏi là có cách nào để sắp xếp lại dữ liệu dọc thành 1 cột được không nhỉ?

Cảm ơn các bạn.

 

[snow25]

Chào các bạn,

Mình có 1 file xuất từ hệ thống, khi xuất ra thì data được sắp xếp theo dạng bậc thang (diễn tả chắc hơi khó hiểu nên mình có đính kèm file để các hình dung dễ hơn)
Cho mình hỏi là có cách nào để sắp xếp lại dữ liệu dọc thành 1 cột được không nhỉ?

Cảm ơn các bạn.

Bạn thử code này.Dữ liệu của bạn bên sheets ketqua.

Sub xapxep()
    Dim arr, i As Long, kq, lr As Long, lc As Long, b As Long, dk As String, j As Integer
    With Sheets("Original Data")
         lr = .Range("B" & Rows.Count).End(xlUp).Row
         arr = .Range("A2:KJ" & lr).Value
         ReDim kq(1 To UBound(arr), 1 To 7)
    End With
        dk = arr(1, 2)
        b = 0
        For i = 1 To UBound(arr)
            kq(i, 1) = arr(i, 1)
            kq(i, 2) = arr(i, 2)
            If dk <> arr(i, 2) Then
               b = b + 5
               dk = arr(i, 2)
            End If
            For j = 3 To 7
                kq(i, j) = arr(i, j + b)
            Next j
       Next i
   With Sheets("ketqua")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        If lr > 1 Then .Range("A2:G" & lr).ClearContents
        .Range("A2:G2").Resize(i - 1).Value = kq
   End With
End Sub

 

[phulien1902]

@snow25:
Bạn hiểu nhanh vấn đề và viết code rất nhanh, khâm phục.

 

[parkjun]

Hi bạn,

File bạn làm chuẩn như lê duẩn luôn rồi. Cho mình hỏi là làm như thế nào nhỉ Mình hơi newbie

Cảm ơn bạn

 

[snow25]

Hi bạn,

File bạn làm chuẩn như lê duẩn luôn rồi. Cho mình hỏi là làm như thế nào nhỉ Mình hơi newbie

Cảm ơn bạn

Mình dùng code vba bạn tìm hiểu thêm và chạy code nhé

 

[parkjun]

Mình chạy thì nó báo như hình này, không biết là bị sao nhỉ

 

[snow25]

Mình chạy thì nó báo như hình này, không biết là bị sao nhỉ
View attachment 222811

Bạn gủi cái dòng code lỗi lên xem nào

 

[phulien1902]

Mình chạy thì nó báo như hình này, không biết là bị sao nhỉ
View attachment 222811

Bạn tìm đến dòng:

         arr = .Range("A2:KJ" & lr).Value

và đổi thành:

arr = .Range("A2:IV" & lr).Value

rồi chạy Code để xem kết quả nhé.

 

[parkjun]

mình gửi lại đoạn bị lỗi nhé

 

[snow25]

mình gửi lại đoạn bị lỗi nhé
View attachment 222828

Bạn thử lại nhé.

Sub xapxep()
    Dim arr, i As Long, kq, lr As Long, lc As Long, b As Long, dk As String, j As Integer
    With Sheets("Original Data")
         lr = .Range("B" & Rows.Count).End(xlUp).Row
         lc = .Cells(1, Columns.Count).End(xlToLeft).Column
         arr = .Range("A2:A" & lr).Resize(, lc).Value
         ReDim kq(1 To UBound(arr), 1 To 7)
    End With
        dk = arr(1, 2)
        b = 0
        For i = 1 To UBound(arr)
            kq(i, 1) = arr(i, 1)
            kq(i, 2) = arr(i, 2)
            If dk <> arr(i, 2) Then
               b = b + 5
               dk = arr(i, 2)
            End If
            For j = 3 To 7
                kq(i, j) = arr(i, j + b)
            Next j
       Next i
   With Sheets("ketqua")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        If lr > 1 Then .Range("A2:G" & lr).ClearContents
        .Range("A2:G2").Resize(i - 1).Value = kq
   End With
End Sub

 

[parkjun]

Mình thử chỉnh lại code theo cmt của bạn nhưng vẫn ra lỗi giống vậy, vẫn lỗi đoạn code cũ


Cho mình note thêm chút là dữ liệu thực của mình dài hơn khá nhiều so với dữ liệu mình gửi lên nên ko biết có ảnh hưởng gì ko

Bài đã được tự động gộp: 15/8/19

Dear Snow25,

Mình thử lại nhưng vẫn bị lỗi đoạn code cũ

 

[snow25]

Mình thử chỉnh lại code theo cmt của bạn nhưng vẫn ra lỗi giống vậy, vẫn lỗi đoạn code cũ
View attachment 222830

Cho mình note thêm chút là dữ liệu thực của mình dài hơn khá nhiều so với dữ liệu mình gửi lên nên ko biết có ảnh hưởng gì ko

Bài đã được tự động gộp: 15/8/19

Dear Snow25,

Mình thử lại nhưng vẫn bị lỗi đoạn code cũ
View attachment 222835

Bạn gửi file lên nhé.

 

[Ba Tê]

Mình thử chỉnh lại code theo cmt của bạn nhưng vẫn ra lỗi giống vậy, vẫn lỗi đoạn code cũ
View attachment 222830

Cho mình note thêm chút là dữ liệu thực của mình dài hơn khá nhiều so với dữ liệu mình gửi lên nên ko biết có ảnh hưởng gì ko

Bài đã được tự động gộp: 15/8/19

Dear Snow25,

Mình thử lại nhưng vẫn bị lỗi đoạn code cũ
View attachment 222835

Thường thì nếu bị lỗi thì phải gởi file có code lỗi lên mới biết lý do lỗi.
Ai biết file thật của bạn thế nào so với code.
Thử với file này xem sao, File của bài #1 bên trên.

 

[parkjun]

Hi Snow25,

Mình gửi lại file mình đang làm nhé

Cảm ơn bạn.

Bài đã được tự động gộp: 15/8/19

Mình gửi lại file ở comment trên rồi nhé

 

[snow25]

Hi Snow25,

Mình gửi lại file mình đang làm nhé

Cảm ơn bạn.

Bài đã được tự động gộp: 15/8/19

Mình gửi lại file ở comment trên rồi nhé

Bạn điền dữ liệu vào sheets Original Data rồi chạy nhé.Mình có thấy lỗi đâu.

 

[FatBear]

Bạn điền dữ liệu vào sheets Original Data rồi chạy nhé.Mình có thấy lỗi đâu.

Từ team4 trở xuống kết quả không đúng bạn ơi

 

[parkjun]

Đúng là không bị lỗi nhưng mà hiện nó chỉ tổng hợp được kết quả từ team 1 đến team 3, còn các team 4 trở đi không có kết quả.

 

[snow25]

Từ team4 trở xuống kết quả không đúng bạn ơi

Dữ liệu của bạn linh tinh lúc 4 lúc 5 nên nó bị vậy.Mà có chỗ còn không có dữ liệu.

 

[FatBear]

Dữ liệu của bạn linh tinh lúc 4 lúc 5 nên nó bị vậy.Mà có chỗ còn không có dữ liệu.

mình không phải chủ thớt ) hehe

 

[parkjun]

Dữ liệu của bạn linh tinh lúc 4 lúc 5 nên nó bị vậy.Mà có chỗ còn không có dữ liệu.

Dear Snow25,

Mình đã thử lại file mà bạn gửi lại, phần kết quả đúng là chỉ đến Team 3, còn từ Team 4 trở đi không thấy có kết quả. Mình check thì thấy data phần Team 4, Team 5...vẫn giống với team 1,2,3. Nhờ bạn kiểm tra giúp mình nhé. Cảm ơn bạn.