【vba】按比例拆分单元格

最新推荐文章于 2024-10-09 23:58:13 发布

xiaoBrick

最新推荐文章于 2024-10-09 23:58:13 发布

阅读量566

点赞数

分类专栏：数据处理文章标签：大数据

本文链接：https://blog.csdn.net/weixin_40112836/article/details/125825043

版权

数据处理专栏收录该内容

18 篇文章

订阅专栏

本文介绍如何使用VBA代码在Excel中实现根据单元格合并情况自动等比例拆分，解决复杂数据格式处理问题，提升工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

问题

需要将excel中单元格数字进行拆分，是几个单元格合并的就按照几等份进行拆分。

代码

使用wps可以拆成相同的单元格，但是无法按照等份拆分

原始数据
在这里插入图片描述
实现效果


Public Sub 按比例拆分单元格()

Dim i, j As Integer
Dim count As Integer

For i = 2 To Range("p1048576").End(xlUp).Row #获取最后一行行号，第一行是从row(2)开始

    If Cells(i, 16) = Cells(i + 1, 16) Then
    
        count = count + 1
    
    ElseIf count >= 1 Then
        
        For j = i To (i - count) Step -1
        
            Cells(j, 17) = Cells(i - count, 16) / (count + 1)
        
        Next
        
        count = 0
        
        j = 0
    
    Else
    
        Cells(i, 17) = Cells(i, 16)
        
    End If
Next