Excel中使用VBA实现日期范围搜索及计数功能的问题求助

核心需求梳理 #

• 点击按钮触发统计操作
• 以输入的起始日期为基准，在日期行找到对应列
• 统计从起始日期列到结束日期列范围内所有单元格中"x"的数量
• 将统计结果写入单元格A2
• 统计范围覆盖从第一个日期列到最后一个有数据的列

实现代码 #

将以下代码绑定到按钮的点击事件中：

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim startDate As Date, endDate As Date
    Dim startCol As Integer, endCol As Integer
    Dim lastCol As Integer
    Dim countX As Integer
    Dim rng As Range, cell As Range
    
    ' 设置操作的工作表（根据实际表名修改）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取起始和结束日期（假设起始日期在B1，结束日期在C1，可根据实际修改）
    startDate = ws.Range("B1").Value
    endDate = ws.Range("C1").Value
    
    ' 找到最后一个有数据的列
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 定位起始日期对应的列
    startCol = 0
    For i = 1 To lastCol
        If ws.Cells(1, i).Value = startDate Then
            startCol = i
            Exit For
        End If
    Next i
    
    ' 定位结束日期对应的列
    endCol = 0
    For i = startCol To lastCol
        If ws.Cells(1, i).Value = endDate Then
            endCol = i
            Exit For
        End If
    Next i
    
    ' 若未找到起始或结束日期，提示并退出
    If startCol = 0 Or endCol = 0 Then
        MsgBox "未找到指定的起始或结束日期"
        Exit Sub
    End If
    
    ' 统计范围内的"x"数量
    countX = 0
    Set rng = ws.Range(ws.Cells(2, startCol), ws.Cells(ws.Rows.Count, endCol))
    For Each cell In rng
        If UCase(cell.Value) = "X" Then ' 不区分大小写统计
            countX = countX + 1
        End If
    Next cell
    
    ' 将结果写入A2
    ws.Range("A2").Value = countX
End Sub

代码说明 #

1. 工作表与日期输入：代码默认操作Sheet1，起始/结束日期分别取B1和C1，请根据你的实际布局修改这些单元格引用。
2. 列定位逻辑：遍历第一行的日期，找到起始和结束日期对应的列索引；若找不到则弹出提示。
3. 范围统计：从起始列到结束列，遍历所有数据行的单元格，不区分大小写统计"x"的数量（若需要严格区分，去掉UCase()即可）。
4. 结果输出：最终统计值写入A2单元格。

使用注意事项 #

• 确保日期行的单元格格式为日期格式，避免因格式不匹配导致无法找到对应列。
• 若数据行有空白行，代码会自动忽略空白单元格的统计。

内容的提问来源于stack exchange，提问作者A Mu