Xác định blank lớn nhất .... (1 người xem)

[hungold]

Tôi có một vấn đề muốn nhờ mọi người giúp đỡ. Đó là làm thế nào để có thể xác định được số khoảng trống lớn nhất trong tất cả các khoảng trống của 1 dòng hay một cột nào đó. Để mọi người dễ hình dung, tôi có gửi đính kèm file. Cảm ơn nhiều nhiều.....

 

[volga]

Tôi có một vấn đề muốn nhờ mọi người giúp đỡ. Đó là làm thế nào để có thể xác định được số khoảng trống lớn nhất trong tất cả các khoảng trống của 1 dòng hay một cột nào đó. Để mọi người dễ hình dung, tôi có gửi đính kèm file. Cảm ơn nhiều nhiều.....

Bạn đến đây tham khảo link này đi ,xem có giúp gì cho bạn không .

 

[huuthang_bd]

Tôi có một vấn đề muốn nhờ mọi người giúp đỡ. Đó là làm thế nào để có thể xác định được số khoảng trống lớn nhất trong tất cả các khoảng trống của 1 dòng hay một cột nào đó. Để mọi người dễ hình dung, tôi có gửi đính kèm file. Cảm ơn nhiều nhiều.....

Cách đơn giản nhất là dùng cột phụ.

 

[ndu96081631]

Dùng 1 UDF cho nó lẹ vậy:

Function MaxBlank(Vung As Range) As Long
  Dim Max As Long, Clls As Range
  For Each Clls In Vung
    If IsEmpty(Clls) Then
      Max = Max + 1
    Else
      If MaxBlank < Max Then MaxBlank = Max
      Max = 0
    End If
  Next
End Function

 

[BUiHoc2012]

Dùng 1 UDF cho nó lẹ vậy:

Function MaxBlank(Vung As Range) As Long
  Dim Max As Long, Clls As Range
  For Each Clls In Vung
    If IsEmpty(Clls) Then
      Max = Max + 1
    Else
      If MaxBlank < Max Then MaxBlank = Max
      Max = 0
    End If
  Next
End Function

Hàm này của bạn mình thử thấy có hạn chế như sau: ví dụ cột A cần xét mà cột A lại là xác định bằng công thức IF ra kết quả "" hoặc số thì nó vẫn không nhận ô trống, có gì mong bạn chỉ bảo thêm.

 

[ndu96081631]

Hàm này của bạn mình thử thấy có hạn chế như sau: ví dụ cột A cần xét mà cột A lại là xác định bằng công thức IF ra kết quả "" hoặc số thì nó vẫn không nhận ô trống, có gì mong bạn chỉ bảo thêm.

Thì sửa đoạn:
If IsEmpty(Clls) Then
Thành
If Clls.Value = "" Then