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

makelot

今铭昔 发表于 2024-3-26 20:28

您这是什么语言？如何在VBA或工作表中使用？麻烦您稍微解释一下，非常感谢！

makelot

gwjkkkkk 发表于 2024-3-26 20:32
请参考附件。。。

高手！代码精炼又经典，学习了！我可能仔细研究一下才能看明白，非常感谢！

无关岁月

副本填写相邻且相同的元素个数.7z (16.17 KB, 下载次数: 8)

2024-3-26 21:28 上传

点击文件名下载附件

makelot

无关岁月 发表于 2024-3-26 21:29

高手，我研究一下，非常感谢！

今铭昔

makelot 发表于 2024-3-26 21:09
您这是什么语言？如何在VBA或工作表中使用？麻烦您稍微解释一下，非常感谢！

WPS的JS宏，只能在WPS里使用，用法和VBA一样

makelot

今铭昔 发表于 2024-3-27 10:21
WPS的JS宏，只能在WPS里使用，用法和VBA一样

非常感谢！可惜今天不剩鲜花了！

makelot

gwjkkkkk 发表于 2024-3-26 20:32
Option Explicit
Sub test1()
    Dim ar, i&, j&, p&

能否改为逐行填写，而并不是形成数组后一下子填入？谢谢！

咔咔乱坠

J4公式下拉

1. =IF(C4=C3,J3,MATCH(1=2,C4=C4:C23,)-1)

复制代码

makelot

咔咔乱坠 发表于 2024-3-27 11:52
J4公式下拉

厉害，学习了。可惜今天没有了鲜花，明天献上！

gwjkkkkk

makelot 发表于 2024-3-27 10:32
能否改为逐行填写，而并不是形成数组后一下子填入？谢谢！

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
                    .Cells(j, 4) = i - p + 1
                Next j
                p = i + 1
            End If
        Next i
    End With
   
    Beep
End Sub