lấy dữ liệu khi trùng lặp tiếp theo (1 người xem)

[chuotchuix]

nhờ các admin e có code
Sub abc(ByVal wks As Worksheet)
Dim i As Long, n As Long, rng As Range
On Error Resume Next
n = 0
Set rng = wks.[AN2]
Do While rng(1, 1).Value <> ""
n = n + 1
Set rng = wks.[AN2].Offset(3, (n - 1) * 10).Resize(300, 10)
With Sheet1.[l60000].End(3).Offset(1)
.Offset(, -8).Resize(300, 10).Value = rng.Value
.Offset(, -9).Resize(300, 1).Value = rng.Offset(-4)(1, 1).Value

End With
Loop
End Sub
với đoạn code trên khi có dữ liệu trùng ở cột hàng phía dưới thì bị xóa mất giờ em muốn lấy tất cả dữ liệu và ko xóa dòng nào khi bị trùng lập. thế em phải sữa hoặc thêm gì vào để lấy được như vậy trên đoạn code vậy.
và nếu được sữa thêm dùng e nữa là nếu ở cột có số 0 thì khi lấy qua sẽ ko hiện số 0
vd:
[TABLE="width: 500"]
[TR]
[TD][TABLE="width: 168"]
[TR]
[TD="class: xl145, width: 168"]30401095(H180250)[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="width: 64"]
[TR]
[TD="class: xl145, width: 64"]0[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="width: 64"]
[TR]
[TD="class: xl145, width: 64"]N70[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="width: 64"]
[TR]
[TD="class: xl145, width: 64"]D[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="width: 64"]
[TR]
[TD="class: xl145, width: 64"]N6922[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]
khi lấy
[TABLE="width: 500"]
[TR]
[TD][TABLE="width: 168"]
[TR]
[TD="class: xl145, width: 168"]95(H180250)[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][/TD]
[TD][TABLE="width: 64"]
[TR]
[TD="class: xl145, width: 64"]N70[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="width: 64"]
[TR]
[TD="class: xl145, width: 64"]D[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="width: 64"]
[TR]
[TD="class: xl145"]N6922[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]
số 0 sẽ ko còn

 

[HungQuoc49]

nhờ các admin e có code
Sub abc(ByVal wks As Worksheet)
Dim i As Long, n As Long, rng As Range
On Error Resume Next
n = 0
Set rng = wks.[AN2]
Do While rng(1, 1).Value <> ""
n = n + 1
Set rng = wks.[AN2].Offset(3, (n - 1) * 10).Resize(300, 10)
With Sheet1.[l60000].End(3).Offset(1)
.Offset(, -8).Resize(300, 10).Value = rng.Value
.Offset(, -9).Resize(300, 1).Value = rng.Offset(-4)(1, 1).Value

End With
Loop
End Sub

với đoạn code trên khi có dữ liệu trùng ở cột hàng phía dưới thì bị xóa mất giờ em muốn lấy tất cả dữ liệu và ko xóa dòng nào khi bị trùng lập. thế em phải sữa hoặc thêm gì vào để lấy được như vậy trên đoạn code vậy.
và nếu được sữa thêm dùng e nữa là nếu ở cột có số 0 thì khi lấy qua sẽ ko hiện số 0
vd:
[TABLE="width: 500"]
[TR]
[TD][TABLE="width: 168"]
[TR]
[TD="class: xl145, width: 168"]30401095(H180250)
[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="width: 64"]
[TR]
[TD="class: xl145, width: 64"]0[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="width: 64"]
[TR]
[TD="class: xl145, width: 64"]N70[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="width: 64"]
[TR]
[TD="class: xl145, width: 64"]D[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="width: 64"]
[TR]
[TD="class: xl145, width: 64"]N6922[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]
khi lấy
[TABLE="width: 500"]
[TR]
[TD][TABLE="width: 168"]
[TR]
[TD="class: xl145, width: 168"]95(H180250)[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][/TD]
[TD][TABLE="width: 64"]
[TR]
[TD="class: xl145, width: 64"]N70[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="width: 64"]
[TR]
[TD="class: xl145, width: 64"]D[/TD]
[/TR]
[/TABLE]
[/TD]
[TD][TABLE="width: 64"]
[TR]
[TD="class: xl145"]N6922[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]
số 0 sẽ ko còn

Gửi file đính kèm xem sao bạn

 

[chuotchuix]

file hơi nặng nha bạn. file o sheet plan la minh chạy lấy dữ liệu.
ở sheet (33, 34-36,37-38,39-40) cột 38 có trùng nhau khi lấy qua thi no chỉ lấy co 1.
và o sheet plan mấy cột co số 0 mình tô màu trắng nên ko thấy bạn đưa con chuột vào ô đó sẽ thấy
bạn download từ đây dùm mình. http://www.mediafire.com/download/ftt4i7xoq4zeavi/kế+hoạch+sx-MOI.xlsm

 

[HungQuoc49]

file hơi nặng nha bạn. file o sheet plan la minh chạy lấy dữ liệu.
ở sheet (33, 34-36,37-38,39-40) cột 38 có trùng nhau khi lấy qua thi no chỉ lấy co 1.
và o sheet plan mấy cột co số 0 mình tô màu trắng nên ko thấy bạn đưa con chuột vào ô đó sẽ thấy
bạn download từ đây dùm mình. http://www.mediafire.com/download/ftt4i7xoq4zeavi/kế+hoạch+sx-MOI.xlsm

sorry, tiêu đề cột toàn chữ tượng hình nên bó tay.
bạn chờ cao thủ trên diễn đàn hỗ trợ vậy