如何在Excel工作表中仅search和编辑“datetypes”单元格

我有这个代码

Sub fill() Dim rg As Range Set rg = Range("a1") Set rg = Range(rg, Cells(ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1, rg.Column)) On Error Resume Next Set rg = rg.SpecialCells(xlCellTypeBlanks) On Error GoTo 0 If Not rg Is Nothing Then rg.Value = "1/1/2020" End If End Sub 

但它不能按我的想法工作。

我需要在整个Excel工作表范围（a1：bj1223）中search并检查所有'datetypes'单元格。 当它发现一个单元格是“datetypes”，它是空的，我需要在这个单元格中添加值“1/1/2020”。

谢谢

Answer 1

这是你正在尝试？ 这将首先查找空白单元格，然后检查该范围内的每个单元格是否为特定格式"dd/mm/yyyy"更改该单元格。

 Sub Sample() Dim rng As Range, aCell As Range Dim blnkCells As Range Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:BJ1223") On Error Resume Next Set blnkCells = rng.SpecialCells(xlCellTypeBlanks) On Error GoTo 0 If Not blnkCells Is Nothing Then For Each aCell In blnkCells If aCell.NumberFormat = "dd/mm/yyyy" Then aCell.Value = "1/1/2020" Next aCell End If End Sub