Chuẩn hóa dữ liệu

Liên hệ QC
F

fun.tiger

Thành viên mới
Tham gia
1/1/08
Bài viết
13
Được thích
2
Chào các anh chị
Em có một file excel đổ ra từ hệ thống như trong sheet 1 . Em nhìn nó mà ngao ngán vì không làm gì khác được . Các anh chị vui lòng giúp em cách để đổ ra file theo định dạng của sheet2 với ạ . Em rất chân thành cảm ơn ạ
 

File đính kèm

  • Chuẩn hóa dữ liệu.xlsx
    3.5 MB · Đọc: 33
Ngao ngán?
Lúc xin việc bạn nói gì với bên phỏng vấn?

Không biết làm thì từ từ bước một, cứ bí thì hỏi, chứ ngao với ngán là thái độ của kẻ ỷ lại.

Gợi ý:
1. chép tiêu đề ở sheet1 ra thành môt bảng, tạm gọi là LOC.
2. Sửa LOC lại theo đúng thứ tự ở sheet2, những cột không cần thì xóa đi, những cột cần thêm thì tạm gác đó, gọi chúng là các cột còn thiếu.
3. Dùng Advanced Filter dữ liệu chính ở Sheet1, dựa vào LOC để đưa qua Sheet2.
4. Thêm các cột còn thiếu vào, viết công thức nếu cần.
 
Lần chỉnh sửa cuối:
VetMini đã viết:
Ngao ngán?
Lúc xin việc bạn nói gì với bên phỏng vấn?

Không biết làm thì từ từ bước một, cứ bí thì hỏi, chứ ngao với ngán là thái độ của kẻ ỷ lại.

Gợi ý:
1. chép tiêu đề ở sheet1 ra thành môt bảng, tạm gọi là LOC.
2. Sửa LOC lại theo đúng thứ tự ở sheet2, những cột không cần thì xóa đi, những cột cần thêm thì tạm gác đó, gọi chúng là các cột còn thiếu.
3. Dùng Advanced Filter dữ liệu chính ở Sheet1, dựa vào LOC để đưa qua Sheet2.
4. Thêm các cột còn thiếu vào, viết công thức nếu cần.
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn nhiều . Mình ngao ngán vì làm mãi không được nên mới hỏi chứ không dám ỷ lại bao giờ . Excel mình không rành . Trước đây mình toàn copy từng dữ liệu
Bài đã được tự động gộp:

VetMini đã viết:
Ngao ngán?
Lúc xin việc bạn nói gì với bên phỏng vấn?

Không biết làm thì từ từ bước một, cứ bí thì hỏi, chứ ngao với ngán là thái độ của kẻ ỷ lại.

Gợi ý:
1. chép tiêu đề ở sheet1 ra thành môt bảng, tạm gọi là LOC.
2. Sửa LOC lại theo đúng thứ tự ở sheet2, những cột không cần thì xóa đi, những cột cần thêm thì tạm gác đó, gọi chúng là các cột còn thiếu.
3. Dùng Advanced Filter dữ liệu chính ở Sheet1, dựa vào LOC để đưa qua Sheet2.
4. Thêm các cột còn thiếu vào, viết công thức nếu cần.
Nhấp chuột vào đây để mở rộng...
Mình vẫn làm không được bạn à
 
