Excel VBA按日期求和行数

Sub SumRowsByDate()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dateColumn As Range
    Dim sumColumn As Range
    Dim dateCell As Range
    Dim sum As Double
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 设置日期列和求和列的范围
    Set dateColumn = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) ' 将"A"替换为实际的日期列
    Set sumColumn = ws.Range("B2:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row) ' 将"B"替换为实际的求和列
    
    ' 遍历日期列并按日期求和
    For Each dateCell In dateColumn
        If IsDate(dateCell.Value) Then ' 检查单元格是否包含日期
            If DateValue(dateCell.Value) = DateValue(Date) Then ' 将"Date"替换为实际的目标日期
                sum = sum + sumColumn.Cells(dateCell.Row - 1, 1).Value ' 将"1"替换为实际的求和列的索引
            End If
        End If
    Next dateCell
    
    ' 显示求和结果和行数
    MsgBox "按日期求和结果为: " & sum & vbCrLf & "行数为: " & dateColumn.Rows.Count - 1 ' 将"1"替换为实际的日期列的索引
End Sub