不会呢,可以帮忙搞一个吗,谢谢
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