Sửa đoạn code xóa dòng có điều kiện

Liên hệ QC
D

duong22000

Thành viên thường trực
Tham gia
8/5/13
Bài viết
322
Được thích
23
Em có 1 file muốn xóa dòng có điều kiện tại cột số 3 hàng 21 cho đến hết. Khi nhập dữ liệu "x" ở vùng điều kiện này, chạy code thì các hàng tương ứng sẽ được xóa đi. Em có làm thử 1 đoạn code nhưng mỗi lần chạy nó chỉ xóa được 1 vài hàng, bấm vài lần nó mới xóa hết.
Mã: 
Public Sub xoahang()
For I = 21 To 120
If ActiveSheet.Cells(I, 3).Value = "x" Then
Rows(I).Delete
End If
Next
End Sub
Các bác sửa code giúp em để code chạy 1 lần thì xóa hết các hàng tương ứng với điều kiện ở cột 3. Em cảm ơn mọi người!
 

File đính kèm

  • Book1.xlsm
    15.6 KB · Đọc: 9
duong22000 đã viết:
Em có 1 file muốn xóa dòng có điều kiện tại cột số 3 hàng 21 cho đến hết. Khi nhập dữ liệu "x" ở vùng điều kiện này, chạy code thì các hàng tương ứng sẽ được xóa đi. Em có làm thử 1 đoạn code nhưng mỗi lần chạy nó chỉ xóa được 1 vài hàng, bấm vài lần nó mới xóa hết.
Mã: 
Public Sub xoahang()
For I = 21 To 120
If ActiveSheet.Cells(I, 3).Value = "x" Then
Rows(I).Delete
End If
Next
End Sub
Các bác sửa code giúp em để code chạy 1 lần thì xóa hết các hàng tương ứng với điều kiện ở cột 3. Em cảm ơn mọi người!
Nhấp chuột vào đây để mở rộng...
em vừa khởi động lại máy, giờ mở file lên chạy lại code thì nó chỉ xóa được các hàng có điều kiện "x" ở cột 3 cách ô, còn nếu nhiều điều kiện "x" liền nhau thì code lại chạy xóa mấy dòng, sau đó bấm tiếp thì code lại xóa tiếp, vẫn không xóa được cùng lúc.
 
Lần chỉnh sửa cuối:
Mình kiểm tra trên máy mình thì lại chạy bình thường mà bạn, mình dùng 365. Mình có sửa code của bạn tý.
 

File đính kèm

  • Book1_Del_Fix.xlsm
    18.1 KB · Đọc: 4
Lần chỉnh sửa cuối:
@Chủ bài đăng: Muốn xóa dòng theo điều kiện nào đó thì:
Cách 1: Duyệt từ dưới lên & xóa từng dòng thỏa điều kiện;
Cách 2: Duyệt theo hướng nào cũng được; Nếu dòng thỏa điều kiện ta nhét nó vô 1 tham biến;
Sau khi duyệt xong CSDL & nếu tồn tại vùng cần xóa thì tiến hành xóa cái rẹt; Chuyện này cần biết phương thức Union()
& chúc bạn thành công cả ở 2 cách mà mình gợi ý cho bạn!
 
SA_DQ đã viết:
@Chủ bài đăng: Muốn xóa dòng theo điều kiện nào đó thì:
Cách 1: Duyệt từ dưới lên & xóa từng dòng thỏa điều kiện;
Cách 2: Duyệt theo hướng nào cũng được; Nếu dòng thỏa điều kiện ta nhét nó vô 1 tham biến;
Sau khi duyệt xong CSDL & nếu tồn tại vùng cần xóa thì tiến hành xóa cái rẹt; Chuyện này cần biết phương thức Union()
& chúc bạn thành công cả ở 2 cách mà mình gợi ý cho bạn!
Nhấp chuột vào đây để mở rộng...
Bác ơi viết hộ cháu đi.Cách 2 đấy bác.Mà còn cách nào tối ưu hơn nữa không ạ.
Bài đã được tự động gộp:

