技术求助：合并工作表导入数组遇阻，报告格式修复存难题

我来帮你搞定这些让人头疼的格式问题，按以下步骤逐一解决：

一、先搞定合并单元格，把虚高的29000行压缩到实际850行 #

合并单元格是导致行数虚高的核心原因，取消合并后必须把内容填充到每个空单元格，再删除多余空行，这里给两种实用方法：

方法1：用VBA一键处理（最快） #

直接运行这段脚本，自动取消合并、填充内容、删除空行：

Sub UnmergeAndFill()
    Dim rng As Range
    Dim cell As Range
    Set rng = ActiveSheet.UsedRange
    
    ' 取消所有单元格合并
    rng.UnMerge
    
    ' 把空单元格填充为上方单元格的值
    For Each cell In rng
        If cell.Value = "" And cell.Row > 1 Then
            cell.Value = cell.Offset(-1, 0).Value
        End If
    Next cell
    
    ' 清理剩余的空行
    On Error Resume Next ' 防止没有空行时报错
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0
End Sub

操作：按Alt+F11打开VBA编辑器，插入模块，粘贴代码，运行即可。

方法2：Power Query可视化操作（不用写代码） #

适合怕VBA的同学：

1. 选中你的数据区域，点击「数据」选项卡 → 「从表格/区域」（Excel 2016及以后版本）
2. 在Power Query编辑器里，选中所有有合并单元格的列，点击「转换」→ 「填充」→ 「向下」
3. 点击「主页」→ 「关闭并上载」，把清理好的数据导回Excel
4. 最后手动删除剩余的空行就行

二、解决数组导入内容缺失的问题 #

你之前导入数组时出现缺失，大概率是因为没先清理数据——合并单元格取消后很多单元格是空的，数组会把这些空值也导进去，看起来像内容丢了。

正确步骤：先运行上面的清理脚本，再导入数组，用这段代码：

Sub ImportCleanDataToArray()
    Dim cleanData As Variant
    Dim lastRow As Long, lastCol As Long
    
    ' 先清理数据
    Call UnmergeAndFill
    
    ' 获取实际有效数据的范围
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    lastCol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 导入有效数据到数组
    cleanData = ActiveSheet.Range(Cells(1, 1), Cells(lastRow, lastCol)).Value
    
    ' 验证一下数组内容（可选）
    MsgBox "数组已导入，共" & UBound(cleanData, 1) & "行，" & UBound(cleanData, 2) & "列"
End Sub

这样导入的数组就只有实际的850行左右有效数据，不会有缺失了。

三、合并多个工作表到数组的操作方案 #

如果要把多个工作表的数据合并到一个数组里，同样要先清理每个工作表的数据，再批量导入：

Sub MergeSheetsToArray()
    Dim ws As Worksheet
    Dim allData As Variant
    Dim tempData As Variant
    Dim totalRows As Long, currentRow As Long
    Dim lastRow As Long, lastCol As Long
    
    ' 第一步：计算所有工作表的有效总行数
    totalRows = 0
    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        Call UnmergeAndFill ' 先清理每个工作表
        lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
        totalRows = totalRows + lastRow
    Next ws
    
    ' 初始化总数组（这里假设最多100列，可根据你的实际列数调整）
    ReDim allData(1 To totalRows, 1 To 100)
    currentRow = 1
    
    ' 第二步：遍历所有工作表，把数据导入总数组
    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
        lastCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column
        tempData = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol)).Value
        
        ' 把临时数组的内容复制到总数组
        ' 如果要跳过表头，把i=1改成i=2
        For i = 1 To UBound(tempData, 1)
            For j = 1 To UBound(tempData, 2)
                allData(currentRow, j) = tempData(i, j)
            Next j
            currentRow = currentRow + 1
        Next i
    Next ws
    
    MsgBox "所有工作表数据已合并到数组，共" & currentRow - 1 & "行"
End Sub

提示：如果每个工作表都有表头，记得把内层循环的i=1改成i=2，避免重复导入表头。

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