Cần giúp đỡ tự động xóa ô có chứa số 0,0 (1 người xem)

hung2412 · 27/9/14

Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động xóa dữ liệu các ô ở cột E, F, G, H có chứa số "0,0". Ví dụ: Xóa ô E11 vì ô này có số 0,0.
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm.

bivily · 27/9/14

0.0 đó là các số >0 có chút xíu đó bạn. Bạn dùng hàm ROUND sau đó Copy và dán giá trị là xong thôi mà.

KhanhChi29 · 27/9/14

hung2412 đã viết:
Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động xóa dữ liệu các ô ở cột E, F, G, H có chứa số "0,0". Ví dụ: Xóa ô E11 vì ô này có số 0,0.
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm.

Không hiểu bạn muốn bỏ hẳn kiểu gì
Theo mình thì bạn nên cho nó thành màu trắng khi in ra và nhìn trên màn hình không có là được
Bạn dùng định dạng có điều kiện với điều kiện <=0,001 là được
hoặc xem số 0,001 thay bằng số nào hợp lý hơn

Ba Tê · 27/9/14

hung2412 đã viết:
Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động xóa dữ liệu các ô ở cột E, F, G, H có chứa số "0,0". Ví dụ: Xóa ô E11 vì ô này có số 0,0.
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm.

Thử chạy code này coi sao:

PHP:

Public Sub GPE()
Dim Rng As Range, Cll As Range
Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4)
For Each Cll In Rng
    If Cll.Value < 0.1 Then Cll.Value = Empty
Next Cll
Set Rng = Nothing
End Sub

KhanhChi29 · 27/9/14

bivily đã viết:
0.0 đó là các số >0 có chút xíu đó bạn. Bạn dùng hàm ROUND sau đó Copy và dán giá trị là xong thôi mà.

Bạn quan liệm 0.0... lớn hơn 0 có chút xíu là sai còn tùy thuộc ngữ cảnh
Có khi 0.01 lớn hơn 5 đấy
Mình ví dụ
0,01 tấn > 5 Kg

KhanhChi29 · 27/9/14

Ba Tê đã viết:
Thử chạy code này coi sao:

PHP:

Public Sub GPE() Dim Rng As Range, Cll As Range Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4) For Each Cll In Rng If Cll.Value < 0.1 Then Cll.Value = Empty Next Cll Set Rng = Nothing End Sub

Nhìn vào Code của bác em hiểu nên để định dạng có điều kiện <0.1
Em định dùng lọc rồi xóa nhưng xẽ hơi lâu
Nếu các số dữ liệu cần dùng là dương (không có số 0)
Và bạn Hung2412 muốn xóa hẳn thì nên dùng Code của bác Bate

hung2412 · 27/9/14

KhanhChi29 đã viết:
Không hiểu bạn muốn bỏ hẳn kiểu gì
Theo mình thì bạn nên cho nó thành màu trắng khi in ra và nhìn trên màn hình không có là được
Bạn dùng định dạng có điều kiện với điều kiện <=0,001 là được
hoặc xem số 0,001 thay bằng số nào hợp lý hơn

Mình muốn clear hẳn số 0,0 đó bạn ah. Chứ không phải để nó thành màu trắng như thế. Cảm ơn bạn đã hướng dẫn.

hung2412 · 27/9/14

Ba Tê đã viết:
Thử chạy code này coi sao:

PHP:

Public Sub GPE() Dim Rng As Range, Cll As Range Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4) For Each Cll In Rng If Cll.Value < 0.1 Then Cll.Value = Empty Next Cll Set Rng = Nothing End Sub

Dạ, em xin cảm ơn, nhưng có một vấn đề ở chỗ, code này thích hợp với các số dương, còn số âm thì cũng bị xóa. Em muốn là các ô đích danh chứa số 0,0 đó "bay" hẳn cơ ạ.
P/s: Chỉ những ô đích danh chứa số "0,0" bị "bay" hẳn. Còn các ô khác chứa số gì cũng được (Nghĩa là không đả động đến)

Cá ngừ F1 · 27/9/14

hung2412 đã viết:
Dạ, em xin cảm ơn, nhưng có một vấn đề ở chỗ, code này thích hợp với các số dương, còn số âm thì cũng bị xóa. Em muốn là các ô đích danh chứa số 0,0 đó "bay" hẳn cơ ạ.
P/s: Chỉ những ô đích danh chứa số "0,0" bị "bay" hẳn. Còn các ô khác chứa số gì cũng được (Nghĩa là không đả động đến)

Bạn thử sửa code của thầy BaTê thành thế này

Mã:

[COLOR=#007700][FONT=monospace][I]Public [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Sub GPE[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]()
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Dim Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cll [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range
Set Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]B8[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]], [[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]B65536[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]End[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlUp[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Offset[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I](, [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]3[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Resize[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I](, [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]4[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
For [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Each Cll In Rng
    [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cll[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value =[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I] [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]0.0 Then Cll[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= Empty
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Next Cll
Set Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Nothing
End Sub[/I][/FONT][/COLOR]

hung2412 · 27/9/14

KhanhChi29 đã viết:
Không hiểu bạn muốn bỏ hẳn kiểu gì
Theo mình thì bạn nên cho nó thành màu trắng khi in ra và nhìn trên màn hình không có là được
Bạn dùng định dạng có điều kiện với điều kiện <=0,001 là được
hoặc xem số 0,001 thay bằng số nào hợp lý hơn

Nếu làm như bạn thì bị ẩn hết khi ô nhỏ hơn 0,01. Nếu trong trường hợp có số âm thì cũng bị ẩn mất. Không ổn bạn ah.

hung2412 · 27/9/14

Cá ngừ F1 đã viết:

Bạn thử sửa code của thầy BaTê thành thế này

Mã:

[COLOR=#007700][FONT=monospace][I]Public [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Sub GPE[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]()
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Dim Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cll [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range
Set Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]B8[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]], [[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]B65536[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]End[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlUp[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Offset[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I](, [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]3[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Resize[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I](, [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]4[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
For [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Each Cll In Rng
    [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cll[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value =[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]0.0 Then Cll[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= Empty
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Next Cll
Set Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Nothing
End Sub[/I][/FONT][/COLOR]

Sau khi chạy code, thì kết quả là các ô có số 0,0 đó vẫn được giữ nguyên ạ, không hề bị xóa.

bivily · 27/9/14

Sao bạn không chịu dùng hàm ROUND như mình nói, ở đây mình dùng ROUND với num_digits = 5 (bạn có thể thay bằng 1 số khác cho phù hợp). Bạn xem bản tính đính kèm nhé! Ở đây cột E mình chuyển thành ở cột J, F->K, G->L và H->M. Bạn Copy và dán giá trị ngược lại cho các cột E:H là được

Cá ngừ F1 · 27/9/14

hung2412 đã viết:
Sau khi chạy code, thì kết quả là các ô có số 0,0 đó vẫn được giữ nguyên ạ, không hề bị xóa.

Tôi xem file thì thực tế số 0.0 đấy không phải là số 0, vậy thầy Batê mới để code <0.1
Nếu không muốn xóa những số <0, thì thêm điều kiện and vào

Mã:

Public Sub GPE()Dim Rng As Range, Cll As Range
Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4)
For Each Cll In Rng
    If Cll.Value < 0.1 And Cll.Value > -0.1 Then Cll.Value = Empty
Next Cll
Set Rng = Nothing
End Sub

hung2412 · 27/9/14

bivily đã viết:
Sao bạn không chịu dùng hàm ROUND như mình nói, ở đây mình dùng ROUND với num_digits = 5 (bạn có thể thay bằng 1 số khác cho phù hợp). Bạn xem bản tính đính kèm nhé! Ở đây cột E mình chuyển thành ở cột J, F->K, G->L và H->M. Bạn Copy và dán giá trị ngược lại cho các cột E:H là được

Cách của bạn rất cool, để mình áp dụng vào công việc.

Ba Tê · 27/9/14

hung2412 đã viết:
Dạ, em xin cảm ơn, nhưng có một vấn đề ở chỗ, code này thích hợp với các số dương, còn số âm thì cũng bị xóa. Em muốn là các ô đích danh chứa số 0,0 đó "bay" hẳn cơ ạ.
P/s: Chỉ những ô đích danh chứa số "0,0" bị "bay" hẳn. Còn các ô khác chứa số gì cũng được (Nghĩa là không đả động đến)

Bạn xem kỹ lại cột E:
E11= 4,54747350886464E-13
E12= -4,54747350886464E-13
E13= -9,09494701772928E-13
...........
"Đích danh" là sao khi bản chất nó không phải là 0,0?
Tất cả đều "nhìn thấy" là 0,0, giờ bạn muốn xoá cái nào, cái nào giữ nguyên?
Khó hiểu quá.
Nếu muốn "thấy sao tính vậy" thì thử chiêu này coi sao:

PHP:

Public Sub GPE()
Dim Rng As Range, Cll As Range
Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4)
For Each Cll In Rng
    If Cll.Text = 0# Then Cll.Value = Empty
Next Cll
Set Rng = Nothing
End Sub

hung2412 · 27/9/14

Cá ngừ F1 đã viết:
Tôi xem file thì thực tế số 0.0 đấy không phải là số 0, vậy thầy Batê mới để code <0.1
Nếu không muốn xóa những số <0, thì thêm điều kiện and vào

Mã:

Public Sub GPE()Dim Rng As Range, Cll As Range Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4) For Each Cll In Rng If Cll.Value < 0.1 And Cll.Value > -0.1 Then Cll.Value = Empty Next Cll Set Rng = Nothing End Sub

Vâng, em đã rõ ạ. Để em áp dụng vào công việc.

hung2412 · 27/9/14

Ba Tê đã viết:
Bạn xem kỹ lại cột E:
E11= 4,54747350886464E-13
E12= -4,54747350886464E-13
E13= -9,09494701772928E-13
...........
Tất cả đều "nhìn thấy" là 0,0, giờ bạn muốn xoá cái nào, cái nào giữ nguyên?
Khó hiểu quá.

Dạ, các ô như thầy vừa nói đều hiển thị là 0,0. Em muốn các ô đó bị "bay" hết ạ.
P/s: Các ô đó bị lỗi hay sao ấy. Đều hiển thị là 0,0.

hung2412 · 27/9/14

Cá ngừ F1 đã viết:
Tôi xem file thì thực tế số 0.0 đấy không phải là số 0, vậy thầy Batê mới để code <0.1
Nếu không muốn xóa những số <0, thì thêm điều kiện and vào

Mã:

Public Sub GPE()Dim Rng As Range, Cll As Range Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4) For Each Cll In Rng If Cll.Value < 0.1 And Cll.Value > -0.1 Then Cll.Value = Empty Next Cll Set Rng = Nothing End Sub

Code này rất hay, nhưng em muốn chặt chẽ hơn nữa là chỉ những ô chứa đích danh dạng "0,0" đó bị xóa thôi ạ.

hung2412 · 27/9/14

Dạ, cảm ơn chư vị đã chỉ giáo. Sau khi nghiên cứu, kết hợp, chỉnh sửa => em đã chọn được phương án tối ưu. Làm phiền chư vị quá.

Cá ngừ F1 · 27/9/14

Nếu bạn định dạng lại, thực tế số 0.0 là những con số rất nhỏ
Nếu muốn chính xác hơn nữa thì chỉ cần trong khoảng 0.00001 và -0.00001

hung2412 · 27/9/14

Cá ngừ F1 đã viết:
Nếu bạn định dạng lại, thực tế số 0.0 là những con số rất nhỏ
Nếu muốn chính xác hơn nữa thì chỉ cần trong khoảng 0.00001 và -0.00001

Vâng, đúng như anh nói, số 0,0 đó rất nhỏ. Chỉ cần thu hẹp khoảng cách như vầy sẽ ổn.

hoanglocphat · 27/9/14

Cá ngừ F1 đã viết:
Tôi xem file thì thực tế số 0.0 đấy không phải là số 0, vậy thầy Batê mới để code <0.1
Nếu không muốn xóa những số <0, thì thêm điều kiện and vào

Mã:

Public Sub GPE()Dim Rng As Range, Cll As Range Set Rng = Range([B8], [B65536].End(xlUp)).Offset(, 3).Resize(, 4) For Each Cll In Rng If Cll.Value < 0.1 And Cll.Value > -0.1 Then Cll.Value = Empty Next Cll Set Rng = Nothing End Sub

Chào các bạn!
Các bạn có thể giúp cải tiến code trên . Vì File có vài chục ngàn dòng thì code trên chạy rất lâu
Xin cảm ơn!

Cá ngừ F1 · 27/9/14

hoanglocphat đã viết:
Chào các bạn!
Các bạn có thể giúp cải tiến code trên . Vì File có vài chục ngàn dòng thì code trên chạy rất lâu
Xin cảm ơn!

Đưa file và nêu yêu cầu xem sao bạn?

nvson · 27/9/14

Nếu dùng thủ công: Tại sao bạn không dùng chức năng filter có sẵn của Excel? Còn nếu dùng VBA thì cũng nên sử dụng chức năng Filter để xóa dữ liệu. Đảm bảo chạy nhanh không ngờ!!!!!

huy vu · 27/9/14

nvson đã viết:
Nếu dùng thủ công: Tại sao bạn không dùng chức năng filter có sẵn của Excel? Còn nếu dùng VBA thì cũng nên sử dụng chức năng Filter để xóa dữ liệu. Đảm bảo chạy nhanh không ngờ!!!!!

Anh nvson có thể chia sẻ thêm cách làm filter rồi xóa bằng vba đc không ạ?
Em cảm ơn

nvson · 27/9/14

Bạn tham khảo cóe sau:

Mã:

Option Explicit
Sub thu_xoa()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Dim i, n, m
    n = Range("A65536").End(xlUp).Row
    
    Rows("7:7").Select
    Selection.AutoFilter
    
        
    For i = 1 To 4
        ActiveSheet.Range("$A$7:$H$" & n).AutoFilter Field:=i + 4, Criteria1:="<=0.01"
        m = Range("A65536").End(xlUp).Row
        If m > 7 Then
            Range("A8:A" & n).Offset(0, i + 3).Select
            Selection.ClearContents
            ActiveSheet.ShowAllData
        End If
        
    Next i
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
End Sub

KhanhChi29 · 27/9/14

nvson đã viết:

Bạn tham khảo cóe sau:

Mã:

Option Explicit
Sub thu_xoa()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Dim i, n, m
    n = Range("A65536").End(xlUp).Row
    
    Rows("7:7").Select
    Selection.AutoFilter
    
        
    For i = 1 To 4
        ActiveSheet.Range("$A$7:$H$" & n).AutoFilter Field:=i + 4, Criteria1:="<=0.01"
        m = Range("A65536").End(xlUp).Row
        If m > 7 Then
            Range("A8:A" & n).Offset(0, i + 3).Select
            Selection.ClearContents
            ActiveSheet.ShowAllData
        End If
        
    Next i
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
End Sub

Đúng là cách này sẽ nhanh hơn
Nếu không muốn xóa thì dùng định dạng có điều kiện cho thành màu trắng với điều kiện như code của Cangu
< 0.1 And > -0.1

hoanglocphat · 29/9/14

Cá ngừ F1 đã viết:
Đưa file và nêu yêu cầu xem sao bạn?

Đây là file thực tế (File này tôi lấy trên diễn đàn, thực tế file của tôi khá nặng khỏang 10Mb và do chạy code nên hay tạo ra các số Epsilon)
Tôi đã áp dụng code trên , nhưng nó chạy đến hơn 32 s! Nếu kết hợp chạy đồng thời các code khác thì rất lâu.
Các bạn giúp tôi code nào để có thể chạy nhanh hơn, tôi thấy các bạn hay dùng Dic hay mảng gì đó! kg biết có thể áp dụng được không?
Tôi muốn xóa các số Epsilon (hay các số nhỏ hơn 0,001 cũng được) từ cột D đến cột J, từ dòng thứ 11 trở xuống (các ô có tô màu đỏ là cần xóa)
Nhờ các bạn viết giúp code giùm, xin cảm ơn!

Ba Tê · 29/9/14

hoanglocphat đã viết:
Đây là file thực tế (File này tôi lấy trên diễn đàn, thực tế file của tôi khá nặng khỏang 10Mb và do chạy code nên hay tạo ra các số Epsilon)
Tôi đã áp dụng code trên , nhưng nó chạy đến hơn 32 s! Nếu kết hợp chạy đồng thời các code khác thì rất lâu.
Các bạn giúp tôi code nào để có thể chạy nhanh hơn, tôi thấy các bạn hay dùng Dic hay mảng gì đó! kg biết có thể áp dụng được không?
Tôi muốn xóa các số Epsilon (hay các số nhỏ hơn 0,001 cũng được) từ cột D đến cột J, từ dòng thứ 11 trở xuống (các ô có tô màu đỏ là cần xóa)
Nhờ các bạn viết giúp code giùm, xin cảm ơn!

Từ code giải quyết từng Cell của bạn:

PHP:

Public Sub Xoaepxilong_No()
Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
Dim Rng As Range, Cll As Range
Dim StartTime As Double
    StartTime = Timer
Set Rng = Range([B11], [B65536].End(xlUp)).Offset(, 2).Resize(, 7)
For Each Cll In Rng
    If Cll.Value < 0.1 And Cll.Value > -0.1 Then Cll.Value = Empty
Next Cll
Set Rng = Nothing

Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    MsgBox Format(Timer - StartTime, "00.000") & " giây."
End Sub

Thử chuyển xài code giải quyết trong mảng rồi gán xuống sheet xem sao

PHP:

Public Sub Xoaxoa()
Dim Arr(), I As Long, J As Long, R As Long, t As Variant
t = Timer
R = [D65536].End(xlUp).Row
Arr = Range("D11:J" & R).Value2
For I = 1 To UBound(Arr, 1)
    For J = 1 To 7
        If Arr(I, J) < 0.01 Then Arr(I, J) = Empty
    Next J
Next I
Range("D11:J" & R) = Arr
MsgBox Timer - t
End Sub

hoanglocphat · 30/9/14

Em cảm ơn Thầy ba Tê nhiều!

Cần giúp đỡ tự động xóa ô có chứa số 0,0 (1 người xem)

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

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

File đính kèm

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

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

File đính kèm

Cạo Rồi Khỏi Gội

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

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

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

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

( ͡° ͜ʖ ͡°)

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

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

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

File đính kèm

( ͡° ͜ʖ ͡°)

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

Cạo Rồi Khỏi Gội

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

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

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

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

( ͡° ͜ʖ ͡°)

File đính kèm

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

Thành viên thường trực

( ͡° ͜ʖ ͡°)

Geotechnics

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

Geotechnics

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

Thành viên thường trực

File đính kèm

Cạo Rồi Khỏi Gội

Thành viên thường trực

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