移植不成功，再次请教老师们！感谢！

danhanqing

文件中会存在多个工作表（一天一个表），如果产值列某几个人的产值是合并显示的，想在人数列显示该姓名对应的产量是几个人一起完成的（也就是该 产量是由几个单元格合并的），如果该姓名对应的产量没有合并，则人数为1，如果该姓名对应的产量是2个单元格合并的，则被合并单元格对应的姓名后人数均为2……如果工作内容为空时，人数则显示为0或空

附件中人数列的值是我手动输入的，也就是想要的结果。

测试.rar (35.59 KB, 下载次数: 11)

2024-6-18 17:27 上传

点击文件名下载附件

再次感谢！

marchwen01

计算合并单元格个数。

usedrange

1. Sub t()
   
2.     Dim m%, i%
   
3.     With Sheets("14")
   
4.         m = .Range("c10").End(4).Row
   
5.         For i = 10 To m
   
6.             If .Cells(i, "d") <> "" Then
   
7.                 .Cells(i, "i") = .Cells(i, "g").MergeArea.Count
   
8.             Else
   
9.                 .Cells(i, "i") = 0
   
10.             End If
    
11.         Next i
    
12.         
    
13.     End With
    
14. End Sub

复制代码