- Kỹ thuật xóa dữ liệu trùng của các ô, code cực ngắn - có thể làm thành Add-In (1 người xem)

dmtdmtbb · 10/10/07

- Xáa dữ liệu trùng của ô được quét khối, chỉ tính theo dòng, cột không quá 1.
- Bác nào có cách ngắn hơn chia sẽ nhé !

Mã:

Sub DelDupCells()
On Error Resume Next
Application.ScreenUpdating = False
Dim i, x
  If Selection.Columns.Count > 1 Then MsgBox "Khong duoc chon qua 2 cot.", 16, "Msg": Exit Sub
  If Selection.Rows.Count < 2 Then MsgBox "Cot can xoa it nhat la 2.", 48, "Msg": Exit Sub
  If MsgBox("Ban co chac muon xoa ?", vbQuestion + vbYesNo, "Msg") = vbNo Then Exit Sub
  For i = Selection.Rows.Count To 1 Step -1
      x = Selection.Cells(i, 1).Value
      If Application.CountIf(Selection, x) > 1 Then
         Selection(i).ClearContents
      End If
  Next
End Sub

ThuNghi · 10/10/07

Cái này vẫn chậm hơn AF, unique record only.
DMT xem thêm giải thuật bỏ dòng trống luôn. Sort rồi xóa hình như nhanh hơn xóa từ dưới lên.

DOSNET · 10/10/07

Bác không loại dòng trống, em nhỡ tay chọn cả cột, chờ máy tính toán xong đến đuối mất. Bác sửa lại code cho anh em dùng nhé !

Mr Okebab · 10/10/07

ThuNghi đã viết:
Cái này vẫn chậm hơn AF, unique record only.
DMT xem thêm giải thuật bỏ dòng trống luôn. Sort rồi xóa hình như nhanh hơn xóa từ dưới lên.

Hoặc chuyển nó thành 1 UF thì nhanh hơn nhiều bác ạ. Khi đó không quan trọng là bao nhiêu cột, bao nhiêu dòng nữa.

Thân!

voda · 10/10/07

Nguyên văn bởi dmtdmtbb
- Xáa dữ liệu trùng của ô được quét khối, chỉ tính theo dòng, cột không quá 1.
- Bác nào có cách ngắn hơn chia sẽ nhé !

Mình chỉ có cách dài hơn thôi.
Các bạn xem thử có cải thiện được tốc độ không?

Sub DelDupCells()
On Error Resume Next
Application.ScreenUpdating = False
Dim intCounter As Integer, intSecond As Integer, x As Integer, y As Integer, t As Integer, i As Integer
Dim rngData As Range
Set rngData = Selection
t = rngData.Row
x = rngData.Rows.Count
y = rngData.Column
i = rngData.Columns.Count
ReDim arrData(1 To x)
If i > 1 Then MsgBox "Khong duoc chon qua 2 cot.", 16, "Msg": Exit Sub
If x < 2 Then MsgBox "Cot can xoa it nhat la 2.", 48, "Msg": Exit Sub
If MsgBox("Ban co chac muon xoa ?", vbQuestion + vbYesNo, "Msg") = vbNo Then Exit Sub
For intCounter = 1 To x
arrData(intCounter) = Cells(t, y)
t = t + 1
Next intCounter
t = rngData.Row
For intCounter = 1 To x
intSecond = intCounter + 1
Do Until intSecond >= x + 1
If arrData(intCounter) = arrData(intSecond) Then
Cells(intSecond + t - 1, y).ClearContents
End If
intSecond = intSecond + 1
Loop
Next intCounter
Application.ScreenUpdating = True
End Sub

DOSNET · 11/10/07

Hình như chỗ này có vấn đề bác ơi...Em vẫn chưa chọn được cả cột để thử

If i > 1 Then MsgBox "Khong duoc chon qua 2 cot.", 16, "Msg": Exit Sub
If x < 2 Then MsgBox "Cot can xoa it nhat la 2.", 48, "Msg": Exit Sub

minhlev · 11/10/07

phamnhukhang đã viết:
If x < 2 Then MsgBox "Cot can xoa it nhat la 2.", 48, "Msg": Exit Sub

Theo tôi nghĩ thì thay chữ "Cot" thành chữ "Dong"

