求开发EXCEL动作：选中的不连续区域自动编号

不会呢，可以帮忙搞一个吗，谢谢

Sub FillNumbersInSelectedCells()
    Dim cell As Range
    Dim number As Integer
    number = 1 ' 起始编号

    ' 遍历选中的每个单元格
    For Each cell In Selection
        ' 将编号填入单元格
        cell.Value = number
        ' 增加编号
        number = number + 1
    Next cell

End Sub

非常感谢，如果添加其他形式的序列号怎么操作呢

这个代码是gpt给的，所以你可以试试把详细需求告诉它，让它写一个。

要得要得，你用的是几点几呢

我一般用gpt4

非常感谢，能不能增加一种序号 一级序号是01   二级序号0101   依次类推，全是文本格式

 新版加了 二级序号，如果还需要更复杂的可以尝试输入自定义格式