如何将Excel年度8760条小时级数据转换为分钟步长数据

需求说明 #

现有存储年度逐小时数据的Excel文件，全年共计8760条小时值记录，需转换为分钟步长格式：将每条小时值重复填充至对应的60个单元格中，最终输出总计525600条的分钟级步长数据。
此前尝试多种实现方式均未成功，以下为两种验证可用的实现方案：

方案一：VBA宏批量处理 #

打开Excel文件后按Alt+F11调出VBA编辑器，插入新模块后粘贴以下代码，修改对应工作表名、行列偏移参数后运行即可：

Sub test()

Worksheets("MySheet").Activate

Dim i As Double '分钟步长循环变量
Dim j As Integer '小时数据循环变量
Dim k As Double

k = 0 '行定位变量初始化

Dim Var1 As Single
Dim Var2 As Single

    For j = 1 To 8760
        ' 读取原表对应列值：示例为H列存储小时值、G列存储分钟标识
        Var1 = Cells(j, 8).Value 
        Var2 = Cells(j, 7).Value 

        ' 单条小时数据重复填充60行，对应每小时60分钟
        For i = 1 To 60
            k = k + 1
            ' 示例为从第4行开始写入，J列存小时值、I列存分钟标识，可按需调整列号、行偏移量
            Cells(k + 3, 10) = Var1 
            Cells(k + 3, 9) = Var2 
        Next i
    Next j 
End Sub

提示：如果你的原表带表头、数据不是从第1行起始，只需要调整循环的j起始值、写入位置的k+3偏移量即可，核心循环逻辑无需改动。

方案二：无代码公式实现 #

不需要编写脚本，直接使用Excel内置的INDEX函数即可完成转换，操作逻辑如下：

• 新建空白工作表作为分钟级数据存储页
• 在第一行需要填充对应值的单元格输入INDEX公式，核心逻辑是用当前行号除以60向上取整，匹配原小时表的对应行号自动取数
• 通用公式示例（原小时数据存在Sheet1的H列，第1行起为有效数据，分钟表从第1行开始填充）：=INDEX(Sheet1!H:H,ROUNDUP(ROW()/60,0))
• 公式输入完成后，选中单元格直接下拉填充到525600行即可，其余字段列按相同逻辑替换引用的原表列号即可完成全量转换。

内容的提问来源于stack exchange，提问作者Clément