Xin hổ trợ chia 1 sheet thanh nhiều sheet theo cột

[Thành Nh@n]

Chào cả nhà,

nhờ anh chị hổ trợ em cách chia dữ liệu từ 1 sheet thành nhiều sheet theo cột với.

em đã search google rồi, và chỉ thấy được các bài hướng dẫn theo dòng thôi.

mong anh chị chỉ giúp em. áp lực công việc quá ạ.

em có tạo file mẫu, mong nhận được sự giúp đỡ của anh chị

 

[snow25]

Chào cả nhà,

nhờ anh chị hổ trợ em cách chia dữ liệu từ 1 sheet thành nhiều sheet theo cột với.

em đã search google rồi, và chỉ thấy được các bài hướng dẫn theo dòng thôi.

mong anh chị chỉ giúp em. áp lực công việc quá ạ.

em có tạo file mẫu, mong nhận được sự giúp đỡ của anh chị

Bạn làm thế này áp lực là phải ít ra thì nó cũng phải chỉ ra các tiêu chí làm thế nào chứ.Ví dụ cụ thể.Nhìn vào cái file của bạn không biết bạn muốn cái gì luôn.

 

[Thành Nh@n]

Bạn làm thế này áp lực là phải ít ra thì nó cũng phải chỉ ra các tiêu chí làm thế nào chứ.Ví dụ cụ thể.Nhìn vào cái file của bạn không biết bạn muốn cái gì luôn.

Dạ chào anh, ý là em muốn tách đơn hàng theo từng cửa hàng ra từng sheet đó anh. Anh xem giúp nhé

 

[xuongrongdat]

Dạ chào anh, ý là em muốn tách đơn hàng theo từng cửa hàng ra từng sheet đó anh. Anh xem giúp nhé

Ý bạn là vầy hả?

 

[Thành Nh@n]

Ý bạn là vầy hả?
View attachment 279093

Dạ đúng rồi ạ. Mong nhận được sự giúp đỡ ạ

 

[HUONGHCKT]

Ý bạn là vầy hả?
View attachment 279093

Dạ đúng rồi ạ. Mong nhận được sự giúp đỡ ạ

Code được viết dựa trên sự phân tích gợi mở của bạn @xuongrongdat .
Xem file.

 

[Thành Nh@n]

Code được viết dựa trên sự phân tích gợi mở của bạn @xuongrongdat .
Xem file.

Dạ cám ơn anh/chị đã hổ trợ

 

[Thành Nh@n]

Code được viết dựa trên sự phân tích gợi mở của bạn @xuongrongdat .
Xem file.

Dạ anh/ chị ơi, có thể hổ trợ em thêm chút được không. Em cần thêm 1-2 cột vào trước các cột cửa hàng 1, cửa hàng 2... rồi mới tách sheet. Anh/ chị có thể giúp em hiệu chỉnh lại được không ạ. Hay anh chị hướng dẫn giúp em cách sửa code để chủ động trong công việc được không? Em cám ơn rất nhiều.

 

[HUONGHCKT]

Dạ anh/ chị ơi, có thể hổ trợ em thêm chút được không. Em cần thêm 1-2 cột vào trước các cột cửa hàng 1, cửa hàng 2... rồi mới tách sheet. Anh/ chị có thể giúp em hiệu chỉnh lại được không ạ. Hay anh chị hướng dẫn giúp em cách sửa code để chủ động trong công việc được không? Em cám ơn rất nhiều.

Bạn gửi file giả định lên đi. Chứ hướng dẫn hay code lại theo kiểu tù mù thì ....đa phần là phải làm đi làm lại do không đúng ý.

 

[Thành Nh@n]

Bạn gửi file giả định lên đi. Chứ hướng dẫn hay code lại theo kiểu tù mù thì ....đa phần là phải làm đi làm lại do không đúng ý.

Dạ em xin diễn giải lại thông tin cần hổ trợ.
Do số lượng cửa hàng, mặt hàng, và các thông tin chi tiết của đơn hàng bao gồm (STT, mã hàng, tên hàng, ...) không cố định.
Nên em xin anh chị hổ trợ giúp em code "tách 1 sheet thành nhiều sheet" sao khi em thay đổi số cột trong vùng màu vàng, vẫn ra được kết quả đúng ạ.
em cám ơn anh chị
trân trọng

 

[Thóc Sama]

Dạ em xin diễn giải lại thông tin cần hổ trợ.
Do số lượng cửa hàng, mặt hàng, và các thông tin chi tiết của đơn hàng bao gồm (STT, mã hàng, tên hàng, ...) không cố định.
Nên em xin anh chị hổ trợ giúp em code "tách 1 sheet thành nhiều sheet" sao khi em thay đổi số cột trong vùng màu vàng, vẫn ra được kết quả đúng ạ.
em cám ơn anh chị
trân trọng

View attachment 279321

Bạn ấn vào mũi tên xem kết quả đúng ý không?

Sub Tach_Sheet()
Dim Lr As Integer, a As Integer, b As Integer, j As Integer
Dim Arr(), Lc As Integer
Application.ScreenUpdating = False
With Sheet1
    Lr = .Range("B" & Rows.Count).End(xlUp).Row
    Lc = .Cells(2, .Columns.Count).End(xlToLeft).Column
    Arr = .Range(Cells(2, 2), Cells(Lr, Lc)).Value
    a = Lc - 6
    For b = 1 To a
        Sheets("sheet1").Copy after:=Sheets(Sheets.Count)
        ActiveSheet.Name = Arr(1, b + 5)
        For j = Lc - 1 To 6 Step -1
            If ActiveSheet.Name <> Arr(1, j) Then
                ActiveSheet.Range(Cells(2, j + 1), Cells(Lr, j + 1)).Delete
            End If
        Next j
    Next b
End With
Application.ScreenUpdating = True
End Sub

 

[HUONGHCKT]

Dạ em xin diễn giải lại thông tin cần hổ trợ.
Do số lượng cửa hàng, mặt hàng, và các thông tin chi tiết của đơn hàng bao gồm (STT, mã hàng, tên hàng, ...) không cố định.
Nên em xin anh chị hổ trợ giúp em code "tách 1 sheet thành nhiều sheet" sao khi em thay đổi số cột trong vùng màu vàng, vẫn ra được kết quả đúng ạ.
em cám ơn anh chị
trân trọng

View attachment 279321

Thế này chăng?Bạn thử file

 

[Thành Nh@n]

Dạ em cám ơn anh chị