Excel VBA：行中的最大日期，包括空白单元格答案

【问题标题】：Excel VBA: Max Date in the row including blank cellsExcel VBA：行中的最大日期，包括空白单元格
【发布时间】：2019-09-18 11:17:02
【问题描述】：

Excel VBA：在包含空白单元格的行中查找最大日期的代码

Dim s As Date

s = WorksheetFunction.Max((If IsNotEmpty (CDate(Range("A" & x + 1).Value), CDate(Range("B" & x + 2).Value), CDate(Range("C" & x + 1).Value)))
MsgBox s

我有一个表格，其中大约有 8 个包含日期的列（例如开始日期、结束日期等）。现在对于每一行，一些列是空白的。我必须在每一行中找到最大日期。

enter image description here

【问题讨论】：

哪一行？究竟是什么想法？多用 2-3 句话试试。
您是否打算包含If Not IsEmpty.... Then 之类的内容？如果可能，显示一些示例数据，以准确显示您正在尝试的内容。
我有一个表格，其中大约有 8 个包含日期的列（例如开始日期、结束日期等）。现在对于每一行，一些列是空白的。我必须在每一行中找到最大日期。

标签： excel vba

【解决方案1】：

我建议你这样做：

sub tryme()

For i = 1 To 50
    Max_date = Application.WorksheetFunction.Max(Rows(i))
    if isempty(Max_date) = False then
    MsgBox cDate("The most recent date for row : " & i & "is : " & Max_date)
    end if
Next
end sub

i 是您的行号；你必须设置你的行数，或者用.Count找到它

【讨论】：

不，我收到类型不匹配错误：对于空白单元格“”，它显示类型不匹配并给出值 #12:00:00#

【解决方案2】：

您好，请参阅下面的单元格 A1 到 AA1 的代码，其中还包含空白单元格的日期

Sub maxdaterow()
Max_date = Application.WorksheetFunction.Max(Range("A1:AA1"))
MsgBox Max_date
End Sub

下面的代码可在 A 列中查找最大日期，该列也包含空白单元格

Sub maxdate()
Max_date = Application.WorksheetFunction.Max(Columns("A"))
MsgBox Max_date
End Sub

【讨论】：

我试过这个，我得到类型不匹配 13 错误：值：#12:00:00 AM#

【解决方案3】：

你可以试试：

Option Explicit

Sub test()

    Dim i As Long, y As Long
    Dim dDate As Date

    With ThisWorkbook.Sheets("Sheet1")

        'Loop rows 1-10
        For i = 1 To 10
            'Set a default date
            dDate = "1/1/1900"
            'Loop columns from 1-8
            For y = 1 To 8
                If .Cells(i, y).Value <> "" And .Cells(i, y).Value > dDate Then
                    dDate = .Cells(i, y).Value
                End If
            Next y

            Debug.Print "Max date for row " & i & " is date " & dDate

        Next i

    End With

End Sub

【讨论】：