Giúp em tách dữ liệu thành nhiều sheets theo điều kiện (1 người xem)

[nvtnet]

Em có 1 sheets dữ liệu, em muốn lọc và tách dữ liệu từ sheet này vào các sheets đã có mẫu sẵn. mong được mọi người giúp đỡ ạ.

 

[phulien1902]

Em có 1 sheets dữ liệu, em muốn lọc và tách dữ liệu từ sheet này vào các sheets đã có mẫu sẵn. mong được mọi người giúp đỡ ạ.

Theo yêu cầu của bạn, code cho loc dữ liệu Sheets("SONG"):

  Dim a(), b(), i&, k%, LR, j%
    With Sheets("DL")
        a = .Range("B2", .Range("B65000").End(3)).Resize(, 11).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 11)
    With Sheets("DL")
        For i = 1 To LR
            If a(i, 3) <> Empty And a(i, 11) = "s" & ChrW(7889) & "ng" Then
                k = k + 1: b(k, 1) = k
                b(k, 2) = a(i, 1): b(k, 3) = a(i, 2): b(k, 4) = a(i, 3): b(k, 10) = a(i, 9)
                b(k, 11) = a(i, 10)
            End If
        Next i
        Sheets("SONG").Range("A12:K140").ClearContents
        If k Then
            With Sheets("SONG")
                .Range("A12").Resize(k, 11) = b
                .Rows(k + 12 & ":140").Hidden = True
            End With
        End If
    End With

 

[nvtnet]

cái này là tạo nút lệnh, hay copy trực tiếp vào VBA của sheets "song" vậy bác

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

Theo yêu cầu của bạn, code cho loc dữ liệu Sheets("SONG"):

  Dim a(), b(), i&, k%, LR, j%
    With Sheets("DL")
        a = .Range("B2", .Range("B65000").End(3)).Resize(, 11).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 11)
    With Sheets("DL")
        For i = 1 To LR
            If a(i, 3) <> Empty And a(i, 11) = "s" & ChrW(7889) & "ng" Then
                k = k + 1: b(k, 1) = k
                b(k, 2) = a(i, 1): b(k, 3) = a(i, 2): b(k, 4) = a(i, 3): b(k, 10) = a(i, 9)
                b(k, 11) = a(i, 10)
            End If
        Next i
        Sheets("SONG").Range("A12:K140").ClearContents
        If k Then
            With Sheets("SONG")
                .Range("A12").Resize(k, 11) = b
                .Rows(k + 12 & ":140").Hidden = True
            End With
        End If
    End With

nếu được bác làm trên file cả các sheets còn lại, rồi cho em xin đc không ạ. em tưởng đơn giản, chứ thế này chắc em không vận dụng được híc. cảm ơn bác nhiều ạ

 

[nvtnet]

Giúp em với ạ

 

[BuiQuangThuan]

Giúp em với ạ

Bạn chưa biết sử dụng vba à. Copy đoạn code trên vào 1 module. Sau đó chạy module đó là được

 

[nvtnet]

Bạn chưa biết sử dụng vba à. Copy đoạn code trên vào 1 module. Sau đó chạy module đó là được

mình làm rồi nhưng không được

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

khi chạy nó không hiện tên module , bảng module trống không

 

[BuiQuangThuan]

mình làm rồi nhưng không được

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

khi chạy nó không hiện tên module , bảng module trống không

Thử copy sub này chay coi

Sub ABC ()
  Dim a(), b(), i&, k%, LR, j%
    With Sheets("DL")
        a = .Range("B2", .Range("B65000").End(3)).Resize(, 11).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 11)
    With Sheets("DL")
        For i = 1 To LR
            If a(i, 3) <> Empty And a(i, 11) = "s" & ChrW(7889) & "ng" Then
                k = k + 1: b(k, 1) = k
                b(k, 2) = a(i, 1): b(k, 3) = a(i, 2): b(k, 4) = a(i, 3): b(k, 10) = a(i, 9)
                b(k, 11) = a(i, 10)
            End If
        Next i
        Sheets("SONG").Range("A12:K140").ClearContents
        If k Then
            With Sheets("SONG")
                .Range("A12").Resize(k, 11) = b
                .Rows(k + 12 & ":140").Hidden = True
            End With
        End If
    End With
End sub

 

[syquyen1987]

Giúp em với ạ

 

[BuiQuangThuan]

.

 

[nvtnet]

cảm ơn các bác, em làm được rồi ạ, mới quen VBA nên còn hơi kém.

 

[nvtnet]

@syquyen1987
bác có thể chỉnh để ẩn đi các dòng mà số lượng bằng 0 ở các sheets con được không ạ

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

Bạn đang muốn nhờ ai thế. Nhờ thớt hay 1 trong những người trong này vậy

Em mới quen VBA nên không hiểu lắm, nên lúc đầu chưa biết là tạo nút lệnh để nhập code, em cứ đi tạo module nên nó không chạy.
có điều code này lọc bị thiếu trường, vi dụ đồ sống có 15 mã chẳng hạn thì nó chỉ lọc đc 13 mã

 

[be_09]

Em có 1 sheets dữ liệu, em muốn lọc và tách dữ liệu từ sheet này vào các sheets đã có mẫu sẵn. mong được mọi người giúp đỡ ạ.

Thử cách khác tách sheet 1 lần.

 

[nvtnet]

Thử cách khác tách sheet 1 lần.

dạ cảm ơn bác ạ, mấy hôm rồi làm được rồi nên em lại không vào lại. em xin file bác để học hỏi thêm. cảm ơn tất cả các bác giúp đỡ ạ

 

[leanh.royal]

em cũng muốn tách theo tên khách hàng mà làm theo mãi không được, ai giúp em với ạ

 

[Hoàng Tuấn 868]

e cũng muốn tách theo tên khách hàng mà làm theo mãi k được, ai giúp e vs ạ

Nếu sửa lại các từ viết tắt và gửi file đính kèm thì sẽ có thành viên giúp bạn.

 

[leanh.royal]

Nếu sửa lại các từ viết tắt và gửi file đính kèm thì sẽ có thành viên giúp bạn.

em có file đính kèm đó ạ, ai làm mẫu giúp e được không

 

[VetMini]

Nếu sửa lại các từ viết tắt và gửi file đính kèm thì sẽ có thành viên giúp bạn.

Nước đổ lá môn

 

[Hoàng Tuấn 868]

e có file đính kèm đó ạ, ai làm mẫu giúp e đc k

Bạn chưa sửa các từ viết tắt "e, đc, vs, k"

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

em có file đính kèm đó ạ, ai làm mẫu giúp e được không

Trong file của bạn đâu là dữ liệu gốc, đâu là kết quả mong muốn nhỉ?

 

[leanh.royal]

Bạn chưa sửa các từ viết tắt "e, đc, vs, k"

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

Trong file của bạn đâu là dữ liệu gốc, đâu là kết quả mong muốn nhỉ?

dữ liệu mình nhập 1 số hàng làm mẫu, còn kết quả là mình muốn tách thành nhiều file con mỗi file là 1 khách hàng khác nhau

 

[Hoàng Tuấn 868]

dữ liệu mình nhập 1 số hàng làm mẫu, còn kết quả là mình muốn tách thành nhiều file con mỗi file là 1 khách hàng khác nhau

Chủ đề của bài này là: "Giúp em tách dữ liệu thành nhiều sheets theo điều kiện".
Vậy bạn phải lập một chủ đề mới vào box: "Lập trình", nếu không sẽ vi phạm nội quy diễn đàn bạn nhé.