本人思想：先取消整列合并，再向下填充，具體代碼如下：
Sub 拆分填充（）
MaxRow = Range（"A" & Rows.Count）.End（xlUp）.Row + 1
Range（"A2:" & "A" & MaxRow）.UnMerge
For i = 3 To MaxRow
'If Cells（i, 1） = "" Then Range（"A" & i） = Range（"A" & i - 1）
If Cells（i, 1） = "" Then Range（"A" & i）.FillDown
Next
End Sub
承擔因您的行為而導致的法律責任，
本站有權保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。