在Excel中【ZEX-216】体は男の子だけど女の子として生きてる 感じやすいペニクリの男の娘 BEST240分 撮り下ろし15分付き！，淌若你念念要用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有关学问【ZEX-216】体は男の子だけど女の子として生きてる 感じやすいペニクリの男の娘 BEST240分 撮り下ろし15分付き！，宽宥到http://moqingyan.360doc.com我的个东谈主藏书楼稽查。

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