DOSNET · 11/10/07

minhlev đã viết:
Theo tôi nghĩ thì thay chữ "Cot" thành chữ "Dong"

Vâng đúng rồi, cái đó chỉ là hiển thị Text box thôi mà bác.

voda · 11/10/07

Nguyên văn bởi phamnhukhang
Hình như chỗ này có vấn đề bác ơi...Em vẫn chưa chọn được cả cột để thử

Ngoài sự nhầm lẫn chữ dòng thành cột, nó có báo lỗi gì không? Bác test rồi cho biết cụ thể nhé!

DOSNET · 11/10/07

voda đã viết:
Ngoài sự nhầm lẫn chữ dòng thành cột, nó có báo lỗi gì không? Bác test rồi cho biết cụ thể nhé!

Em đã Test nhưng Code vẫn chưa cho phép chon cả cột để làm việc. Theo em bác sửa lại như này thì tiện sử dụng hơn : Sau khi chay Macro, sẽ xuất hiện Textbox cho phép lựa chọn vùng làm việc.

voda · 11/10/07

- Khi chọn cả cột, muốn chạy code, phải khai báo lại biến x : dim x as Long.
-Tuy nhiên, chọn như thế thì số dòng quá lớn. Chương trình chạy rất lâu thậm chí làm cho máy đứng. Bạn có thể test với số dòng ít hơn ( dưới 1000 dòng).

phamduylong · 11/10/07

Để tìm dữ liệu trùng, thay vì dùng vòng lặp để tìm dữ liệu trùng, ta dùng Find sẽ nhanh hơn.
Ví dụ dữ liệu có 1000 dòng. Ố A1 và ô A1000 trùng nhau, vòng lặp phải duyệt qua 999 ô mới phát hiện trùng, còn Find sẽ chỉ ngay ô A1000.

Mã:

Sub XoaTrung()
rd = Selection.Row
rc = rd + Selection.Rows.Count - 1
c = Selection.Column
Range(Cells(rd, c), Cells(rc, c)).Select
rfind1 = rd
Do While rfind1 < rc
[COLOR=white]__[/COLOR]Range(Cells(rfind1, c), Cells(rc, c)).Select
[COLOR=white]__[/COLOR]dulieu = Cells(rfind1, c)
[COLOR=white]__[/COLOR]If dulieu = "" Then
[COLOR=white]____[/COLOR]rfind1 = Cells(rfind1, c).End(xlDown).Row
[COLOR=white]____[/COLOR]If rfind1 >= rc Then Exit Sub
[COLOR=white]__[/COLOR]Else
[COLOR=white]____[/COLOR]Do
[COLOR=white]______[/COLOR][COLOR=red][B]rfind2 = Selection.Find(What:=dulieu, After:=Cells(rfind1, c)).Row[/B][/COLOR]
[COLOR=white]______[/COLOR]If rfind2 > rfind1 Then
[COLOR=white]________[/COLOR]Cells(rfind2, c).EntireRow.Delete
[COLOR=white]________[/COLOR]rc = rc - 1
[COLOR=white]________[/COLOR]Range(Cells(rfind1, c), Cells(rc, c)).Select
[COLOR=white]______[/COLOR]Else
[COLOR=white]________[/COLOR]rfind1 = rfind1 + 1
[COLOR=white]________[/COLOR]Exit Do
[COLOR=white]______[/COLOR]End If
[COLOR=white]____[/COLOR]Loop
[COLOR=white]__[/COLOR]End If
Loop
End Sub

Sub XoaTrung có đặc điểm:
- Không giới hạn số cột trong vùng chọn, nhưng chỉ xét dữ liệu ở cột đầu tiên của vùng chọn ( biến c)
- Bỏ qua dữ liệu trống, do đó bạn chọn cả cột (65.536 dòng) cũng không ảnh hưởng đến tốc độ làm việc.

DOSNET · 12/10/07

Cám ơn Bác Long, giải pháp này quả là hay, nhưng hình như code chỉ làm việc tốt khi chọn cột đầu tiên, khi em chọn cột khác ngoài cột A thì báo lỗi " Run time error 91". Có bác nào test thử có bị như em không vây?

phamduylong · 12/10/07

