在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我的个东谈主藏书楼检验。

捆绑 调教 本站仅提供存储职业，通盘推行均由用户发布，如发现存害或侵权推行，请点击举报。