在Excel中苍井空快播，淌若你思要用VBA将一个兼并的单位格拆分红单个单位格，况且每个单位格皆填充调换的本质，比如下图例子：

图片

不错使用以下代码：

Sub 指定兼并单位格拆分红单个单位格并放入调换本质()
Set Z = Cells(2， 1)  '配置要进行拆分的兼并单位格区域（使用兼并单位格区域中的任一单位格即可）
Dim rng As Range        '配置变量为单位格对象
Cell_value = Z.MergeArea.Cells(1， 1).Value          '赢得兼并单位格的值
Set A = Range(Z.MergeArea.Address)   '复返兼并区域的鸿沟地址，将其设定为单位格区域对象
Z.MergeCells = False  ' 拆分兼并单位格
For Each rng In A   '遍历原单位格区域的每个单位格
    rng = Cell_value
Next
End Sub

淌若该列需要拆分多个单位格，比如下图例子：

图片

则不错优化代码为：

Sub 指定某列整个兼并单位格拆分红单个单位格并放入调换本质()
Dim cell As Range        '配置变量为单位格对象
col = 1     '设定兼并单位格方位的列
For Row = 1 To 10   '从第1行到第10行
  	If Cells(Row， col).MergeCells = True Then   '检测是否为兼并单位格
        Cell_value = Cells(Row， col).MergeArea.Cells(1， 1).Value           '赢得兼并单位格的值（原始本质）
        Set A = Range(Cells(Row， col).MergeArea.Address)   '复返兼并区域的鸿沟地址，将其设定为单位格区域对象
        Cells(Row， col).MergeCells = False  ' 拆分兼并单位格
        For Each cell In A      '遍历原单位格区域的每个单位格
            cell = Cell_value       '放入兼并单位格的原始本质
        Next
    End If
Next

淌若通盘表内的兼并单位格皆需要拆分并填充，则不错这么：

Sub 表中整个兼并单位格拆分红单个单位格并放入调换本质()
Dim rng As Range        '配置变量为单位格对象
For Each cell In ActiveSheet.UsedRange   '遍历整个步履单位格
    If cell.MergeCells = True Then
        Cell_value = cell.MergeArea.Cells(1， 1).Value           '赢得兼并单位格的值（原始本质）
        Set A = Range(cell.MergeArea.Address)   '复返兼并区域的鸿沟地址，将其设定为单位格区域对象
        cell.MergeCells = False  ' 拆分兼并单位格
        For Each rng In A   '遍历原单位格区域的每个单位格
            rng = Cell_value       '放入兼并单位格的原始本质
        Next
    End If
Next
End Sub

有关著作：

vba兼并单位格的兼并区域MergeArea属性

VBA兼并单位格Merge的用法

黄色幽默

VBA赢得兼并单位格的值

vba判断兼并单位格开动行要领行

以上本质对您有匡助不错共享或转藏苍井空快播，幸免以后找不到。思要了解更多VBA有关常识，迎接到http://moqingyan.360doc.com我的个东说念主藏书楼检察。

本站仅提供存储处事，整个本质均由用户发布，如发现存害或侵权本质，请点击举报。