phamnhukhang đã viết:
Cám ơn Bác Long, giải pháp này quả là hay, nhưng hình như code chỉ làm việc tốt khi chọn cột đầu tiên, khi em chọn cột khác ngoài cột A thì báo lỗi " Run time error 91". Có bác nào test thử có bị như em không vây?

Xin lỗi các bạn. Do không test kỹ trước khi gởi nên có lỗi trong code. Các bạn tải lại XoaTrung.zip (tôi đã chỉnh lại).
Với bài toán này, tôi thấy nên giải quyết tiếp bước 2 với yêu cầu:
Thường dữ liệu của một mẫu tin (record) liên quan đến nhiều ô trên 1 dòng, nếu xét chỉ riêng 1 ô trùng, chưa chắc mẫu tin đã trùng.

Ví dụ một bảng dữ liệu có các trường STT, Họ tên, Nử, Ngày sinh, Nơi sinh. dữ liệu các mẫu tin như sau:
1, Trần Thanh Thơ, X, 24/05/1990, Đồng Tháp
2, Trần Thanh Thơ, , 20/03/1990, Cần Thơ
3, Nguyễn Văn Thơ, , 12/01/1991, Đồng Tháp
4, Trần Thanh Thơ, X, 24/05/1990, Đồng Tháp

- Nếu xét 1 trường Họ tên, mẫu tin 1, 2, 4 trùng.
- Nếu xét trường Nữ, mẫu tin 1, 4 trùng.
- Nếu xét trường Ngày sinh, mẫu tin 1, 4 trùng.
- Nếu xét trường Nơi sinh, mẫu tin 1, 3, 4 trùng.
- Nếu xét cả 4 trường Họ tên, ..., Nơi sinh, mẫu tin 1, 4 trùng. Đây mới chính là 2 mẫu tin trùng.
Do đó cần phải mở rộng bài toán sang xét tất cả các cột trong vùng dữ liệu. Nếu tất cả đều trùng mới xóa mẫu tin.

dmtdmtbb · 12/10/07

- Cám ơn thầy PDL, giải phám tìm kiếm Find, em đang tìm cách mở rộng thêm để làm thành Add-In, sử lý thêm một số tình huống khác.

npv · 14/10/07

Các bác giải quyết bài toán mở rộng do bác Pham Duy Long đặt ra đi. Em đang làm về số liệu nên rất cần công cụ này. Nhưng mà nếu các bác cho phép lọc ra những thông tin trùng trước khi xoá thì tốt vì nhiều khi cũng cần phải xem lại xem đối tượng bị trùng là những ai và đếm xem bao nhiêu đối tượng bị trùng. Các bác nếu cần file dữ liệu để test thì em sẵn sàng upload nên.

chibi · 14/10/07

npv đã viết:
Các bác nếu cần file dữ liệu để test thì em sẵn sàng upload nên.

Còn chần trừ gì nữa?

Nguyễn Duy Tuân · 14/10/07

phamduylong đã viết:
Để tìm dữ liệu trùng, thay vì dùng vòng lặp để tìm dữ liệu trùng, ta dùng Find sẽ nhanh hơn.
Ví dụ dữ liệu có 1000 dòng. Ố A1 và ô A1000 trùng nhau, vòng lặp phải duyệt qua 999 ô mới phát hiện trùng, còn Find sẽ chỉ ngay ô A1000.

Mã:

Sub XoaTrung() rd = Selection.Row rc = rd + Selection.Rows.Count - 1 c = Selection.Column Range(Cells(rd, c), Cells(rc, c)).Select rfind1 = rd Do While rfind1 < rc [COLOR=white]__[/COLOR]Range(Cells(rfind1, c), Cells(rc, c)).Select [COLOR=white]__[/COLOR]dulieu = Cells(rfind1, c) [COLOR=white]__[/COLOR]If dulieu = "" Then [COLOR=white]____[/COLOR]rfind1 = Cells(rfind1, c).End(xlDown).Row [COLOR=white]____[/COLOR]If rfind1 >= rc Then Exit Sub [COLOR=white]__[/COLOR]Else [COLOR=white]____[/COLOR]Do [COLOR=white]______[/COLOR][COLOR=red][B]rfind2 = Selection.Find(What:=dulieu, After:=Cells(rfind1, c)).Row[/B][/COLOR] [COLOR=white]______[/COLOR]If rfind2 > rfind1 Then [COLOR=white]________[/COLOR]Cells(rfind2, c).EntireRow.Delete [COLOR=white]________[/COLOR]rc = rc - 1 [COLOR=white]________[/COLOR]Range(Cells(rfind1, c), Cells(rc, c)).Select [COLOR=white]______[/COLOR]Else [COLOR=white]________[/COLOR]rfind1 = rfind1 + 1 [COLOR=white]________[/COLOR]Exit Do [COLOR=white]______[/COLOR]End If [COLOR=white]____[/COLOR]Loop [COLOR=white]__[/COLOR]End If Loop End Sub

