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

高飞扬

蓝桥玄霜 发表于 2022-12-17 15:28
排序的例子：

谢谢蓝版，好好学习下！

gwjkkkkk

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

附件在此。。。

高飞扬

洋务德雷 发表于 2022-12-17 16:11
虽然编辑出来了，但是感觉你这个表内有很多隐藏行，无用的数据最好删除掉。

好的，感谢丹哥！ 学习学习！

高飞扬

jz_l 发表于 2022-12-17 16:12

感谢老酒庄 老师！学习学习！

tanglf188

一般的编号就是同一天的连续编号，第二天开始重新开始编号，你的表格H列可见部分全是一个日期，不可见的因该都是空的吧。参与一下，不知道是不是你需要的。
Sub autonumb()
    j = 1
    For i = 4 To Sheets(1).UsedRange.Rows.Count
        If i = 4 Then
            With Sheets(1).Cells(i, 2)
                .Value = Format(Sheets(1).Cells(i, 8), "YYYYMMDD") & Format(j, "000") '日期+编号
                .NumberFormatLocal = "@"   '单元格格式文本格式
            End With
        End If
        If Sheets(1).Cells(i, 8) <> Sheets(1).Cells(i - 1, 8) Then '遇到日期不一样则重新编号
            j = 1
        Else
            j = j + 1 ' 同一日期连续编号
        End If
        If j < 1000 Then
            ft = "000" '小于等于999保留三位编号，不足以0补齐
        Else
            ft = String(Len(j), "0")  '大于999按实际长度编号
        End If
        With Sheets(1).Cells(i, 2)
            .Value = Format(Sheets(1).Cells(i, 8), "YYYYMMDD") & Format(j, ft)
            .NumberFormatLocal = "@"
        End With
    Next
End Sub

高飞扬

gwjkkkkk 发表于 2022-12-17 16:31
附件在此。。。

好的，再次谢谢gwjkkkkk老师！

高飞扬

tanglf188 发表于 2022-12-17 17:51
一般的编号就是同一天的连续编号，第二天开始重新开始编号，你的表格H列可见部分全是一个日期，不可见的因 ...

好的，学习学习！谢谢tanglf188老师！

KAI19

我稍微改了一下公式

高飞扬

KAI19 发表于 2022-12-19 09:00
我稍微改了一下公式

是的，第一个公式的单元格地址要一致就可以。谢谢！