Tìm ô có chứa ngày tháng

[conkienvn]

Pác nào biết được cách tìm tất cả các ô có chứa ngày tháng chỉ giúp với

 

[ChanhTQ@]

Đây là một cách, xài VBA

Option Explicit
Sub DateRange()
 Dim Rng As Range, Clls As Range, dRng As Range
 
35  Set Rng = Union(Cells.SpecialCells(xlCellTypeConstants, 1), _
   Cells.SpecialCells(xlCellTypeFormulas, 1))
 For Each Clls In Rng
   If IsDate(Clls.Value) Then
      If dRng Is Nothing Then
         Set dRng = Clls
      Else
         Set dRng = Union(dRng, Clls)
      End If
   End If
 Next Clls
 MsgBox dRng.Address
End Sub

Chú í: Nó bao gồm cả các ô công thức cho ra kết quả là ngày tháng;
Nếu bạn chỉ cần tìm các ô chứa số liệu ngày tháng thì sửa bớt trong dòng lệnh có quýnh số í nha!