Lần chỉnh sửa cuối:
fun.tiger đã viết:
Chào các anh chị
Em có một file excel đổ ra từ hệ thống như trong sheet 1 . Em nhìn nó mà ngao ngán vì không làm gì khác được . Các anh chị vui lòng giúp em cách để đổ ra file theo định dạng của sheet2 với ạ . Em rất chân thành cảm ơn ạ
Nhấp chuột vào đây để mở rộng...
Hên sui bạn thử code.Mà bạn xem kiểu xuất dữ liệu không bị gộp ô có vẻ ổn hơn.Vì phần mềm nó có nhiều kiểu xuất dữ liệu.
Mã: 
Sub vietcodemotlan()
    Dim i As Long, lr As Long, arr, kq, a As Long, makho As String
    With Sheets("sheet")
         lr = .Range("C" & Rows.Count).End(xlUp).Row
         arr = .Range("A16:AJ" & lr).Value
         ReDim kq(1 To UBound(arr), 1 To 9)
         makho = .Range("o1").Value
         For i = 1 To UBound(arr)
             If Len(arr(i, 1)) > 0 And Len(arr(i, 3)) > 0 Then
                a = a + 1
                kq(a, 1) = makho
                kq(a, 2) = arr(i, 1)
                kq(a, 3) = arr(i, 3)
                kq(a, 5) = arr(i, 25)
                kq(a, 7) = arr(i, 32)
                kq(a, 8) = arr(i, 34)
                kq(a, 9) = arr(i, 36)
             ElseIf Len(arr(i, 3)) Then
                kq(a, 4) = arr(i, 3)
                kq(a, 7) = arr(i, 25)
             End If
         Next i
    End With
    With Sheets("sheet2")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        If lr > 4 Then .Range("A5:I" & lr).ClearContents
        .Range("A5:I5").Resize(a).Value = kq
    End With
End Sub
 
snow25 đã viết:
Hên sui bạn thử code.Mà bạn xem kiểu xuất dữ liệu không bị gộp ô có vẻ ổn hơn.Vì phần mềm nó có nhiều kiểu xuất dữ liệu.
Mã: 
Sub vietcodemotlan()
    Dim i As Long, lr As Long, arr, kq, a As Long, makho As String
    With Sheets("sheet")
         lr = .Range("C" & Rows.Count).End(xlUp).Row
         arr = .Range("A16:AJ" & lr).Value
         ReDim kq(1 To UBound(arr), 1 To 9)
         makho = .Range("o1").Value
         For i = 1 To UBound(arr)
             If Len(arr(i, 1)) > 0 And Len(arr(i, 3)) > 0 Then
                a = a + 1
                kq(a, 1) = makho
                kq(a, 2) = arr(i, 1)
                kq(a, 3) = arr(i, 3)
                kq(a, 5) = arr(i, 25)
                kq(a, 7) = arr(i, 32)
                kq(a, 8) = arr(i, 34)
                kq(a, 9) = arr(i, 36)
             ElseIf Len(arr(i, 3)) Then
                kq(a, 4) = arr(i, 3)
                kq(a, 7) = arr(i, 25)
             End If
         Next i
    End With
    With Sheets("sheet2")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        If lr > 4 Then .Range("A5:I" & lr).ClearContents
        .Range("A5:I5").Resize(a).Value = kq
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Xin cảm ơn bạn nhiều . Trong dữ liệu đó có rất nhiều Mã kho . Mình làm sao để cho nó hiện theo luôn được không ạ
Bài đã được tự động gộp:

snow25 đã viết:
Hên sui bạn thử code.Mà bạn xem kiểu xuất dữ liệu không bị gộp ô có vẻ ổn hơn.Vì phần mềm nó có nhiều kiểu xuất dữ liệu.
Mã: 
Sub vietcodemotlan()
    Dim i As Long, lr As Long, arr, kq, a As Long, makho As String
    With Sheets("sheet")
         lr = .Range("C" & Rows.Count).End(xlUp).Row
         arr = .Range("A16:AJ" & lr).Value
         ReDim kq(1 To UBound(arr), 1 To 9)
         makho = .Range("o1").Value
         For i = 1 To UBound(arr)
             If Len(arr(i, 1)) > 0 And Len(arr(i, 3)) > 0 Then
                a = a + 1
                kq(a, 1) = makho
                kq(a, 2) = arr(i, 1)
                kq(a, 3) = arr(i, 3)
                kq(a, 5) = arr(i, 25)
                kq(a, 7) = arr(i, 32)
                kq(a, 8) = arr(i, 34)
                kq(a, 9) = arr(i, 36)
             ElseIf Len(arr(i, 3)) Then
                kq(a, 4) = arr(i, 3)
                kq(a, 7) = arr(i, 25)
             End If
         Next i
    End With
    With Sheets("sheet2")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        If lr > 4 Then .Range("A5:I" & lr).ClearContents
        .Range("A5:I5").Resize(a).Value = kq
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Và mình muốn học VBA thì bắt đầu từ đâu ạ . Mình không biết tý gì về cái này . Mình muốn đi học để không làm phiền mọi người và nếu có thể thì giúp các bạn khác
 
