Giúp viết dùm code để thu gọn 1 file

[longit_2006]

Hiện tui đang gặp vấn đề này các pác

có 2 file excel đính kèm các pác xem thử
================================
1 file chưa code thì nó chưa thu gọn ----> file nếu viết code thu gọn như mô tã

===========================================
các pác có code nào xem giup file tui thu gọn lại dùm chứ hàng tháng tui phải chỉnh bằng tay thì mệt lắm

==========
mục đích là gọp nhưng dòng lại và clear những gì ko cần thiết

cac bác xem 2 file đính kèm dùm trong đó 1 file chưa thu gọn và 1 file đã thu gọn

cám ơn các pác nhiều

 

[ndu96081631]

Hai file này có vẽ không giống nhau... Cái file after_code hình như dử liệu lại nhiều hơn file gốc thì phải ---> E rằng bạn phải giãi thích thêm ---> Nhìn vào đoán mệt quá

 

[longit_2006]

2 file đo ko giống nhau đúng rồi 1 file đã rút gọn còn 1 file là file gốc

affter_code : đã được rút gọn bạn thấy đó
============================
file chưa được rút gọn: có Pls Build Description, code: thì nó thể hiện 2 dòng nhưng thực chất là giống nhau

file rút gọn thì ko có từ này:



====================
thực chất 2 file này là một : chẳng qua file rút gọn xem row nào trùng nhau thì gọp thành 1 thôi
========= và theo mình biết thì chẳng qua là nó check tại chổ mặt hàng đó bạn
bạn thấy CUOC VCQT thực chắc là 2 dòng và dòng dưới thì rổng nhưng khi rút lại thì ko còn
nhưng mình ko biết thể hiện code thế nào bạn xem file rút gọn nó thể hiện ko khác gì file gốc

 

[ndu96081631]

2 file đo ko giống nhau đúng rồi 1 file đã rút gọn còn 1 file là file gốc

affter_code : đã được rút gọn bạn thấy đó
============================
file chưa được rút gọn: có Pls Build Description, code: thì nó thể hiện 2 dòng nhưng thực chất là giống nhau

file rút gọn thì ko có từ này:



====================
thực chất 2 file này là một : chẳng qua file rút gọn xem row nào trùng nhau thì gọp thành 1 thôi
nhưng mình ko biết thể hiện code thế nào bạn xem file rút gọn nó thể hiện ko khác gì file gốc

Do cách bạn diển giãi khó hiểu quá ---> Vậy theo bạn, nếu cột A có từ nào là Pls Build Description thì sẽ xóa dòng đó, đúng không
Vậy thì đây:

Sub Test()
  With Range([A11], [A65536].End(xlUp))
    .SpecialCells(2).EntireRow.Delete
  End With
End Sub

Xem file

 

[longit_2006]

quá good nhưng làm mất mã :măt hàng "rùi

 

[cadafi]

1 file chưa code thì nó chưa thu gọn ----> file nếu viết code thu gọn như mô tã
................mục đích là gọp nhưng dòng lại và clear những gì ko cần thiết

Bạn xem file đính kèm. Code củ chuối nhưng chạy cũng OK và cũng dể hiểu!
Sheet SourceCode, nhấn nút Process, sau đó qua Sheet After_Code xem kết quả!

Anh em giúp đỡ rút gọn code lại xíu nhé

Sub SapXepData()
Dim MaxSourceRow As Long, MaxNewRow As Long, i As Long
MaxSourceRow = Sheet1.[C65536].End(xlUp).Row
MaxNewRow = Sheet2.[B65536].End(xlUp).Row + 1
For i = 11 To MaxSourceRow
If Sheet1.Cells(i, 2) <> "" Then
Sheet1.Cells(i, 2).Resize(, 15).Copy Sheet2.Range("B" & MaxNewRow)
Sheet2.Range("A" & MaxNewRow) = Application.WorksheetFunction.Max(Sheet2.[A:A]) + 1
Sheet2.Range("K" & MaxNewRow) = Sheet1.Cells(i, 2).Offset(-1, 9)
MaxNewRow = Sheet2.[B65536].End(xlUp).Row + 1
End If
Next i
End Sub

 