SA_DQ đã viết:
@Chủ bài đăng: Muốn xóa dòng theo điều kiện nào đó thì:
Cách 1: Duyệt từ dưới lên & xóa từng dòng thỏa điều kiện;
Cách 2: Duyệt theo hướng nào cũng được; Nếu dòng thỏa điều kiện ta nhét nó vô 1 tham biến;
Sau khi duyệt xong CSDL & nếu tồn tại vùng cần xóa thì tiến hành xóa cái rẹt; Chuyện này cần biết phương thức Union()
& chúc bạn thành công cả ở 2 cách mà mình gợi ý cho bạn!
Nhấp chuột vào đây để mở rộng...
Bác ơi viết hộ cháu đi.Cách 2 đấy bác.Mà còn cách nào tối ưu hơn nữa không ạ.
 
duong22000 đã viết:
xóa hết
Nhấp chuột vào đây để mở rộng...
Hic, bài này khó và code phải dài chứ ngắn thế kia sao được nhẩy? Phải viết văn nhiều trang mới điểm cao được.
Nếu biết chút về phần mềm Record macro và tham gia khóa sửa code cấp tốc thì sẽ ra được code dài như sau:

Mã: 
Sub Macro2()

    chay = MsgBox(vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & _
                  "!!! NEU KHONG CO xxx LA MAT SACH DU LIEU !!!" _
                & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf, vbOKCancel)

    If chay = vbCancel Then GoTo thoat

    On Error GoTo thoat

    Set acRange = Application.InputBox(vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & _
                                       "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! CHI DUOC CHON DONG TIEU DE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" _
                                     & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf, _
                                       "", , , , , , 8)

    acRange.AutoFilter Field:=3, Criteria1:="x"
    
    Set selRange = Range(acRange.Offset(1, 0), acRange.End(xlDown))
    If selRange.Cells.Count = 1 Then
        selRange.EntireRow.Delete
    Else
        selRange.SpecialCells(xlCellTypeVisible).Select
        Selection.EntireRow.Delete
    End If
    
    acRange.Select
    ActiveSheet.AutoFilterMode = False
    
thoat:
    Exit Sub
End Sub

ĐỌC KỸ THÔNG BÁO TRƯỚC KHI XUỐNG CHUỘT.
 
duong22000 đã viết:
Em có làm thử 1 đoạn code nhưng mỗi lần chạy nó chỉ xóa được 1 vài hàng, bấm vài lần nó mới xóa hết.
Nhấp chuột vào đây để mở rộng...
Bạn hiểu đoạn code là khi xóa 1 dòng thỏa mãn điều kiên, Ví dụ xóa dòng 10 thì dòng 11 sẽ trờ thành dòng 10 trong khi vòng lặp sẽ tiếp tục với i= 11 tương ứng với dòng 12 trước khi xóa và đã bỏ qua dòng 11. Có thể duyệt vòng lặp theo thứ tự từ dưới lên hoặc thêm i=i-1 sau đoạn Rows(I).Delete.
 
Xóa với điền kiện đơn giản như vậy thì dùng Advanced Filter, hoặc dùng Auto Filter và copy phần visible, xóa phần còn lại. Cả hai cách đều có thể record macro.
 
Sub test()
Dim i As Long
i = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row
If WorksheetFunction.CountIf(Sheet1.Range("C21:C" & i), "x") >= 1 Then
Sheet1.Range("C21:C" & i).Select
Selection.SpecialCells(xlCellTypeConstants, 2).Select
Selection.EntireRow.Delete
End If
End Sub

bạn thấy hợp lí có thể sử dụng ,cách này là dùng record macro
 
Public Sub an_phon()

ActiveSheet.Unprotect
For I = 120 To 21 Step -1
If ActiveSheet.Cells(I, 3).Value = "x" Then
Rows(I).Delete
End If
Next
End Sub
sửa lại code của bạn
 