Sub XoaTrung có đặc điểm:
- Không giới hạn số cột trong vùng chọn, nhưng chỉ xét dữ liệu ở cột đầu tiên của vùng chọn ( biến c)
- Bỏ qua dữ liệu trống, do đó bạn chọn cả cột (65.536 dòng) cũng không ảnh hưởng đến tốc độ làm việc.

Nếu cột A tôi có:
1
10
100
101
300
201
301

Sau khi chạy thủ tục "Xoatrung" thì chỉ còn lại
1
300

Nếu đúng thì không xóa dòng nào cả vì các giá trị đều khác nhau.
Có lẽ không thể dùng Find được.

Nhân đây để tiện cho các bạn kiểm tra tốc độ tính toán, tôi giới thiệu các kiểm tra:

Ở đầu Module khai báo:

Mã:

Public Declare Function GetTickCount Lib "kernel32" () As Long

Trong thủ tục làm như sau

Mã:

Sub Xoatrung1()
    [COLOR="Blue"]'Đầu thủ tục gán[/COLOR]
    T1 = GetTickCount
     ....
     ....
     ....
     [COLOR="Blue"]Cuối thủ tục gán[/COLOR]
    T2 = GetTickCount
    [COLOR="Blue"]MsgBox (T2 - T1) / 1000, vbInformation, "Số giây là"[/COLOR]
End Sub

Với cách trên ta sẽ biết thủ tục hay hàm tiêu tốn hết bao nhiêu giây.

Mr Okebab · 14/10/07

TuanVNUNI đã viết:
Ở đầu Module khai báo:

Mã:

Public Declare Function GetTickCount Lib "kernel32" () As Long

.

Đây là những tuyệt chiêu của các cao thủ, mong bác Tuân có thể nói thêm về những điều này, VD ở topic : Các thủ thuật tăng tốc tính toán chẳng hạn.

Nếu bác đồng ý thì xin đãi bác 1 cốc sữa . . .dê chính hiệu Okebab

Thân!

phamduylong · 14/10/07

TuanVNUNI đã viết:
Nếu cột A tôi có:
1
10
100
101
300
201
301
Sau khi chạy thủ tục "Xoatrung" thì chỉ còn lại
1
300
Nếu đúng thì không xóa dòng nào cả vì các giá trị đều khác nhau.
Có lẽ không thể dùng Find được.

Không có TuanVNUNI phát hiện, mình vẫn tưởng là đúng! Không phải tại Find mà do mình bỏ bớt một số Option của Find để viết cho gọn và không test kỹ các trưởng hợp.
Câu lệnh rfind2 = Selection.Find(What:=dulieu, After:=Cells(rfind1, c)).Row tìm theo điều kiện dễ nhất,sẽ tìm dạng tương tự. Bảo tìm 10 thì 210, 310, 101, 1000, ... đều đúng. Với một số yêu cầu tìm kiếm khác thì đúng, nhưng với yêu cầu tìm dữ liệu trùng thì hoàn toàn sai !

Câu lệnh trên cần sửa lại:
rfind2 = Selection.Find(What:=dulieu, After:=Cells(rfind1, c), LookAt:=xlWhole, SearchOrder:=xlByColumns).Row

Trong câu này có thêm 2 Option hạn chế cách tìm của Find là:

SearchOrder:=xlByColumns (Search By Columns: tìm trong cột)

LookAt:=xlWhole (Match entire cell constents: tìm đúng nội dung trong ô) do thiếu đoạn này mà sai

Nguyễn Duy Tuân · 14/10/07

Mr Okebab đã viết:
Đây là những tuyệt chiêu của các cao thủ, mong bác Tuân có thể nói thêm về những điều này, VD ở topic : Các thủ thuật tăng tốc tính toán chẳng hạn.

Nếu bác đồng ý thì xin đãi bác 1 cốc sữa . . .dê chính hiệu Okebab

Thân!

Tớ đã có bài viết về tăng tốc độ tính toán rồi đó (không nhớ là ở Webketoan hay trên giaiphapexcel nữa). Tuy nhiên các bài viết đó cũng chỉ ở dạng khai thác Excel ở mức cao chứ chưa hẳn là thủ thuật. Không dám gọi là tuyệt chiêu hay thủ thuật nhưng vào một ngày mát trời (nếu trời nóng máy bốc khói thì thành dê thui mất!!! He he) tớ sẽ post thêm một topic về cái tốc độ tính toán trong Excel và VBA. Mong có dịp còn được tắm sữa dê của Mr Okebab nữa --=0

.

Chủ đề này khá thú vị, chúng ta tiếp tục tìm giải pháp cho nó nha!

Mr Okebab · 14/10/07

TuanVNUNI đã viết:
Tớ đã có bài viết về tăng tốc độ tính toán rồi đó (không nhớ là ở Webketoan hay trên giaiphapexcel nữa). Tuy nhiên các bài viết đó cũng chỉ ở dạng khai thác Excel ở mức cao chứ chưa hẳn là thủ thuật. Không dám gọi là tuyệt chiêu hay thủ thuật nhưng vào một ngày mát trời (nếu trời nóng máy bốc khói thì thành dê thui mất!!! He he) tớ sẽ post thêm một topic về cái tốc độ tính toán trong Excel và VBA. Mong có dịp còn được tắm sữa dê của Mr Okebab nữa .

Chủ đề này khá thú vị, chúng ta tiếp tục tìm giải pháp cho nó nha!

Em chỉ dám đãi bác uống thôi, bác lại đòi . . . tắm làm cho dân Sài Gòn khủng hoảng luôn!! !$@!!

Chắc phải đến VinaMilk mượn đỡ mấy . . nàng bò về vắt đỡ. (Dê sữa ít lắm bác ạ) --=0

Hôm nào rảnh thì bác post lên nhé, em đang muốn tham khảo mấy đề tài dạng này đấy, vì các bài ở GPE mới dừng lại ở mức cơ bản. Nhưng bác nhớ là dùng ngôn ngữ . . bình dân học vụ thôi. Chứ hàn lâm quá là . .. bác viết . . . mọi người cùng đọc . . . chỉ mình bác hiểu đấy $:=\+$ $:=\+$

Cảm ơn bác nhiều!!
Thân!

Nguyễn Duy Tuân · 14/10/07

Xóa bản ghi trùng?

Quay lại vấn đề "Xóa dữ liệu trùng" nhé!

Vấn đề đặt ra là tìm và xóa bản ghi (dòng) trong một vùng đã chọn (không phải tìm một ô). Nếu ta chọn vùng là một cột hay nhiều cột thì việc xóa bản ghi vẫn luôn đúng?

Thực ra vấn đề trên sẽ có thể có nhiều giải pháp, cái tôi muốn biết là giải pháp nào thì tốc độ là nhanh nhất? Chúng ta hãy test trên khối dữ liệu lớn nha. Dùng hàm GetTickCount để đo.

Mình cung cấp một thủ tục tạo dữ liệu để test:

Mã:

Sub TaoGiaTri()
On Error GoTo Done
Dim i&, j&, nR&, nC&

Application.EnableEvents = False
Application.ScreenUpdating = False

nR = 10000 'Số dòng
nC = 3 ' Số cột

For i = 1 To nR
    For j = 1 To nC
        Cells(i, j) = i * j 'Gán giá trị
    Next j
Next i
For i = 1 To nR
    For j = 1 To nC
        Cells(i + nR, j) = i * j 'Gán giá trị
    Next j
Next i

Done:

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

Kết quả thủ tục trên ta có bảng dữ liệu gồm 3 cột và 20000 dòng. Nếu chạy thủ tục "Xóa trùng" thì chỉ còn lại 1000 dòng đầu tiên (vì các dòng từ 10001 trở đi là trùng lặp).

