Xóa hàng trong excel

[dinhhong04]

các bác có thẻ giúp em xóa hàng trong excel với, em làm mãi mà không được
các bác làm nhanh giúp em với em đang cần
thanks!!!

 

[Po_Pikachu]

Bạn dùng code này thử ha!

Sub xoa()
For i = 34 To 4 Step -1
If WorksheetFunction.CountA(Range("C" & i & ":Z" & i)) < 7 Then
Range("C" & i & ":Z" & i).EntireRow.Delete
End If
Next
End Sub

Thân.

 

[dinhhong04]

cảm ơn bạn nhiều nhé
bác có thể giúp em cái này được không?

 

[Po_Pikachu]

Bạn dùng code này là ổn thôi!
Và nên gợp 2 cột là thành một đi để tiết kiệm nha!

Sub chay()
m = 2
k = 2
Application.DisplayAlerts = False
For iRow = 4 To [B4].End(xlDown).Row
    For iCol = 3 To [C3].End(xlToRight).Column
        If IsNumeric(Cells(iRow, iCol)) And Cells(iRow, iCol) <> 0 Then
            Sheet3.Cells(k, "B") = Cells(iRow, "B")
            Sheet3.Cells(k, "C") = Cells(1, iCol)
            Sheet3.Cells(k, IIf(Cells(3, iCol) = "N", "D", "E")) = Cells(iRow, iCol)
            k = k + IIf(Cells(2, iCol) = Cells(2, iCol + 1), 0, 1)
        End If
    Next
    If k > m Then
        With Sheet3.Range(Sheet3.Cells(m, "B"), Sheet3.Cells(k - 1, "B"))
            .Merge
            .VerticalAlignment = xlCenter
            .HorizontalAlignment = xlCenter
            .Font.Bold = True
        End With
        k = k + 1
        m = k
    End If
Next
Application.DisplayAlerts = True
End Sub

Bạn xem file!
Thân.

 

[ChanhTQ@]

Bạn đưa bài lên hai chổ là phạm quy đó nha

cảm ơn bạn nhiều nhé
bác có thể giúp em cái này được không?

http://giaiphapexcel.com/forum/showthread.php?t=20445

 

[dinhhong04]

bạn ơi nếu nhiều có nhiều dòng LOT khoảng 13000 dòng thì có làm như thế được không?
và bạn có thể không gộp lại mà phân ra thành 2 trương được không? giống như file khi mình chuyển cho bạn đó. bạn giúp mình nha? và bạn có thể trả lời câu hỏi trên của mình không?

 

[Po_Pikachu]

Bạn phải nói vấn đề có nhiều dữ liệu hay không chứ!
Mình đã chỉnh lại code rồi!
Và nên xuất dữ liệu ra Sheet khác luôn đi.
Bạn copy toàn bộ dữ liệu vào Sheet1 rồi nhất nút "Chạy". Và đừng thay đổi cấu trúc file nha!
Chỉ bổ sung dòng liên tục của dữ liệu thôi!
(phòng khi bạn đặt không đúng cột.
Rồi sau khi chờ code chạy xong thì bạn xem bên Sheet 3 sẽ thấy.
Thân.

 

[dinhhong04]

Em cũng nghĩ giống bác vậy. bác chỉnh lại code rồi vậy thì tốt quá, bác gửi cho em với. và còn một điều nữa là khi em chạy code của bác thì nếu cho thêm dữ liệu vào nhiều ô khác thì kết quả lại sai. thanks
bác có thể gửi giúp em vào hòm thư: visaophaiyeu04@gmail.com thanks

 

[Tiger62]

Tôi hiểu theo như file của bạn là xóa những dòng không có dữ liệu số. Như vậy bạn chỉ cần làm công thức if(sum(cột đầu : cột cuối)>0,1,0) ở 1 cột phụ rồi sort theo cột đó, sau đó xóa 1 lần là hết các dòng =0.

 

[dinhhong04]

không phải vậy, vì bac po_pikachu đã cho em rồi. bác co mail không vậy cho em, em gửi cho bác, bác giúp em được không?

 

[dinhhong04]

Bạn phải nói vấn đề có nhiều dữ liệu hay không chứ!
Mình đã chỉnh lại code rồi!
Và nên xuất dữ liệu ra Sheet khác luôn đi.
Bạn copy toàn bộ dữ liệu vào Sheet1 rồi nhất nút "Chạy". Và đừng thay đổi cấu trúc file nha!
Chỉ bổ sung dòng liên tục của dữ liệu thôi!
(phòng khi bạn đặt không đúng cột.
Rồi sau khi chờ code chạy xong thì bạn xem bên Sheet 3 sẽ thấy.
Thân.

Bác xem file này rồi giúp em, nhưng là theo yêu cầu tử ngày 13/2 đến 19/2 hoặc nhiều hơn thế, ban đầu thì em làm theo kiểu tách nó ra thủ công. sau đó thì nhóm như các bác làm nhưng không được.

 

[dinhhong04]

các bác ơi các bác xem file của em thế nào? em đã thử sử dụng code của bác HYen17 và cửa bác po_pikachu rồi nhưng không được, em không biêt đã làm sai gì cả. Đầu tiên em copy toàn bộ du liệu sang một sheet sau đó em sử dụng code của các bác nhưng nó không chạy. các bác giúp em với.

 

[rosy84]

em thấy đoạn mã bác po_pikachu viết cho phần xóa hàng đó không được ổn lắm, em không hiểu tại sao lại phải nhỏ hơn 7. sao tao không nhóm các hàng vào rồi xóa hàng loạt luôn.