duong22000 đã viết:
Em có 1 file muốn xóa dòng có điều kiện tại cột số 3 hàng 21 cho đến hết. Khi nhập dữ liệu "x" ở vùng điều kiện này, chạy code thì các hàng tương ứng sẽ được xóa đi. Em có làm thử 1 đoạn code nhưng mỗi lần chạy nó chỉ xóa được 1 vài hàng, bấm vài lần nó mới xóa hết.
Mã: 
Public Sub xoahang()
For I = 21 To 120
If ActiveSheet.Cells(I, 3).Value = "x" Then
Rows(I).Delete
End If
Next
End Sub
Các bác sửa code giúp em để code chạy 1 lần thì xóa hết các hàng tương ứng với điều kiện ở cột 3. Em cảm ơn mọi người!
Nhấp chuột vào đây để mở rộng...
Theo gọi ý của Anh @ SQ_DA.
Bạn thay dòng
Mã: 
Rows(i).delete
Thành
Mã: 
Dim Rng as Range
If Rng is nothing then
 set Rng=Rows(i)
Else
Set Rng =Union(Rng,Rows(i))
End if
Và thêm dòng nay sau khi thoát khỏi vòng lặp
Mã: 
Rng.EntireRow.Delete
Khai bút đầu năm. Hy vọng đúng
Bài đã được tự động gộp:

duong22000 đã viết:
Em có 1 file muốn xóa dòng có điều kiện tại cột số 3 hàng 21 cho đến hết. Khi nhập dữ liệu "x" ở vùng điều kiện này, chạy code thì các hàng tương ứng sẽ được xóa đi. Em có làm thử 1 đoạn code nhưng mỗi lần chạy nó chỉ xóa được 1 vài hàng, bấm vài lần nó mới xóa hết.
Mã: 
Public Sub xoahang()
For I = 21 To 120
If ActiveSheet.Cells(I, 3).Value = "x" Then
Rows(I).Delete
End If
Next
End Sub
Các bác sửa code giúp em để code chạy 1 lần thì xóa hết các hàng tương ứng với điều kiện ở cột 3. Em cảm ơn mọi người!
Nhấp chuột vào đây để mở rộng...
Theo gọi ý của Anh @ SQ_DA.
Bạn thay dòng
Mã: 
Rows(i).delete
Thành
Mã: 
Dim Rng as Range
If Rng is nothing then
 set Rng=Rows(i)
Else
Set Rng =Union(Rng,Rows(i))
End if
Và thêm dòng nay sau khi thoát khỏi vòng lặp
Mã: 
Rng.EntireRow.Delete
Khai bút đầu năm. Hy vọng đúng
 
Lần chỉnh sửa cuối:
zzzsxxx01 đã viết:
Mình kiểm tra trên máy mình thì lại chạy bình thường mà bạn, mình dùng 365. Mình có sửa code của bạn tý.
Nhấp chuột vào đây để mở rộng...
Mình cảm ơn bạn, mình đã chạy thử code mà đã xóa được hết
Bài đã được tự động gộp:

zzzsxxx01 đã viết:
Mình kiểm tra trên máy mình thì lại chạy bình thường mà bạn, mình dùng 365. Mình có sửa code của bạn tý.
Nhấp chuột vào đây để mở rộng...
Mình cảm ơn bạn, mình đã chạy thử code mà đã xóa được hết
SA_DQ đã viết:
@Chủ bài đăng: Muốn xóa dòng theo điều kiện nào đó thì:
Cách 1: Duyệt từ dưới lên & xóa từng dòng thỏa điều kiện;
Cách 2: Duyệt theo hướng nào cũng được; Nếu dòng thỏa điều kiện ta nhét nó vô 1 tham biến;
Sau khi duyệt xong CSDL & nếu tồn tại vùng cần xóa thì tiến hành xóa cái rẹt; Chuyện này cần biết phương thức Union()
& chúc bạn thành công cả ở 2 cách mà mình gợi ý cho bạn!
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn nhiều
Bài đã được tự động gộp:

zzzsxxx01 đã viết:
Mình kiểm tra trên máy mình thì lại chạy bình thường mà bạn, mình dùng 365. Mình có sửa code của bạn tý.
Nhấp chuột vào đây để mở rộng...
Mình cảm ơn bạn, mình đã chạy thử code mà đã xóa được hết
SA_DQ đã viết:
@Chủ bài đăng: Muốn xóa dòng theo điều kiện nào đó thì:
Cách 1: Duyệt từ dưới lên & xóa từng dòng thỏa điều kiện;
Cách 2: Duyệt theo hướng nào cũng được; Nếu dòng thỏa điều kiện ta nhét nó vô 1 tham biến;
Sau khi duyệt xong CSDL & nếu tồn tại vùng cần xóa thì tiến hành xóa cái rẹt; Chuyện này cần biết phương thức Union()
& chúc bạn thành công cả ở 2 cách mà mình gợi ý cho bạn!
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn nhiều
HUONGHCKT đã viết:
Theo gọi ý của Anh @ SQ_DA.
Bạn thay dòng
Mã: 
Rows(i).delete
Thành
Mã: 
Dim Rng as Range
If Rng is nothing then
 set Rng=Rows(i)
Else
Set Rng =Union(Rng,Rows(i))
End if
Và thêm dòng nay sau khi thoát khỏi vòng lặp
Mã: 
Rng.EntireRow.Delete
Khai bút đầu năm. Hy vọng đúng
Bài đã được tự động gộp:


Theo gọi ý của Anh @ SQ_DA.
Bạn thay dòng
Mã: 
Rows(i).delete
Thành
Mã: 
Dim Rng as Range
If Rng is nothing then
 set Rng=Rows(i)
Else
Set Rng =Union(Rng,Rows(i))
End if
Và thêm dòng nay sau khi thoát khỏi vòng lặp
Mã: 
Rng.EntireRow.Delete
Khai bút đầu năm. Hy vọng đúng
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn nhiều
Bài đã được tự động gộp:

zzzsxxx01 đã viết:
Mình kiểm tra trên máy mình thì lại chạy bình thường mà bạn, mình dùng 365. Mình có sửa code của bạn tý.
Nhấp chuột vào đây để mở rộng...
Mình cảm ơn bạn, mình đã chạy thử code mà đã xóa được hết
SA_DQ đã viết:
@Chủ bài đăng: Muốn xóa dòng theo điều kiện nào đó thì:
Cách 1: Duyệt từ dưới lên & xóa từng dòng thỏa điều kiện;
Cách 2: Duyệt theo hướng nào cũng được; Nếu dòng thỏa điều kiện ta nhét nó vô 1 tham biến;
Sau khi duyệt xong CSDL & nếu tồn tại vùng cần xóa thì tiến hành xóa cái rẹt; Chuyện này cần biết phương thức Union()
& chúc bạn thành công cả ở 2 cách mà mình gợi ý cho bạn!
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn nhiều
HUONGHCKT đã viết:
Theo gọi ý của Anh @ SQ_DA.
Bạn thay dòng
Mã: 
Rows(i).delete
Thành
Mã: 
Dim Rng as Range
If Rng is nothing then
 set Rng=Rows(i)
Else
Set Rng =Union(Rng,Rows(i))
End if
Và thêm dòng nay sau khi thoát khỏi vòng lặp
Mã: 
Rng.EntireRow.Delete
Khai bút đầu năm. Hy vọng đúng
Bài đã được tự động gộp:


Theo gọi ý của Anh @ SQ_DA.
Bạn thay dòng
Mã: 
Rows(i).delete
Thành
Mã: 
Dim Rng as Range
If Rng is nothing then
 set Rng=Rows(i)
Else
Set Rng =Union(Rng,Rows(i))
End if
Và thêm dòng nay sau khi thoát khỏi vòng lặp
Mã: 
Rng.EntireRow.Delete
Khai bút đầu năm. Hy vọng đúng
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn nhiều
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

S
  • Question
Không lấy đủ dữ liệu bằng kết nối ADO
2
Trả lời
20
Đọc
336
shnhatha221108
S
S
Slicer không chuyển qua trạng thái mờ.
Trả lời
1
Đọc
35
ptm0412
ptm0412
K
Vẽ biểu đồ ứng suất bản thân và ứng suất gây lún = Excel
    • Thích
Trả lời
5
Đọc
13K
ptm0412
ptm0412
M
Bảng Pivot ko tự update theo dữ liệu và còn cộng thiếu số liệu.
Trả lời
6
Đọc
61
ptm0412
ptm0412
LuuAnh980
  • Question
Code lấy dữ liệu từ 3 file con.
2
Trả lời
36
Đọc
476
hoangtran1176
hoangtran1176
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom