Xóa nhiều dòng trong excel

Trong quy trình làm việc cùng với Excel, vẫn không ít lần các bạn gặp gỡ ngôi trường phù hợp mong xóa rất nhiều loại nhưng mà trong những số đó thỏa mãn nhu cầu tầm thường 1 điều kiện một mực. Để góp bạn cũng có thể tiến hành được lập cập thì bài viết dưới đây đã hướng dẫn cho mình chi tiết giải pháp xóa những dòng trong Excel. Cùng theo dõi và quan sát ngay lập tức nhé!

Quý Khách rất có thể biết tí chút về VBA cùng đã nghĩ ra một chiến lược vẫn sử dụng vòng lặp vào VBA sẽ giúp đỡ xử lý câu hỏi xóa các cái tự động với nhanh lẹ. quý khách hoàn toàn có thể trường đoản cú viết được một đoạn code nhỏng sau:




You watching: Xóa nhiều dòng trong excel

Sub DeleteUsingForLoop()
Dyên ổn rowIndex As Long
Application.ScreenUpdating = False
With Sheet1
.Range(“D1”) = Now
For rowIndex = 40000 To 1 Step –1
If .Range(“A” và rowIndex).Value 0.1 Then
.Range(“A” và rowIndex).EntireRow.Delete
End If
Next
.Range(“E1”) = Now
End With
Application.ScreenUpdating = True
MsgBox “Done”
End Sub

Sau Khi vẫn triển khai bấm nút đến code chạy, việc các bạn chỉ làm bây giờ là thỏng thái mong chờ trong tầm 10 phút ít để có công dụng. Tuy nhiên, lúc 10 phút sẽ dứt, bạn vẫn không cảm nhận công dụng vừa lòng vị những lí vì sau đây:

CHUẨN BỊ DỮ LIỆU ĐỂ TEST VIỆC XÓA NHIỀU DÒNG

Dữ liệu dùng để làm demo việc xóa mẫu của bạn sẽ phía bên trong cột A của Sheet1 vùng A1:A40000, được biết đến là những quý giá trong tầm 0 tới 1 được tạo ra vày hàm mảng đụng bắt đầu trong Excel RandArray Tại đây, bạn sẽ đi xóa những mẫu mà lại cột A có giá trị nhỏ tuổi hơn 0,1. Và sẽ có được khoảng 4000 dòng nlỗi vậy

*

Với đoạn code VBA trên, thì vấn đề tiến hành xóa dòng theo ĐK này sẽ mất khoảng hơn 10 phút ít. Trong hình sau, D1 đang là thời hạn bước đầu, còn D2 là thời hạn đoạn code ngừng chạy.

*

CÁCH XÓA NHIỀU DÒNG THEO ĐIỀU KIỆN NHANH HƠN

Cách 1:

Ý tưởng thực hiện sinh hoạt đó là, bạn sẽ cần sử dụng 1 cách làm tại cột phú nhằm “nhận biết” được mẫu như thế nào cần xóa, sau đó xóa cùng với đoạn code VBA mặt dưới:


