访问VBA在Excel中拆分所有合并的单元格

Question

我需要将一些Excel文件导入Access数据库。 我知道如何在VBA中编写导入功能，但是由于我在Excel中的某些合并单元格给我带来了麻烦，因此它无法按预期工作。

因此，例如，在Excel电子表格中

导入到Access表时，它逐行导入。 因此，第一行应为1-pencil-90，这是正确的，但由于合并的单元格，第二行和第三行为空。 结果是

No|Product|Storage
1 | pencil|90
  |       |23
  |       |41

但是预期结果应该是：

No|Product|Storage
1 | pencil|90
1 | pencil|23
1 | pencil|41

我希望VBA拆分合并的单元格，并用合并的单元格中的信息填充空白数据。 请记住，我有很多合并的单元格，并且无法手动更改。 我愿意接受任何可以帮助我实现期望结果的解决方案。

P / S：aata可以留为空白，因此我无法使用条件检查是否为空白，然后查找以上数据。

Answer 1

尝试这个

Sub UnMergeRanges()
    Dim cl As Range
    Dim rMerged As Range
    Dim v As Variant

    For Each cl In ActiveSheet.UsedRange
        If cl.MergeCells Then
            Set rMerged = cl.MergeArea
            v = rMerged.Cells(1, 1)
            rMerged.MergeCells = False
            rMerged = v
        End If
    Next
End Sub

这个怎么运作：

• 循环使用范围内的单元格
• 如果单元格是合并范围的一部分
  • 将范围变量设置为合并范围
  • 将范围中左上角单元格的当前值记录到变量v 。 这是合并范围显示的值
  • 取消范围
  • 将记录的值（ v ）写入当前未合并范围的所有单元格