在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

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

个位号码：最近两期个位开出号码为8-0，在福彩3D历史开奖中，前后两期个位分别开出号码8-0的奖号出现了100次。最近15期个位8-0组合出现之后，其下期奖号分别为：067-456-954-144-755-723-440-426-477-799-314-111-659-899-581；  

图片

则不错优化代码为：

小程序开发公司将其设定为单元格区域对象
        Cells(Row, col).MergeCells = False  ' 拆分合并单元格
        For Each cell In A      '遍历原单元格区域的每个单元格
            cell = Cell_value       '放入合并单元格的原始内容
        Next
    End If
Next" cm-theme="neo" cm-mode="VB.NET">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我的个东谈主藏书楼检察。

本站仅提供存储管事，通盘本体均由用户发布，如发现存害或侵权本体，请点击举报。

• 小程序开发
• VBA
• 单位
• 通义
• 格拆