Sub DeleteUsingSpecialCells()
Application.ScreenUpdating = False
With Sheet1.Range(“B1:B40000”)
.Range(“E1”) = Now
.Formula = “=IF(A1
.Cells.SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
.Range(“E2”) = Now
End With
Application.ScreenUpdating = True
MsgBox “Done”
End Sub

*

Cách 2:

Dùng hàm Filter vào cỗ hàm mảng rượu cồn new của Microsoft. Bằng biện pháp này, filter gần như là sẽ có tác dụng ngay mau chóng (hiệu quả thanh lọc sinh sống cột B)

*

Cách 3:

Dùng tác dụng Filter để lọc tác dụng tuyệt copy qua sheet khác:


Sub DeleteRowsWithValuesNewSheet() ‘100K records 10K khổng lồ delete
‘Test 1: 2.40234375 sec
‘Test 2: 2.41796875 sec
‘Test 3: 2.40234375 sec
‘1M records 100K khổng lồ delete
‘Test 1: 32.9140625 sec
‘Test 2: 33.1484375 sec
‘Test 3: 32.90625 sec
Dyên oldWs As Worksheet, newWs As Worksheet, rowHeights() As Long
Dyên wsName As String, t As Double, oldUsedRng As Range
FastWB True: t = Timer
Set oldWs = Worksheets(1)
wsName = oldWs.Name
Set oldUsedRng = oldWs.Range(“A1”, GetMaxCell(oldWs.UsedRange))
If oldUsedRng.Rows.Count > 1 Then ‘If sheet is not empty
Set newWs = Sheets.Add(After:=oldWs) ‘Add new sheet
With oldUsedRng
.AutoFilter Field:=1, Criteria1:=“Test String”
.Copy ‘Copy visible data
End With
With newWs.Cells
.PasteSpecial xlPasteColumnWidths
.PasteSpecial xlPasteAll ‘Paste data on new sheet
.Cells(1, 1).Select ‘Deselect paste area
.Cells(1, 1).Copy ‘Clear Clipboard
End With
oldWs.Delete ‘Delete old sheet
newWs.Name = wsName
End If
FastWB False: InputBox “Duration: “, “Duration”, Timer – t
End Sub



See more: Cách Nạp Tiền Cho Game Clash Of Clans, Muốn Nạp Gems Cho Game Coc Thì Phải Làm Sao Ạ

Sub DeleteIf()
Dlặng LR As Long
Application.ScreenUpdating = False
With Sheet1
.Range(“C1”).Value = Now
If .AutoFilterMode Then .AutoFilterMode = False
LR = .Range(“B” và .Rows.Count).End(xlUp).Row
With .Range(“B1”).Resize(LR)
.AutoFilter
.AutoFilter Field:=1, Criteria1:=“>0.5”
.Offset(1).Resize(LR – 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete Shift:=xlUp
End With
.AutoFilterMode = False
.Range(“C2”).Value = Now
End With
Application.ScreenUpdating = True
End Sub

*


Đánh giá chỉ bài viết
Hướng dẫn cách xóa Hyperlink trong Word cực 1-1 giản
Hyperlink vào Word là những links cho một website hay như là một tlỗi mục nào đó hết sức có lợi trong việc đào bới tìm kiếm tìm và liên kết thông tin. Tuy nhiên, thỉnh thoảng người dùng sẽ không còn phải đến những link này và mong mỏi xóa nó đi. Vậy phải…Xem đưa ra tiết: Hướng dẫn phương pháp xóa Hyperliên kết vào Word cực 1-1 giản
Ta nghe biết Excel cùng với trang tính gồm chứa tương đối nhiều phương pháp, hàm khác nhau thì không nhiều người hiểu được vào Word cũng hoàn toàn có thể làm việc những hàm cụ thể nhằm người tiêu dùng áp dụng. Vậy Word hỗ trợ hầu hết hàm như thế nào và gồm phổ cập nlỗi Excel?…Xem chi tiết: Hướng dẫn giải pháp chế tác vnạp năng lượng phiên bản thốt nhiên vào Word
Quý Khách vẫn muốn lưu tài liệu word của mình bên dưới dạng trang web nhưng lại không biết làm cho bí quyết nào? Vậy thì nội dung bài viết dưới đây để giúp bạn trả lời chi tiết nhất! CÁCH LƯU TÀI LIỆU DƯỚI DẠNG TRANG WEB Lựa chọn tốt nhất để giữ tư liệu dưới…Xem đưa ra tiết: Hướng dẫn giải pháp lưu tư liệu dưới dạng trang web
Trong lúc soạn thảo vnạp năng lượng bạn dạng trên Word, chúng ta luôn hy vọng biết đoạn vnạp năng lượng bản của chính mình đã có từng nào tự. Thao tác triển khai siêu đơn giản và dễ dàng, chỉ việc mlàm việc bảng những thống kê là đánh giá được. Hãy cùng tìm hiểu cụ thể giải pháp triển khai vào bài…Xem đưa ra tiết: Hướng dẫn mngơi nghỉ bảng những thống kê chữ vào Word


See more: Oở Nhà Một Mình 3 Hd Vietsub + Thuyết Minh, Ở Nhà Một Mình 3

Trong quy trình thao tác cùng với Word, các bạn sẽ quan yếu không sử dụng mang đến lốt đóng góp mở ngoặc đối chọi nhằm diễn tả cụ thể thêm vào cho một vấn đề nào đó hay là 1 câu ghi chú,.... Tuy nhiên, trường hợp vào ngôi trường hòa hợp bạn muốn xóa sổ toàn bộ các…Xem bỏ ra tiết: Hướng dẫn xóa sổ phần văn bản phía trong vệt ngoặc đơn