fun.tiger đã viết:
Xin cảm ơn bạn nhiều . Trong dữ liệu đó có rất nhiều Mã kho . Mình làm sao để cho nó hiện theo luôn được không ạ
Bài đã được tự động gộp:


Và mình muốn học VBA thì bắt đầu từ đâu ạ . Mình không biết tý gì về cái này . Mình muốn đi học để không làm phiền mọi người và nếu có thể thì giúp các bạn khác
Nhấp chuột vào đây để mở rộng...
Rất nhiều mã kho nó nằm ở đâu.Bạn phải nói rõ chứ.Còn nếu học thì bạn có thể vào youtube xem kênh Tin học phong an của mình có video hướng dẫn nhé.
 
snow25 đã viết:
Rất nhiều mã kho nó nằm ở đâu.Bạn phải nói rõ chứ.Còn nếu học thì bạn có thể vào youtube xem kênh Tin học phong an của mình có video hướng dẫn nhé.
Nhấp chuột vào đây để mở rộng...
Dạ nó cứ tới chữ "Giám sát ; Người phụ kiểm kê " là nó qua một kho mới . Nhưng cái này họ không thể hiện trên file nên khó lấy cơ sở làm dữ liệu đặt điều kiện . Với lại em cho chạy thì thiếu cột đơn vị và cột quy cách 2 nhảy qua cột đơn vị ạ
Em đang xem nảy giờ thầy ạ . Do em không biết tý gì về VBA nên chưa hiểu . Em sẽ xem từ từ ạ . Cảm ơn thầy nhiều
Bài đã được tự động gộp:

fun.tiger đã viết:
Xin cảm ơn bạn nhiều . Trong dữ liệu đó có rất nhiều Mã kho . Mình làm sao để cho nó hiện theo luôn được không ạ
Bài đã được tự động gộp:


Và mình muốn học VBA thì bắt đầu từ đâu ạ . Mình không biết tý gì về cái này . Mình muốn đi học để không làm phiền mọi người và nếu có thể thì giúp các bạn khác
Nhấp chuột vào đây để mở rộng...
Dạ phần mềm này nó chỉ cho xuất được file PDF và File excel chỉ có vậy thôi thầy ạ
 
fun.tiger đã viết:
Dạ nó cứ tới chữ "Giám sát ; Người phụ kiểm kê " là nó qua một kho mới . Nhưng cái này họ không thể hiện trên file nên khó lấy cơ sở làm dữ liệu đặt điều kiện . Với lại em cho chạy thì thiếu cột đơn vị và cột quy cách 2 nhảy qua cột đơn vị ạ
Em đang xem nảy giờ thầy ạ . Do em không biết tý gì về VBA nên chưa hiểu . Em sẽ xem từ từ ạ . Cảm ơn thầy nhiều
Bài đã được tự động gộp:


Dạ phần mềm này nó chỉ cho xuất được file PDF và File excel chỉ có vậy thôi thầy ạ
Nhấp chuột vào đây để mở rộng...
Vậy không có Kho thì lấy kiểu gì.Sửa 1 chút code lấy sai cột.
Mã: 
Sub vietcodemotlan()
    Dim i As Long, lr As Long, arr, kq, a As Long, makho As String
    With Sheets("sheet")
         lr = .Range("C" & Rows.Count).End(xlUp).Row
         arr = .Range("A16:AJ" & lr).Value
         ReDim kq(1 To UBound(arr), 1 To 9)
         makho = .Range("o1").Value
         For i = 1 To UBound(arr)
             If Len(arr(i, 1)) > 0 And Len(arr(i, 3)) > 0 Then
                a = a + 1
                kq(a, 1) = makho
                kq(a, 2) = arr(i, 1)
                kq(a, 3) = arr(i, 3)
                kq(a, 5) = arr(i, 25)
                kq(a, 7) = arr(i, 31)
                kq(a, 8) = arr(i, 33)
                kq(a, 9) = arr(i, 36)
             ElseIf Len(arr(i, 3)) Then
                kq(a, 4) = arr(i, 3)
                kq(a, 6) = arr(i, 25)
             End If
         Next i
    End With
    With Sheets("sheet2")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        If lr > 4 Then .Range("A5:I" & lr).ClearContents
        .Range("A5:I5").Resize(a).Value = kq
    End With
End Sub
 
snow25 đã viết:
Vậy không có Kho thì lấy kiểu gì.Sửa 1 chút code lấy sai cột.
Mã: 
Sub vietcodemotlan()
    Dim i As Long, lr As Long, arr, kq, a As Long, makho As String
    With Sheets("sheet")
         lr = .Range("C" & Rows.Count).End(xlUp).Row
         arr = .Range("A16:AJ" & lr).Value
         ReDim kq(1 To UBound(arr), 1 To 9)
         makho = .Range("o1").Value
         For i = 1 To UBound(arr)
             If Len(arr(i, 1)) > 0 And Len(arr(i, 3)) > 0 Then
                a = a + 1
                kq(a, 1) = makho
                kq(a, 2) = arr(i, 1)
                kq(a, 3) = arr(i, 3)
                kq(a, 5) = arr(i, 25)
                kq(a, 7) = arr(i, 31)
                kq(a, 8) = arr(i, 33)
                kq(a, 9) = arr(i, 36)
             ElseIf Len(arr(i, 3)) Then
                kq(a, 4) = arr(i, 3)
                kq(a, 6) = arr(i, 25)
             End If
         Next i
    End With
    With Sheets("sheet2")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        If lr > 4 Then .Range("A5:I" & lr).ClearContents
        .Range("A5:I5").Resize(a).Value = kq
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Dạ em cảm ơn Thầy nhiều ạ . Tuyệt vời rồi Thầy ơi . Em không có dùng MOMO vài hôm nữa em dùng em xin gửi thầy ít uống cà phê xem như là đa tạ ạ
 
fun.tiger đã viết:
Cảm ơn bạn nhiều . Mình ngao ngán vì làm mãi không được nên mới hỏi chứ không dám ỷ lại bao giờ . Excel mình không rành . Trước đây mình toàn copy từng dữ liệu
...
Nhấp chuột vào đây để mở rộng...
Bạn là thành viên 15 năm rồi. Bây giờ bạn bảo Excel mình không rành?
15 năm qua bạn chỉ làm công việc copy từng dữ liệu? Rồi bất thình lình, sếp bạn thảy cho một cái ổ kiến lửa?

fun.tiger đã viết:
...
Mình vẫn làm không được bạn à
Nhấp chuột vào đây để mở rộng...
"vẫn làm không được" đối với tôi không có một ý nghĩa gì cả.
Lúc chỉ dẫn, tôi cẩn thận đánh số từng bước một. Bạn cần cho biết kẹt ở bước nào? Ngay từ bước 1?

fun.tiger đã viết:
...
Và mình muốn học VBA thì bắt đầu từ đâu ạ . Mình không biết tý gì về cái này . Mình muốn đi học để không làm phiền mọi người và nếu có thể thì giúp các bạn khác
Nhấp chuột vào đây để mở rộng...
15 năm bạn không chịu làm. Bây giờ mới chấp nhận là mình cần học?

Code ở diễn đàn này vốn viết để thi đua tốc độ chứ không có chút nào về chỉ dẫn. Rất khó học.
Muốn học thì phải chịu khó tìm những bài người ta bàn về code.
 
snow25 đã viết:
Hên sui bạn thử code.Mà bạn xem kiểu xuất dữ liệu không bị gộp ô có vẻ ổn hơn.Vì phần mềm nó có nhiều kiểu xuất dữ liệu.
Mã: 
Sub vietcodemotlan()
    Dim i As Long, lr As Long, arr, kq, a As Long, makho As String
    With Sheets("sheet")
         lr = .Range("C" & Rows.Count).End(xlUp).Row
         arr = .Range("A16:AJ" & lr).Value
         ReDim kq(1 To UBound(arr), 1 To 9)
         makho = .Range("o1").Value
         For i = 1 To UBound(arr)
             If Len(arr(i, 1)) > 0 And Len(arr(i, 3)) > 0 Then
                a = a + 1
                kq(a, 1) = makho
                kq(a, 2) = arr(i, 1)
                kq(a, 3) = arr(i, 3)
                kq(a, 5) = arr(i, 25)
                kq(a, 7) = arr(i, 32)
                kq(a, 8) = arr(i, 34)
                kq(a, 9) = arr(i, 36)
             ElseIf Len(arr(i, 3)) Then
                kq(a, 4) = arr(i, 3)
                kq(a, 7) = arr(i, 25)
             End If
         Next i
    End With
    With Sheets("sheet2")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        If lr > 4 Then .Range("A5:I" & lr).ClearContents
        .Range("A5:I5").Resize(a).Value = kq
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Bài đã được tự động gộp:

snow25 đã viết:
Vậy không có Kho thì lấy kiểu gì.Sửa 1 chút code lấy sai cột.
Mã: 
Sub vietcodemotlan()
    Dim i As Long, lr As Long, arr, kq, a As Long, makho As String
    With Sheets("sheet")
         lr = .Range("C" & Rows.Count).End(xlUp).Row
         arr = .Range("A16:AJ" & lr).Value
         ReDim kq(1 To UBound(arr), 1 To 9)
         makho = .Range("o1").Value
         For i = 1 To UBound(arr)
             If Len(arr(i, 1)) > 0 And Len(arr(i, 3)) > 0 Then
                a = a + 1
                kq(a, 1) = makho
                kq(a, 2) = arr(i, 1)
                kq(a, 3) = arr(i, 3)
                kq(a, 5) = arr(i, 25)
                kq(a, 7) = arr(i, 31)
                kq(a, 8) = arr(i, 33)
                kq(a, 9) = arr(i, 36)
             ElseIf Len(arr(i, 3)) Then
                kq(a, 4) = arr(i, 3)
                kq(a, 6) = arr(i, 25)
             End If
         Next i
    End With
    With Sheets("sheet2")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        If lr > 4 Then .Range("A5:I" & lr).ClearContents
        .Range("A5:I5").Resize(a).Value = kq
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Thầy có thể hướng dẫn giúp em làm một nút INPUT gán Macro này vào để sau này có thể sử dụng cho các file mới được không ạ . Em xin cảm ơn ạ
Bài đã được tự động gộp:

VetMini đã viết:
Bạn là thành viên 15 năm rồi. Bây giờ bạn bảo Excel mình không rành?
15 năm qua bạn chỉ làm công việc copy từng dữ liệu? Rồi bất thình lình, sếp bạn thảy cho một cái ổ kiến lửa?


"vẫn làm không được" đối với tôi không có một ý nghĩa gì cả.
Lúc chỉ dẫn, tôi cẩn thận đánh số từng bước một. Bạn cần cho biết kẹt ở bước nào? Ngay từ bước 1?


15 năm bạn không chịu làm. Bây giờ mới chấp nhận là mình cần học?

Code ở diễn đàn này vốn viết để thi đua tốc độ chứ không có chút nào về chỉ dẫn. Rất khó học.
Muốn học thì phải chịu khó tìm những bài người ta bàn về code.
Nhấp chuột vào đây để mở rộng...
Xin cảm ơn vì đã nhắc nhở ạ
 