Mr Okebab · 14/10/07

Tiếp nữa đi bác ????

dmtdmtbb · 15/10/07

- Đang hồi gây cấn, tiếp nữa đi anh ơi !!!

Nguyễn Duy Tuân · 15/10/07

Mình vẫn đang nghiên cứu vụ này. Bác nào có giải pháp gì thì cứ đưa ra nhé!

phamduylong · 15/10/07

Vấn đề đặt ra là tìm và xóa bản ghi (dòng) trong một vùng đã chọn (không phải tìm một ô). Nếu ta chọn vùng là một cột hay nhiều cột thì việc xóa bản ghi vẫn luôn đúng?

Một cách giải xóa bản ghi khi chọn nhiều cột (từ c1 đến c2)

Dùng vòng lặp Do Loop tìm dữ liệu trùng của các ô trong cột đầu tiên.
__Ví dụ cells(r1,c1) trùng với cells(rn,c1)

- Khi tìm được rn, dùng vòng lặp For Next so sánh 2 ô tương ứng ở dòng r1 và rn từ cột c1 đến c2
For c=c1 to c2
__If cells(r1,c)<>cells(rn,c) then Exit For ‘2 ô dữ liệu khác nhau,thoát vòng lặp
Next
If c>c2 then ‘c>c2 có nghĩa là các ô dòng r1 và rn hoàn toàn giống nhau
__Cells(rn,c1).EntireRow.Delete (xóa dòng rn)
End if

npv · 2/11/07

xin lỗi các bác vì bảo upload file lên mà vẫn chưa làm.
Em có một file ví dụ này mong các bác ra tay giúp đỡ.
Đề bài:
Lọc ra những người có Mã 1 và Mã 2 giống nhau nhưng khác tên. Chú ý: Khi so sánh tên thì bỏ qua chữ viết hoa và không viết hoa. Ví dụ nguyễn văn a và Nguyễn Văn A vẫn coi là tên giống nhau.

adult · 12/7/10

phamduylong đã viết:
Không có TuanVNUNI phát hiện, mình vẫn tưởng là đúng! Không phải tại Find mà do mình bỏ bớt một số Option của Find để viết cho gọn và không test kỹ các trưởng hợp.
Câu lệnh rfind2 = Selection.Find(What:=dulieu, After:=Cells(rfind1, c)).Row tìm theo điều kiện dễ nhất,sẽ tìm dạng tương tự. Bảo tìm 10 thì 210, 310, 101, 1000, ... đều đúng. Với một số yêu cầu tìm kiếm khác thì đúng, nhưng với yêu cầu tìm dữ liệu trùng thì hoàn toàn sai !

Câu lệnh trên cần sửa lại:
rfind2 = Selection.Find(What:=dulieu, After:=Cells(rfind1, c), LookAt:=xlWhole, SearchOrder:=xlByColumns).Row

Trong câu này có thêm 2 Option hạn chế cách tìm của Find là:

SearchOrder:=xlByColumns (Search By Columns: tìm trong cột)

LookAt:=xlWhole (Match entire cell constents: tìm đúng nội dung trong ô) do thiếu đoạn này mà sai

Thầy Long ơi! file này nếu bên trong ô là 1 công thức thì nó sẽ không hoạt động. Thầy có cách nào điều chỉnh lại không ah?
Thanks

SA_DQ · 12/7/10

Hiện Thầy Long đang nằm viện!

Thầy Long ơi! file này nếu bên trong ô là 1 công thức thì nó sẽ không hoạt động. Thầy có cách nào điều chỉnh lại không ah?

Sau đây mình giới thiệu cách xóa dữ liệu từ các ô công thức đem lại:

Ví dụ ta có trang tính sau:

| A | B | C 3 |0|0|
4 |5|1|(Công thức tại [B5]:
5 |10|2| =MOD(A5,4) )
6 |15|3|
7 |20|0|(Tổng quát:
8 |25|1|Công thức tại [Bi]:
9 |30|2| =MOD(Ai,4) )
10 |35|3|
11 |40|0|
12 |45|1|
13 |50|2|
14 |55|3|
15 |60|0|