[longit_2006]

Quá good :

Nhưng còn thiều điều kiện là
không có Pls Build Description (có) yêu cầu là không
mat hang: Không xóa mã ở đây bạn clear hết rồi
chắc tui nói bạn chưa hiểu hết ý
==================
bạn xem dòng gần đầu nó có mặt hàng không chịu thuê:
Nhưng nếu có thêm dòng những mặt hàngt thuế suất 10%
thì lúc đó đâu căn cứ vào điều kiện nào bạn

 

[cadafi]

Quá good :

Nhưng còn thiều điều kiện là
không có Pls Build Description
mat hang: Không xóa mã ở đây bạn clear hết rồi
chắc tui nói bạn chưa hiểu hết ý
==================
bạn xem dòng gần đầu nó có mặt hàng không chịu thuê:
Nhưng nếu có thêm dòng những mặt hàngt thuế suất 10%
thì lúc đó đâu căn cứ vào điều kiện nào bạn

1. Bạn nói rõ bạn đang xài code của ai?
2. Bạn đưa dữ liệu thật lên hết trên đây được không!? Vì như file đính kèm chỉ có mỗi trường hợp mặt hàng không chịu thuế!, còn dữ liệu khi mặt hàng có thuế suất 10%, 5% thì như thế nào? Đưa lên mỗi trường hợp một ít đi!

 

[longit_2006]

code của ndu96081631

a
Nhưng còn thiều điều kiện là
không có Pls Build Description
mat hang: Không xóa mã ở đây bạn clear hết rồi
chắc tui nói bạn chưa hiểu hết ý
==================
bạn xem dòng gần đầu nó có mặt hàng không chịu thuê:
Nhưng nếu có thêm dòng những mặt hàngt thuế suất 10%
thì lúc đó đâu căn cứ vào điều kiện nào bạn

 

[cadafi]

Vậy thì bạn cứ thêm những dòng 10% hay 5% hay 20% gì đó vào rồi gửi lên lại xem sao!? NÓi chung chung, mình khó "mò" ra quá!

 

[ndu96081631]

Vậy thì bạn cứ thêm những dòng 10% hay 5% hay 20% gì đó vào rồi gửi lên lại xem sao!? NÓi chung chung, mình khó "mò" ra quá!

Code của Kiệt và của tôi cho ra cùng 1 kết quả mà... 11 dòng
???
Vậy sao phải For ???
Nói đúng hơn là chưa hiểu ý tác giả muốn cái gì
Bạn gì đó, bạn có nói thì nói cho thật rõ, chẳng lẽ khi bạn nói chuyện với người khác bạn cũng nói theo kiểu lộc cộc thế sao
Trời hiểu

 

[cadafi]

Code của Kiệt và của tôi cho ra cùng 1 kết quả mà... 11 dòng
???
Vậy sao phải For ???
Nói đúng hơn là chưa hiểu ý tác giả muốn cái gì
Bạn gì đó, bạn có nói thì nói cho thật rõ, chẳng lẽ khi bạn nói chuyện với người khác bạn cũng nói theo kiểu lộc cộc thế sao
Trời hiểu

Em cũng chỉ "hiểu" hơi hơi, là như thế này, không biết có đúng không nữa:

Bên sheet SourceCode sẽ có nhiều dòng trùng số HĐ (ví dụ dòng 23,24,25,26,27) thì sẽ gom lại 1 dòng và diễn giải [Mặt hàng] (cột K) sẽ nối tất cả các ô trên cột K của những dòng trùng nhau về số HĐ thành một ô duy nhất, giống như =concatenate(K23,K24,K25,K26,K27) vậy.

Không biết như vậy có đúng không!?