Nhờ ACE giúp về copy data theo số lượng. (2 người xem)

[nguyenngockid]

Mọi người ơi, giúp mình với, mình có vấn đề như thế này. Chả là mình có một file danh sách các sản phẩm! Gồm mã hàng, tên hàng và số lượng. Mình muốn là nếu mã hàng đó có 1 sản phẩm thì thôi, nhưng nếu nó có từ 2 sản phẩm trở lên thì mình muốn nó tự copy thành một dòng nữa giống y như dòng đầu.
Nghĩa là trong danh sách đầu có 3 mã hàng, mã thứ nhất số lượng 1, mã số 2 số lượng 5, mã thứ 3 số lượng 2. Như vậy khi sang một sheet mới nó sẽ chỉ còn hai cột, bỏ cột sô lượng đi. và trong sheet 2 mã hàng thứ nhất có 1 dòng, xong đến mã hàng thứ hai có 5 dòng và mã hàng thứ 3 có 2 dòng. Mọi người giúp mình với. Cái này để mình làm mã vạch sản phầm đó mà. Hay nếu ai có phần mềm làm mã vạch cho phép chỉnh sửa theo khổ giấy và cho phép in theo số lượng thì cho mình xin với! Hic, nhiều quá làm ngán ghê! Thanks mọi người nhiêu.!

 

[concogia]

Mọi người ơi, giúp mình với, mình có vấn đề như thế này. Chả là mình có một file danh sách các sản phẩm! Gồm mã hàng, tên hàng và số lượng. Mình muốn là nếu mã hàng đó có 1 sản phẩm thì thôi, nhưng nếu nó có từ 2 sản phẩm trở lên thì mình muốn nó tự copy thành một dòng nữa giống y như dòng đầu.
Nghĩa là trong danh sách đầu có 3 mã hàng, mã thứ nhất số lượng 1, mã số 2 số lượng 5, mã thứ 3 số lượng 2. Như vậy khi sang một sheet mới nó sẽ chỉ còn hai cột, bỏ cột sô lượng đi. và trong sheet 2 mã hàng thứ nhất có 1 dòng, xong đến mã hàng thứ hai có 5 dòng và mã hàng thứ 3 có 2 dòng. Mọi người giúp mình với. Cái này để mình làm mã vạch sản phầm đó mà. Hay nếu ai có phần mềm làm mã vạch cho phép chỉnh sửa theo khổ giấy và cho phép in theo số lượng thì cho mình xin với! Hic, nhiều quá làm ngán ghê! Thanks mọi người nhiêu.!

Hình như là thế này
Bài này có yêu cầu cũng ngồ ngộ
Thân

 

[TrungChinhs]

Hình như là thế này
Bài này có yêu cầu cũng ngồ ngộ
Thân

Tôi xin góp vui củ chuối này với file của concogia

Sub Macro1()
    With [e8:g10000]
        .Clear
        For Each cls In [a8:a10000].SpecialCells(2)
            [e65000].End(3)(2).Resize(cls(1, 3), 2) = "=r" & cls.Row & "c[-4]"
        Next
        .Value = .Value
    End With
End Sub

 

[bebo021999]

Mọi người ơi, giúp mình với, mình có vấn đề như thế này. Chả là mình có một file danh sách các sản phẩm! Gồm mã hàng, tên hàng và số lượng. Mình muốn là nếu mã hàng đó có 1 sản phẩm thì thôi, nhưng nếu nó có từ 2 sản phẩm trở lên thì mình muốn nó tự copy thành một dòng nữa giống y như dòng đầu.
Nghĩa là trong danh sách đầu có 3 mã hàng, mã thứ nhất số lượng 1, mã số 2 số lượng 5, mã thứ 3 số lượng 2. Như vậy khi sang một sheet mới nó sẽ chỉ còn hai cột, bỏ cột sô lượng đi. và trong sheet 2 mã hàng thứ nhất có 1 dòng, xong đến mã hàng thứ hai có 5 dòng và mã hàng thứ 3 có 2 dòng. Mọi người giúp mình với. Cái này để mình làm mã vạch sản phầm đó mà. Hay nếu ai có phần mềm làm mã vạch cho phép chỉnh sửa theo khổ giấy và cho phép in theo số lượng thì cho mình xin với! Hic, nhiều quá làm ngán ghê! Thanks mọi người nhiêu.!

Mình làm file này dùng hàm; bạn tìm trong đường dẫn này nhé, bài số #5
http://www.giaiphapexcel.com/forum/showthread.php?47533-Hướng-dẫn-Lập-Công-Thức-Tách-Dòng