函数自动加排序编号问题 用VBA解决方法

高飞扬

求助：

我用函数实现A列自动编号（以H列日期YYYYMMDD为格式加后缀，第一次出现为001，依次类推， 但是A列红色部分会有问题，因为H列日期出现不是连续的， 求教老师教下用VBA代码实现这个功能？以12月1日编号为例，正确结果应该如B列显示，其他日期同理。

测试1.zip (50.5 KB, 下载次数: 16)

2022-12-17 10:56 上传

点击文件名下载附件

liulang0808

如果用vba实现考虑字典处理就可以，案例应该不少的
函数的话，需要去函数区域求助

高飞扬

函数原因找到了，COUNTIF($H$4:H4,H4) 这里应该要同一个单元格就可以。 VBA实现的方法，有没有老师可以指点？

gwjkkkkk

Sub TEST5()
    Dim arr, i&, dic As Object, vKey
    Set dic = CreateObject("Scripting.Dictionary")
    arr = Range([H4], Cells(Rows.Count, "H").End(xlUp))
    For i = 1 To UBound(arr)
        vKey = Format(arr(i, 1), "yyyymmdd")
        dic(vKey) = dic(vKey) + 1
        arr(i, 1) = vKey & Format(dic(vKey), "000")
    Next i
    [A4].Resize(UBound(arr)) = arr
    Set dic = Nothing
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。

高飞扬

gwjkkkkk 发表于 2022-12-17 14:53
请楼主参考附件。。。

感谢 gwjkkkkk  老师，好像没看到附件

蓝桥玄霜

排序的例子：

洋务德雷

虽然编辑出来了，但是感觉你这个表内有很多隐藏行，无用的数据最好删除掉。

jz_l

高飞扬

gwjkkkkk 发表于 2022-12-17 14:51
Sub TEST5()
    Dim arr, i&, dic As Object, vKey
    Set dic = CreateObject("Scripting.Dictionary" ...

好的，谢谢gwjkkkkk老师 ！学习了！