fun.tiger đã viết:
Bài đã được tự động gộp:


Thầy có thể hướng dẫn giúp em làm một nút INPUT gán Macro này vào để sau này có thể sử dụng cho các file mới được không ạ . Em xin cảm ơn ạ
Bài đã được tự động gộp:


Xin cảm ơn vì đã nhắc nhở ạ
Nhấp chuột vào đây để mở rộng...
Bạn tìm hiểu cách tạo add in trong excel là được.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

changchang2525
bài tập excel 2024
Trả lời
2
Đọc
52
VetMini
V
GPE-Trợ Lý
Đà Nẵng - Đăng ký tham dự sinh nhật GIAIPHAPEXCEL lần thứ 18 ngày 05/10/2024
    • Thích
    • Yêu thích
2
Trả lời
21
Đọc
620
nguyenhuong
nguyenhuong
D
NHỜ ANH CHỊ EM GIÚP MÌNH LỌC TRÙNG
Trả lời
7
Đọc
269
dovansangnh
D
hieuha240
Bác nào mở giùm em file này nó lỗi hàm nội suy sao với ạ.
Trả lời
1
Đọc
53
CHAOQUAY
C
Q
Nhờ giúp đỡ xử lý cách cop dữ liệu từ 1 ô thành nhiều dòng
Trả lời
1
Đọc
45
bebo021999
B
HeSanbi
  • Question
Hàm FilterA và FilterV - Tận dụng bộ lọc AutoFilter và AdvancedFilter
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
47
Đọc
3K
Manhhung90
Manhhung90
N
Tạo, sử dụng Automation Add-in trong Excel bằng Visual C#
    • Thích
    • Yêu thích
Trả lời
3
Đọc
298
VetMini
V
N
hàm trả về tuần trong 1 tháng
Trả lời
18
Đọc
20K
Nguyễn Xoan 1985
N
gwennadf
Investigating Excel's Capabilities for Data Analytics
Trả lời
0
Đọc
32
gwennadf
gwennadf
echo07
Thay đổi định dạng của Slicer hoặc Timeline
Trả lời
5
Đọc
61
VetMini
V
Manhhung90
  • Question
Tạo lịch nhắc hẹn khi mở máy tính hoặc giờ định trước. Nhờ mọi người giúp ạ !!! Em cảm ơn!!
Trả lời
5
Đọc
142
Manhhung90
Manhhung90
Linh101023
Vấn đề với hàm round
Trả lời
15
Đọc
255
bebo021999
B
Maika8008
  • Đã giải quyết
[Chia sẻ] Dùng VBA trộn dữ liệu Excel sang file Word mẫu (tương tự chức năng Mail Merge)
    • Thích
    • Yêu thích
    • Cảm ơn
23 24 25
Trả lời
495
Đọc
43K
thanhnam20
T
T
Vẽ biểu đồ dạng Line trên cùng một biểu đồ
    • Buồn
Trả lời
2
Đọc
50
tnkhanhvy
T
T
Vẽ biểu đồ dạng Line trên cùng một biểu đồ
    • Không thích
Trả lời
0
Đọc
35
tnkhanhvy
T
D
Phân công và sắp xếp lịch trực
2
Trả lời
34
Đọc
832
dangg
D
Q
Hỏi về cách chèn 2 Link Trong 1 Ô
Trả lời
4
Đọc
11K
tukifa
tukifa
S
  • Question
chuyển dữ liệu và đổi dấu
Trả lời
8
Đọc
164
SBFC
S
Anhanhne
Tự động cập nhật dữ liệu từ sheet này sang sheet khác
    • Thích
Trả lời
3
Đọc
184
SA_DQ
SA_DQ
D
  • Question
Lỗi Runtime 445
    • Buồn
Trả lời
1
Đọc
50
SA_DQ
SA_DQ
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom