Làm sao để chạy số 0 cho lẹ!

[emgaingayngo]

Em đã viết đoạn mã để điền số 0 vào ô trống, nhưng chạy chậm quá, mong các cao thủ giúp em cho chạy nhanh hơn!

 

[Hai Lúa Miền Tây]

Em đã viết đoạn mã để điền số 0 vào ô trống, nhưng chạy chậm quá, mong các cao thủ giúp em cho chạy nhanh hơn!

Mình chưa mở file bạn lên nhưng theo mình thì dùng cách sau:

Tố khối, nhấn tổ hợp phím Ctrl+G, chọn Special, chọn Blank, nhấn OK, gõ số 0 nhấn Ctrl+Enter là xong.

 

[ndu96081631]

Em đã viết đoạn mã để điền số 0 vào ô trống, nhưng chạy chậm quá, mong các cao thủ giúp em cho chạy nhanh hơn!

Thử code này xem:

Sub AddZero()
  Dim i As Long
  On Error Resume Next
  Application.ScreenUpdating = False
  With ActiveSheet.UsedRange
    For i = 1 To .Columns.Count
      .AutoFilter i, "="
      Intersect(.Offset(1), .Resize(, 1).Offset(, i - 1)).SpecialCells(12).Value = 0
      .AutoFilter
    Next i
  End With
  Application.ScreenUpdating = True
End Sub

Sub DelZero()
  Dim i As Long
  On Error Resume Next
  Application.ScreenUpdating = False
  With ActiveSheet.UsedRange
    For i = 1 To .Columns.Count
      .AutoFilter i, "0"
      Intersect(.Offset(1), .Resize(, 1).Offset(, i - 1)).SpecialCells(12).ClearContents
      .AutoFilter
    Next i
  End With
  Application.ScreenUpdating = True
End Sub

------------------------------------

Mình chưa mở file bạn lên nhưng theo mình thì dùng cách sau:

Tố khối, nhấn tổ hợp phím Ctrl+G, chọn Special, chọn Blank, nhấn OK, gõ số 0 nhấn Ctrl+Enter là xong.

Đố làm được đấy (với file của tác giả)
Dữ liệu này quá lớn, sẽ bị ngay lổi "Selection is too large"