如何为每日生成的Excel补全缺失小时行并合并至主表？

每天会生成一个.xlsx文件，包含前一天每小时的统计数据明细，部分小时可能没有记录（比如有的文件缺2、4小时的数据，有的可能覆盖0-23全时段）。最终目标是制作一张主电子表格：A列包含0-23所有小时对应的行，后续列以日期为表头，对应小时填入数据，无数据则填0或留空。目前能完成文件合并，但无法补全缺失的小时行，需要解决合并前如何补全缺失时段行的问题，可通过PowerShell脚本或Excel模板实现。

输入示例 #

Day 1数据 #

Day 2数据 #

预期输出 #

解决方案 #

方法一：PowerShell脚本批量补全缺失行 #

先通过脚本给每个Excel文件补全0-23小时的完整行，缺失数据填0，之后再合并文件。

1. 先安装PowerShell的ImportExcel模块（需以管理员身份运行PowerShell）：

Install-Module -Name ImportExcel -Scope CurrentUser -Force

2. 执行以下脚本处理文件：

# 替换为你的Excel文件存放路径
$folderPath = "C:\YourExcelFiles"
# 获取所有xlsx文件
$excelFiles = Get-ChildItem -Path $folderPath -Filter *.xlsx

foreach ($file in $excelFiles) {
    # 读取原始数据
    $rawData = Import-Excel -Path $file.FullName
    # 生成0-23小时的完整模板，默认Data为0
    $fullHourData = 0..23 | ForEach-Object {
        [PSCustomObject]@{ Hour = $_; Data = 0 }
    }

    # 将原始数据匹配到完整模板中
    foreach ($row in $rawData) {
        $matchRow = $fullHourData | Where-Object { $_.Hour -eq $row.Hour }
        if ($matchRow) { $matchRow.Data = $row.Data }
    }

    # 保存处理后的文件（前缀加Processed区分）
    $outputPath = Join-Path $folderPath "Processed_$($file.Name)"
    $fullHourData | Export-Excel -Path $outputPath -AutoSize -FreezeTopRow
}

处理完成后，直接合并所有带Processed_前缀的文件即可。

方法二：Excel模板+VLOOKUP批量补全 #

制作带0-23小时的模板，用公式自动匹配每日数据，缺失值填0。

手动处理步骤

1. 新建模板文件：A列输入0-23的小时数（A2:A24，A1单元格写Hour），B1单元格写Data。
2. 打开当日原始数据文件，复制包含表头的数据区域。
3. 在模板的空白工作表（如Sheet2）粘贴数据。
4. 在模板Sheet1的B2单元格输入公式：=IFERROR(VLOOKUP(A2,Sheet2!$A:$B,2,FALSE),0)，下拉填充到B24。
5. 将模板另存为当日处理后的文件，重复操作所有文件后合并。

批量处理VBA宏

若文件数量多，可录制宏或直接使用以下代码：

Sub BatchProcessHourData()
    Dim sourceFolder As String, targetFolder As String
    Dim sourceBook As Workbook, targetBook As Workbook
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim fileName As String, i As Integer

    ' 替换为你的源文件、目标文件、模板路径
    sourceFolder = "C:\SourceFiles\"
    targetFolder = "C:\ProcessedFiles\"
    templatePath = "C:\Templates\HourTemplate.xlsx"

    ' 遍历所有xlsx文件
    fileName = Dir(sourceFolder & "*.xlsx")
    Do While fileName <> ""
        Set sourceBook = Workbooks.Open(sourceFolder & fileName)
        Set wsSource = sourceBook.Sheets(1)

        ' 打开模板文件
        Set targetBook = Workbooks.Open(templatePath)
        Set wsTarget = targetBook.Sheets(1)

        ' 复制源数据到模板的Sheet2
        wsSource.UsedRange.Copy targetBook.Sheets("Sheet2").Range("A1")

        ' 填充公式补全数据
        For i = 2 To 24
            wsTarget.Cells(i, 2).Formula = "=IFERROR(VLOOKUP(A" & i & ",Sheet2!$A:$B,2,FALSE),0)"
        Next i

        ' 保存处理后的文件
        targetBook.SaveAs targetFolder & "Processed_" & fileName
        targetBook.Close SaveChanges:=False
        sourceBook.Close SaveChanges:=False

        fileName = Dir()
    Loop
End Sub

提前制作好模板文件（Sheet1含0-23小时，Sheet2为空），执行宏即可批量处理所有文件。

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