大佬们，怎么取消合并单元格并将里面的数字除单元格数量并填充

或者c2=scan(0,b2:b17,lambda(x,y,if(y="",x,y)),然后复制黏贴覆盖掉

复制粘贴为值
=IF(K2,K2/MATCH(1=0,K3:$K$16=0,-1),L1)

alt+f11 复制代码 按F15运行
function 拆分填充(){
let rng = Cells(Rows.Count,'k').End(3);
[...Range('k2',rng.Resize(rng.MergeArea.Rows.Count))].forEach(rng => {
if (rng.Value2){
rng.Value2 /= rng.MergeArea.Rows.Count;
rng.UnMerge();
}else {
rng.Value2 = rng.Offset(-1).Value2
}
})
}

ALT+F11打开工程对话框
然后复制以下代码粘贴
Sub UnmergeAndDistribute()
Dim rng As Range
Dim cell As Range
Dim total As Double
Dim count As Integer
Dim avg As Double
' 设置要处理的列范围
Set rng = Range("A1:A" & Cells(Rows.count, "A").End(xlUp).Row)
' 遍历A列中的每一个单元格
For Each cell In rng
' 检查单元格是否是合并单元格的一部分
If cell.MergeCells Then
' 计算合并单元格的总和
total = Application.WorksheetFunction.Sum(cell.MergeArea)
' 计算合并单元格的数量
count = cell.MergeArea.count
' 计算平均值
avg = total / count
' 取消合并单元格
cell.MergeArea.UnMerge
' 将平均值分配到每一个单元格中
cell.Resize(count, 1).Value = avg
End If
Next cell
End Sub

链接: https://pan.baidu.com/s/1kWZXeJcMB0DRYC9DX8GQpA?pwd=wmcz 提取码: wmcz 复制这段内容后打开百度网盘手机App，操作更方便哦

合并单元格计算，可以看这里https://tieba.baidu.com/p/9035504323

谢谢老哥们

大佬们就是多