求助用VBA生成序列号问题

bombee

现在想实现这样的功能：
   如B2为初始值 比如16001
   如果C3不为空值 B3值为B2值增1 （16002）
   B2以下为自增序列
   用VBA如何实现呢？
   请教各位高手

爱疯

1）如果B2为空呢？
2）从B2到哪儿？
3）用函数不好吗？

金樽空对月

代码如下：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.EnableEvents = False
   
3. If ActiveSheet.Range("c3") <> "" Then
   
4. ActiveSheet.Range("b3") = ActiveSheet.Range("b2") + 1
   
5. Else
   
6. ActiveSheet.Range("b3") = ""
   
7. End If
   
8. Application.EnableEvents = True
   
9. End Sub

复制代码

建议你上传附件，这样给你的答案会比较符合你的实际需要，这代码仅供参考。