选择当天日期的单元格

Sub LocateToday()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 或者指定工作表，例如: Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    Dim today As Date
    today = Date ' 获取当天日期
    
    Dim cell As Range
    For Each cell In ws.UsedRange ' 遍历工作表中已使用的区域
        If cell.Value = today Then ' 如果单元格的值等于今天的日期
            ' 这里可以添加你想要执行的操作，比如选中单元格
            cell.Offset(3, 0).Select
            Exit For ' 找到后退出循环
        End If
    Next cell
    
    If cell Is Nothing Then
        MsgBox "今天的日期未找到"
    End If
End Sub

来自百度AI……

替换单元格中的空格（删除空格）

[s2].Value = Replace([s2].Value, " ", "")