祝大侠们新年快乐!百毒不侵！请大侠帮附件里写个公式,先谢谢了!

jyyjlok

请大侠帮附件里写个公式,先谢谢了!
统计合并后的单元格个数.rar (6.32 KB, 下载次数: 20)

2020-2-2 20:50 上传

点击文件名下载附件

solextrade

函数应该不行。隔壁VBA应该可以。

凌空一羽

Sub lkyy()
r = 3
Do Until r = 30
    If Range("c" & r).MergeCells Then
        r = r + Range("c" & r).MergeArea.Rows.Count
        n = n + 1
    Else
        r = r + 1
    End If
Loop
MsgBox n
End Sub

hcm19522

C3:C29右移D3:D29-->D3公式=ROW()-->ENTER-->圈選D3:D29(合併格)-->游標放公式尾-->ctrl+enter二鍵一起按


F3=COUNTIF(D3:D29,"<>")

jyyjlok

凌空一羽 发表于 2020-2-3 00:01
Sub lkyy()
r = 3
Do Until r = 30

谢谢大侠的公式,但我不会运用这种公式,大侠能否发个附件教教我,谢谢了!

1055751654

Sub 序号()
For i = 3 To 100
    If i >= 30 Then Exit Sub
    m = m + 1
    Cells(i, 3).MergeArea = m
    i = i + Cells(i, 3).MergeArea.Count - 1
If Cells(i, 3).MergeCells Then
h = h + Cells(i, 3).MergeArea.Count '合并单元格所占行数
hh = hh + 1 '合并单元格个数
Else
j = j + 1: k = j + hh
[c2] = "单元格总个数" & k & "个"
End If
Next
End Sub