无法将合并的工作表拖入数组

Question

我提取的报告设置非常糟糕，我尝试修复它并不顺利。

我已经完成了大量工作，但是在所使用的范围内取消所有单元格是相当困难的，因为由于某种原因，当报表被转换时，它会报告自己拥有29,000行数据（这里有）真的在~850）。

我的解决方法是简单地将整个表单拉成一个数组，认为所有单元格都将正确地取消合并/播放。相反，该阵列似乎正在削减整列数据。

有没有一种有效的方法可以解决这个问题？

请在下面找到我目前的代码。

If wbLoop.Name = "Report.xlsx" Then

        If wbLoop.Sheets(1).Cells(1, 1).Value2 = "" Then wbLoop.Sheets(1).Cells(1, 1).EntireColumn.Delete

        Do Until wbLoop.Sheets(1).Cells(1, 1).Value2 = "Finance1"
            wbLoop.Sheets(1).Cells(1, 1).EntireRow.Delete
        Loop

        arrReport() = wbLoop.Worksheets("Report").UsedRange.Value2