请问如何按A列单元格填充的先后顺序，自动在B列依序填充序号

点点杨花

请问如何按A列单元格填充的先后顺序，自动在B列依序填充序号.公式和VBA两种方式？

cui26896

请看附件，是否符合你所要求的。
按填充顺序填序号.zip (14.34 KB, 下载次数: 5)

2020-2-22 16:19 上传

点击文件名下载附件

点点杨花

cui26896 发表于 2020-2-22 16:19
请看附件，是否符合你所要求的。

不是这个意思。A列的内容不限于“填充循序1.....6”，它可以是“花”、“草”、“树木”，我是想要根据A列不同单元格填充的先后顺序，在B列填上序号

cui26896

你是不是如图这个意思

cui26896

你这个要求，需要猜，郁闷了！

点点杨花

cui26896 发表于 2020-2-22 16:38
你这个要求，需要猜，郁闷了！

首先在A1单元格填充内容，那么希望B1单元格自动填充序号1；接下来在A3单元格填充内容，那么希望B3单元自动填充序号2；
然后在A2单元格填充内容，那么希望B2单元格自动填充序号3；
.............

lydark

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.    
   
3.     Dim rng As Range
   
4.    
   
5.     Set rng = Range("b2:b" & [B66356].End(xlUp).Row)
   
6.    
   
7.     If Not Intersect([a:a], Target) Is Nothing Then
   
8.         Target.Offset(, 1) = Application.WorksheetFunction.Max(rng) + 1
   
9.     End If
   
10.    
    
11. End Sub

复制代码

D:\Users\Administrator\Desktop\VBA\根据输入内容的顺序自动填序.gif

点点杨花

lydark 发表于 2020-2-23 20:33

非常感谢！，还想请教您，可不可以在单元格设置公式达到这个目的？