我得到了一个存储在 Microsoft Excel 中的相当大的数据库，我必须尝试将其转换成有用的东西。
但是，我遇到的问题之一是一些数据合并在一起（水平在2s内）。
例如；
row 1: [ x ][ x ][ x ][ x ][ x ]
row 2: [ x ][ x ][ o o ][ x ]
row 3: [ o o ][ x ][ o o ]
x 是单个单元格，o 是合并在一起的
我想要做的是取消合并所有行（我可以使用取消合并按钮相当容易地做到这一点），但是对于合并单元格所在的位置，将数据复制到 2 个单元格中。
从; [[ Some Data ]]
至; [ Some Data ][ Some Data ]
谢谢！任何帮助表示赞赏。
【问题讨论】：
这是一个 VBA 解决方案。此宏将搜索活动工作表中的每个单元格以查看它们是否合并。如果是，它将合并单元格的范围存储在临时文件中。 range 变量，取消合并单元格，然后用未合并范围中第一个单元格的值（值是什么）填充范围。
Sub UnMergeFill()
Dim cell As Range, joinedCells As Range
For Each cell In ThisWorkbook.ActiveSheet.UsedRange
If cell.MergeCells Then
Set joinedCells = cell.MergeArea
cell.MergeCells = False
joinedCells.Value = cell.Value
End If
Next
End Sub
【讨论】：
这是基于 @aevanko 的回答，但可以推广到任意范围。
Sub UnMergeRange(WorkRng As Range)
Dim cell As Range, joinedCells As Range
For Each cell In WorkRng
If cell.MergeCells Then
Set joinedCells = cell.MergeArea
cell.MergeCells = False
joinedCells.Value = joinedCells.Cells(1, 1).Value
End If
Next
End Sub
我还进行了更改，因为我遇到了一个不起作用的角落案例。当有一个垂直合并的单元格包含超出提供范围的单元格时。我必须使用更高级的表达式来获取值。
【讨论】：
【讨论】：
你不需要 VBA 来做这样的事情。
如果从以下位置启用 R1C1 样式： 文件 -> 选项 -> 公式 -> R1C1 参考样式然后
【讨论】：
我不知道如何快速实现 VBA 代码，但我使用了一个公式来填充另一列的值...然后我做了复制/粘贴魔术，将值粘贴到未合并的单元格上。该公式基于该值与合并单元格中的第一个单元格相关联，而所有其他单元格都解析为 0（零）这一事实。
如果 Col. A2:A100 有合并的单元格，我做了以下操作：
=IF(A2<>0,A2, B1)
其实胆子大的可以简化成这个系列……
=IF(A2<>0,A2, B1)
跳过C列的使用...
【讨论】：
这是在所有单元格中保存数据的另一种方法。我有一份每天发布的报告，其中包含合并的单元格，以避免每天取消合并单元格，我使用 Power Query 引用报告。
使用向下填充选项，我可以将数据填充到合并范围内的所有单元格中。为我工作！ :)
【讨论】：