Macro sau đây sẽ tô màu (hay xóa) các dòng mà tại cột B có trị (do công thức đem lại) bằng 3

PHP:

Option Explicit

Sub DelInFormulas()
 Dim Jj As Long, Rng As Range, sRng As Range:            Dim MyAdd As String
 
 Set Rng = [B65535]
 Set sRng = Range("B3:B15").Find(3, , xlValues, xlWhole)
 If Not sRng Is Nothing Then
   MyAdd = sRng.Address
   Do
      Set Rng = Union(sRng, Rng)
      Set sRng = Range("B3:B15").FindNext(sRng)
   Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
 End If
 Rng.Interior.ColorIndex = 38
' Rng.EntireRow.Delete '
End Sub

Mong rằng mình đã hiểu đúng ý bạn.

Thân ái!

adult · 12/7/10

SA_DQ đã viết:
Sau đây mình giới thiệu cách xóa dữ liệu từ các ô công thức đem lại:

Ví dụ ta có trang tính sau:

| A | B | C 3 |0|0|
4 |5|1|(Công thức tại [B5]:
5 |10|2| =MOD(A5,4) )
6 |15|3|
7 |20|0|(Tổng quát:
8 |25|1|Công thức tại [Bi]:
9 |30|2| =MOD(Ai,4) )
10 |35|3|
11 |40|0|
12 |45|1|
13 |50|2|
14 |55|3|
15 |60|0|

Macro sau đây sẽ tô màu (hay xóa) các dòng mà tại cột B có trị (do công thức đem lại) bằng 3

PHP:

Option Explicit Sub DelInFormulas() Dim Jj As Long, Rng As Range, sRng As Range: Dim MyAdd As String Set Rng = [B65535] Set sRng = Range("B3:B15").Find(3, , xlValues, xlWhole) If Not sRng Is Nothing Then MyAdd = sRng.Address Do Set Rng = Union(sRng, Rng) Set sRng = Range("B3:B15").FindNext(sRng) Loop While Not sRng Is Nothing And sRng.Address <> MyAdd End If Rng.Interior.ColorIndex = 38 ' Rng.EntireRow.Delete ' End Sub

Mong rằng mình đã hiểu đúng ý bạn.

Thân ái!

Thanks bạn rất nhiều! Xem code bạn xong thì mình hiểu chỉ cần thêm xlvalues vào trong hàm find nữa là tìm chính xác giá trị khi đó là 1 công thức

SA_DQ · 12/7/10

SPAM 1 cái, nhờ MOD/SMOD xóa dùm, một khi có ai nhấn nút

Xem xong thì mình hiểu, chỉ cần thêm xlvalues vào trong hàm find nữa là tìm chính xác giá trị khi đó là 1 công thức

FIND() không fải là 1 hàm; Nó là 1 fương thức, bạn à.

Cũng 1 số người như bạn, chứ bạn không fải là duy nhất.

Có không ít fương thức còn trả về giá trị True/False như fương thức Intersect(), . . .

Chúc tuần làm việc vui vẻ & kết quả!

(Bạn nhận được tin nhắn của mình thì nhấn giúp nút cảm ơn; để MOD/SMOD xóa dùm bài này! Xin cảm ơn!)

- Kỹ thuật xóa dữ liệu trùng của các ô, code cực ngắn - có thể làm thành Add-In (1 người xem)

Người dùng đang xem chủ đề này

Biệt danh: xDelx

Hãy cho rồi sẽ nhận!

Thành viên gắn bó

Ngon Ngất Ngây

Thành viên tiêu biểu

Thành viên gắn bó

A - Bờ - Cờ

Thành viên gắn bó

Thành viên tiêu biểu

Thành viên gắn bó

Thành viên tiêu biểu

-

File đính kèm

Thành viên gắn bó

-

Biệt danh: xDelx

Thành viên chính thức

Thành viên tích cực

Nghị Hách

Ngon Ngất Ngây

-

File đính kèm

Nghị Hách

Ngon Ngất Ngây

Nghị Hách

Ngon Ngất Ngây

Biệt danh: xDelx

Nghị Hách

-

Thành viên chính thức

File đính kèm

Thành viên hoạt động

/(hông là gì!

Thành viên hoạt động

/(hông là gì!

Thời gian đếm ngược.