选择所有可见的工作表和单元格，取消合并单元格并填充

Question

我有多个工作簿，它们的数量和名称各不相同。工作表有许多合并的单元格，我需要取消合并，然后复制单元格数据。我一直在尝试将几个不同的脚本混合在一起，但没有成功。如有任何帮助，不胜感激。

我试图写一个VB脚本，将做以下

1. 选择工作簿中所有可见的工作表
2. 选择所有数据
的单元格
3. 取消合并单元格
4. 复制值

Dim WS_Count As Integer
Dim I As Integer
' Set WS_Count equal to the number of worksheets in the active
' workbook.
WS_Count = ActiveWorkbook.Worksheets.Count
' Begin the loop.
For I = 1 To WS_Count

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
Next I

Answer 1

我的最终解决方案是在power Bi中，我发现你可以使用填充函数来复制合并单元格数据，而不必与excel混淆。