求教：要求在合并单元格中得到人数！

danhanqing

如何在合并单元格中求出人数？在线等，谢谢！
要求在合并单元格中得到人数.rar (7.12 KB, 下载次数: 18)

2024-6-18 13:44 上传

点击文件名下载附件

tel3033

查看…………

蓝桥玄霜

合并的例子：

hcm19522

C2合併格公式=-LOOKUP(1,-MATCH(1=1,A3:A$20<>A2,{1,0}))

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.6.18  合并单元格人数统计
   
2.     With ActiveSheet
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         For i = 2 To r
   
5.             Set Rng = .Cells(i, 3)
   
6.             Sum = 0
   
7.             If Rng.MergeCells = True Then
   
8.                 m = Rng.MergeArea.Count
   
9.                 Rng.Value = m
   
10.                 i = i + m - 1
    
11.             Else
    
12.                 Rng.Value = 1
    
13.             End If
    
14.         Next
    
15.     End With
    
16. End Sub
    

复制代码

danhanqing

tel3033 发表于 2024-6-18 14:00
查看…………

就是想实现：
当产量列是合并时，在人数列单元格得出对应的合并行数（表示参与的人数，因为后面的产值为根据这个人数来平分），如果产量为空或为零，则人数也就为0或为空
感谢！因为每个月的工作表都很多，所以我想做成模块，但移植失败了，请老师帮我看一下！谢谢！

测试.rar (35.36 KB, 下载次数: 3)

2024-6-18 16:00 上传

点击文件名下载附件

tel3033

danhanqing 发表于 2024-6-18 16:00
就是想实现：
当产量列是合并时，在人数列单元格得出对应的合并行数（表示参与的人数，因为后面的产值为根 ...

已修改……

danhanqing

tel3033 发表于 2024-6-19 09:30
已修改……

万分感谢老师的帮助！
请允许我再得寸进尺一把吧：
梦娜工作.rar (553.31 KB, 下载次数: 13)

2024-6-20 14:57 上传

点击文件名下载附件

详细要求我写在了TXT文件里，请老师有空了帮我看看，我试了好久，还是没有实现！
再次感谢！

saghj

手拙，还是要向大佬学习啊