嘿，我来帮你搞定这两个需求！下面是具体的实现方案：

一、指定范围的计数与打印 #

如果是要在VBA里实现指定数值范围的计数并输出（不管是打印到调试窗口还是工作表单元格），这段代码就能轻松搞定：

Sub CountAndPrint()
    Dim startNum As Integer, endNum As Integer
    Dim i As Integer
    
    ' 你可以随便调整这里的范围，比如改成从5到200
    startNum = 1
    endNum = 100
    
    For i = startNum To endNum
        ' 这行是打印到VBA的立即窗口，方便调试查看
        Debug.Print "当前计数：" & i
        ' 如果要输出到工作表的A列，就把上面那行换成下面这句：
        ' Cells(i, 1).Value = i
    Next i
    
    MsgBox "计数完成啦！"
End Sub

二、Excel宏：日期提取与多列输出 #

针对你提到的H列日期处理需求，我专门写了这个宏，完全匹配你的要求——提取动态范围的日期，同一日期的多个任务依次放到I、J、K等列：

Sub ProcessDatesAndTasks()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dateDict As Object ' 用字典跟踪每个日期的首次出现行号和当前输出列
    Dim currentDate As Variant
    Dim taskText As String
    Dim firstRow As Long
    Dim outputCol As Integer
    Dim i As Long
    
    ' 这里用当前活动工作表，你也可以改成具体表名比如Sheet1
    Set ws = ActiveSheet
    Set dateDict = CreateObject("Scripting.Dictionary")
    
    ' 自动获取H列最后一行有数据的行号，实现动态范围处理
    lastRow = ws.Cells(ws.Rows.Count, "H").End(xlUp).Row
    
    ' 给I、J列加标题（不需要的话可以删掉这两行）
    ws.Cells(3, "I").Value = "事件1"
    ws.Cells(3, "J").Value = "事件2"
    
    For i = 4 To lastRow
        ' 获取当前行的日期（确保取到的是日期值，避免格式问题）
        currentDate = ws.Cells(i, "H").Value
        ' 生成任务文本：这里假设任务内容在B列，你根据截图改列就行，比如A列写"A"
        taskText = ws.Cells(i, "B").Value & " @ " & i
        
        If dateDict.Exists(currentDate) Then
            ' 这个日期之前出现过，取出首次行号和当前输出列
            firstRow = dateDict(currentDate)(0)
            outputCol = dateDict(currentDate)(1) + 1
            
            ' 把任务输出到对应列
            ws.Cells(firstRow, outputCol).Value = taskText
            
            ' 更新字典里的列号，下次再出现就用下一列
            dateDict(currentDate) = Array(firstRow, outputCol)
            
            ' 自动添加后续列标题，比如事件3、事件4
            If ws.Cells(3, outputCol).Value = "" Then
                ws.Cells(3, outputCol).Value = "事件" & (outputCol - 8) ' I列是第9列，9-8=1，刚好对应事件1
            End If
        Else
            ' 日期第一次出现，直接输出到I列
            outputCol = 9 ' I列的列号
            ws.Cells(i, outputCol).Value = taskText
            
            ' 把这个日期的信息存到字典里
            dateDict.Add currentDate, Array(i, outputCol)
        End If
    Next i
    
    MsgBox "日期处理搞定啦！"
End Sub

小提示： #

1. 修改任务列：如果你的任务内容不在B列，把代码里的ws.Cells(i, "B")改成对应的列标识就行，比如A列写"A"，C列写"C"。
2. 使用方法：打开Excel后按Alt+F11打开VBA编辑器，插入新模块，粘贴代码，然后运行宏就OK了。
3. 动态范围：代码会自动识别H列最后一行有数据的位置，不用手动改行号，非常灵活。

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