填写相邻且相同的元素个数

makelot

如图，如何填写相邻且相同的元素个数，多谢！

limonet

公式=COUNTIF(OFFSET(C4,-3,,8),C4)

cnmlgb9998

PQ 解决，不香？？？？？？？？？？？？？？

gwjkkkkk

limonet 发表于 2024-3-26 19:12
公式=COUNTIF(OFFSET(C4,-3,,8),C4)

公式可以，但是公式中offsect偏移量可能不大好掌握！

今铭昔

gwjkkkkk

Option Explicit
Sub test1()
    Dim ar, i&, j&, p&
    With Range("C4", Cells(Rows.Count, "C").End(xlUp))
        ar = .Resize(.Rows.Count + 1)
        p = 1
        For i = 1 To UBound(ar) - 1
            If ar(i + 1, 1) <> ar(p, 1) Then
                For j = p To i
                    ar(j, 1) = i - p + 1
                Next j
                p = i + 1
            End If
        Next i
    End With
   
    [H4].Resize(UBound(ar) - 1) = ar
    Beep
End Sub

gwjkkkkk

请参考附件。。。

limonet

gwjkkkkk 发表于 2024-3-26 20:15
公式可以，但是公式中offsect偏移量可能不大好掌握！

，是的，只适合这个问题。

makelot

limonet 发表于 2024-3-26 19:12
公式=COUNTIF(OFFSET(C4,-3,,8),C4)

想不到您用一个公式就给解决了，太厉害了！
不过公式我看不明白，您能解释一下吗？非常感谢！

makelot

cnmlgb9998 发表于 2024-3-26 19:17
PQ 解决，不香？？？？？？？？？？？？？？

PQ我还没用过，也不熟悉，下来我根据您的回复研究一下，非常感谢！