如何选定日期最大的区域

crega123

我想把J列最大日期（即2019-01-29）的区域选定，请老师们帮我修改一下代码：
Sub aa()
    Dim C As Range
    wt = Format(Range("j2:j30"), "yyyymmdd")
    Set C = Range("j2:j30").Find(CDate(Application.WorksheetFunction.Max(Range("j2:j30"))), , LookIn:=xlValues, lookat:=xlWhole)
    If Not C Is Nothing Then
        C.Select
    End If
End Sub

蓝桥玄霜

需要把J列的格式改为日期自定义格式，现在的是常规格式。
代码如下，不用find

crega123

蓝桥玄霜 发表于 2020-3-13 08:46
需要把J列的格式改为日期自定义格式，现在的是常规格式。
代码如下，不用find

你好，不行吖，没反应

YZC51

向老师学习下。谢谢老师！

crega123

蓝桥玄霜 发表于 2020-3-13 08:46
需要把J列的格式改为日期自定义格式，现在的是常规格式。
代码如下，不用find

这个代码把时间去掉就行，要手动先去掉时间，如何不用去掉日期后面时间怎么改代码：
Sub aa()
    Dim wt, rng As Range
    Range("j2:j30").NumberFormatLocal = "yyyy-m-d"
    wt = CDate(Application.WorksheetFunction.Max(Range("j2:j30")))
    For i = 2 To 30
        If Range("j" & i).Value = wt Then
            If rng Is Nothing Then
                Set rng = Range("j" & i)
                Else
                Set rng = Union(rng, Range("j" & i))
                rng.Select
            End If
        End If
    Next
End Sub

crega123

YZC51 发表于 2020-3-13 13:53
向老师学习下。谢谢老师！

Sub aa()
    Dim wt, rng As Range, qc As Range, wc As Range
    Range("j2:j30").NumberFormatLocal = "yyyy-m-d"
    wt = CDate(Application.WorksheetFunction.Max(Range("j2:j30")))
    For i = 2 To 30
        If Range("j" & i).Value = wt Then
            If rng Is Nothing Then
                Set rng = Range("j" & i)
            Else
                Set rng = Union(rng, Range("j" & i))
                rng.Select
                a = Selection.Rows(1).Row()
                b = Selection.End(xlDown).Row()
                Range(Cells(a, 1), Cells(b, 11)).Select
            End If
        End If
    Next
End Sub
这个代码行，但是不知如何把时间去掉，留下日期值，我是用手工方法，用分列选项把时间分开的。

YZC51

试试
Sub aa()
    Dim wt, rng As Range, qc As Range, wc As Range
    Range("j2:j30").NumberFormatLocal = "0_);[红色](0)"
    Range("j2:j30") = Range("j2:j30").Value
    wt = Application.Max(Range("j2:j30"))
    For i = 2 To 30
        If Int(Range("j" & i)) = Int(wt) Then
            If rng Is Nothing Then
                Set rng = Range("j" & i)
            Else
                Set rng = Union(rng, Range("j" & i))
                rng.Select
                a = Selection.Rows(1).Row()
                b = Selection.End(xlDown).Row()
                Range(Cells(a, 1), Cells(b, 11)).Select
            End If
        End If
    Next
End Sub