Giúp file tổng hợp và định dạng dữ liệu (1 người xem)

[babyheomoi]

Chào cả nhà, cơ quan e có file xuất ra dữ liệu của các thiết bị theo file excel, tuy nhiên dữ liệu hơi lộn xộn, mỗi lần định dạng lại làm thủ công hơi mất thời gian, nhưng em thử marco nhưng chưa được, vì dữ liệu thay đổi theo tháng!
Em nhờ mọi người hỗ trợ em:
1. Từ file dữ liệu xuất ra, xử lý thành dữ liệu ở sheet ("FINAL MAY")
2. Vì đây là dữ liệu tháng, nên e định sẽ mỗi file thế này sẽ đặt tên là 1 tháng (VD: T1.2018_POS) vào 1 sheet or 1 file, vậy em muốn sheet "TỔNG HỢP" sẽ làm tong hop luon du lieu cua các file từ tháng 1-12 của sheet "FINAL MAY" sau khi đã xử lý được ko ạ?
Em gửi file mọi người hỗ trợ!
Cám ơn mọi người trước!

 

[befaint]

1. Phần mềm xuất dữ liệu đó không có dạng xuất ra bảng chuẩn dạng liệt kê theo mã máy/ mã dịch vụ sao?
2. Thiết kế sẵn một file gồm 2 sheet: 1 sheet FINAL MAY và 1 sheet TONG HOP
Tiếp đó, phần code tổng hợp thì lấy dữ liệu từ file được xuất từ phần mềm.

 

[babyheomoi]

Phần mềm nó chỉ xuất ra data dạng như vậy, không có theo từng loại và không theo thứ tự nên mới khó

 

[be_09]

Phần mềm nó chỉ xuất ra data dạng như vậy, không có theo từng loại và không theo thứ tự nên mới khó

Bạn phải thêm khoảng 3 sheet có chứa dữ liệu từ phần mềm xuất ra để các thành viên nắm rõ quy luật mới giúp được.

 

[HieuCD]

Chào cả nhà, cơ quan e có file xuất ra dữ liệu của các thiết bị theo file excel, tuy nhiên dữ liệu hơi lộn xộn, mỗi lần định dạng lại làm thủ công hơi mất thời gian, nhưng em thử marco nhưng chưa được, vì dữ liệu thay đổi theo tháng!
Em nhờ mọi người hỗ trợ em:
1. Từ file dữ liệu xuất ra, xử lý thành dữ liệu ở sheet ("FINAL MAY")
2. Vì đây là dữ liệu tháng, nên e định sẽ mỗi file thế này sẽ đặt tên là 1 tháng (VD: T1.2018_POS) vào 1 sheet or 1 file, vậy em muốn sheet "TỔNG HỢP" sẽ làm tong hop luon du lieu cua các file từ tháng 1-12 của sheet "FINAL MAY" sau khi đã xử lý được ko ạ?
Em gửi file mọi người hỗ trợ!
Cám ơn mọi người trước!

Sheet TongHop thiết kế mỗi tháng 1 dòng không làm được vì có nhiều dịch vụ nên phải có nhiều dòng

Sub FinalMay()
  Dim dArr As Variant, Arr As Variant
  Dim i As Long, n As Long, k As Long, j As Integer
  With Sheets("Sheet1")
    dArr = .Range("A6:O" & .Range("B" & Rows.Count).End(xlUp).Row).Value
  End With
  ReDim Arr(1 To UBound(dArr) + 1, 1 To 18)
 
  For i = 1 To UBound(dArr)
    If Len(dArr(i, 3)) > 0 And Len(dArr(i, 4)) = 0 Then
      For n = i + 1 To UBound(dArr)
        If IsNumeric(dArr(n, 1)) Then
          k = k + 1
          Arr(k, 1) = k
          Arr(k, 2) = CStr(dArr(n, 1))
          Arr(k, 3) = CStr(dArr(i, 2))
          Arr(k, 4) = dArr(i, 3)
          For j = 2 To 15
            Arr(k, j + 3) = dArr(n, j)
          Next j
        Else
          Exit For
        End If
      Next n
      i = n
    End If
  Next i
  With Sheets("FINAL MAY")
    i = .Range("B" & Rows.Count).End(xlUp).Row
    If i > 3 Then .Range("A4:R" & i).ClearContents
    If k Then .Range("A4:R4").Resize(k) = Arr
  End With
End Sub

 

[babyheomoi]

Em cám ơn anh Hiếu, code anh chạy rất ok! Còn file Tổng Hợp em sẽ nghĩ cách khác!