请教懂vba的大神

如上图，这个工作表中有N个工作薄，A列有不少的单元格都是合并的，现在我想批量的拆分合并的单元格，并且使，拆分后空值的单元格，等于上一个单元格

例如，A2，拆分单元格后，A2,A3,A4,A5,A6都等于1
但是我写一个VBA代码，只能使当前激活的工作薄生效，运行其他的工作薄提示报错，下面上图，求大神指导，哪里出错了

大家可以看清楚图片吗

@灬戀丶夏灬

@lyong125
大神，帮忙看一下

工作簿和工作表的概念要明确。

@ylong125

不需要选择
ww.Cells(a, 1).UnMerge

Do While ww.Cells(a, 1) <> "合计"
If ww.Cells(a, 1).MergeArea.Count > 1 Then
k = ww.Cells(a, 1).MergeArea.Address
ww.Cells(a, 1).UnMerge
ww.Range(k) = ww.Cells(a, 1)
End If
a = a + 1
Loop
直接填充合并区域位置，不要根据空单元格填充，不严谨。

帮你粘贴一段高人写的代码，每个拆开的单元格均保留元合并单元格内容，你自己做适当修改：
Dim StrMer As String
Dim IntCot As Integer
Dim i As Integer
With Sheet1
For i = 2 To .Range("A65536").End(xlUp).Row
StrMer = .Cells(i, 2).Value
IntCot = .Cells(i,2).MergeArea.Count
.Cells(i, 2).UnMerge
.Range(.Cells(i, 2), .Cells(i +IntCot - 1, 2)).Value = StrMer
i = i + IntCot - 1
Next
End With