Giúp mình lọc những dòng hoàn chỉnh sang 1 sheet khác !

[vhh038]

Mình có dữ liệu như file gửi kèm, mình muốn lọc những dòng có số lượng ở cột B sang 1 sheet khác bạn nào biết giúp đỡ mình với, xin cảm ơn nhiều

 

[dat_butmuc]

Mình có dữ liệu như file gửi kèm, mình muốn lọc những dòng có số lượng ở cột B sang 1 sheet khác bạn nào biết giúp đỡ mình với, xin cảm ơn nhiều

Dùng Pivot là ổn !
Xem file

 

[Lê Duy Thương]

nhiều dấu quá . Mà hình như không đúng cho lắm

không thích dùng cái có sẵn thì giúp bạn cái code này xem có đúng ý không nhé
xem file đính kèm

 

[haonlh]

Đơn giản nhất có lẽ là:
- Đánh sô tăng dần cho các hàng dữ liệu. Nếu thứ tự của nó không quan trọng bạn bỏ qua mục này.
- Chọn các hàng từ 3 đến hết
- Chọn menu Data \ Sort, chọn No Header row, chọn tên cột cần sort trong mục Sort by, OK
Như vậy các dữ liệu trống sẽ dồn vô 1 chỗ. Bạn chọn và chép nó đi

 

[dat_butmuc]

Đơn giản nhất có lẽ là:
- Đánh sô tăng dần cho các hàng dữ liệu. Nếu thứ tự của nó không quan trọng bạn bỏ qua mục này.
- Chọn các hàng từ 3 đến hết
- Chọn menu Data \ Sort, chọn No Header row, chọn tên cột cần sort trong mục Sort by, OK
Như vậy các dữ liệu trống sẽ dồn vô 1 chỗ. Bạn chọn và chép nó đi

Đây là cách "zich zắc" nhất !
Mỗi lần cập nhật dữ liệu lại phải làm từng bước vậy à ?
Đơn giản/gọn nhẹ nhất là dùng Pivot.

Có phải namnguyen1991 và vhh038 là một hay không?
nên cái này

namnguyen1991 nhiều dấu quá . Mà hình như không đúng cho lắm

là sao ta?

 

[Lê Duy Thương]

Đơn giản nhất có lẽ là:
- Đánh sô tăng dần cho các hàng dữ liệu. Nếu thứ tự của nó không quan trọng bạn bỏ qua mục này.
- Chọn các hàng từ 3 đến hết
- Chọn menu Data \ Sort, chọn No Header row, chọn tên cột cần sort trong mục Sort by, OK
Như vậy các dữ liệu trống sẽ dồn vô 1 chỗ. Bạn chọn và chép nó đi

bạn đã thử so sánh chưa vậy
cái file của tôi dùng được 20000 dòng đấy chỉ hết 5 giây
nếu làm 20000 rows theo cách của bạn ít nhất cũng mất 5 phút thao tác , chưa kể cái anh computer có khoẻ anh là đứng luôn

 

[haonlh]

Lâu rồi, đọc lại thấy lúc trước chưa biết. Nay thì biết Pivot rồi.



Nhưng file đính kèm của vhh038 (book1.xls) không Pivot được. Mở file đính kèm của Datbutmuc cũng vậy




Các anh chị thử xem và nếu có thể chỉ cách khắc phục. Còn được thì chắc tại máy của tôi.

 

[dailykem]

sao e chạy code của anh Leduythuong nó báo lỗi nhỉ ?
lỗi 438 ạ

 

[Lê Duy Thương]

sao e chạy code của anh Leduythuong nó báo lỗi nhỉ ?
lỗi 438 ạ

bạn chép lại đoạn này xem sao

Private Sub CommandButton1_Click()
Application.ScreenUpdating = 0
Sheets("DATA").Select
ActiveSheet.Cells.Clear
ActiveSheet.Range("A1:e20000").Value = Sheets("CAP 
NHAT").Range("A1:e20000").Value
 Sheets("DATA").Select
 ActiveSheet.Range("A1:e20000").AutoFilter
 ActiveWorkbook.Worksheets("DATA").AutoFilter.Sort.SortFields.Add 
Key:=Range("B1:B20000"), SortOn:=xlSortOnValues, Order:=xlAscending
With ActiveWorkbook.Worksheets("DATA").AutoFilter.Sort
 .Header = xlYes
 .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
   .Apply
   End With
   With Sheets("DATA")
   j = .[B20000].End(xlUp).Row + 1
   .Range(Sheets("DATA").Rows(j), Sheets("DATA").Rows(20000)).Clear
  .[a1].Select
  ActiveWorkbook.Save
 End With
  Application.ScreenUpdating = 1
 End Sub

 

[TrungChinhs]

Mình có dữ liệu như file gửi kèm, mình muốn lọc những dòng có số lượng ở cột B sang 1 sheet khác bạn nào biết giúp đỡ mình với, xin cảm ơn nhiều

Bạn thử Code này xem.

Sub Copy_NonBlanks()
    Application.ScreenUpdating = False
    tg = Timer
    Sheets("DATA").[a2:e50000].Clear
    With Sheets("CAP NHAT").[b3:b50000]
        .EntireRow.Hidden = 1
        .SpecialCells(2).EntireRow.Hidden = 0
        [a2:e50000].SpecialCells(12).Copy Sheets("DATA").[a2]
        .EntireRow.Hidden = 0
    End With
    MsgBox "End time: " & Timer - tg
End Sub