[已解决]填充序号

安全网

求助给单元格添加序号的VBA，比如C27单元格有数值填入，就对A3：A27单元格填充序号，如果C27之前的单元格无值也填充序号

最佳答案

月排行榜 / 总排行榜

dsmch

2016-4-9 11:53

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column = 3 Then
   
3.     With Range("a3:a" & Target.Row)
   
4.         .FormulaArray = "=row()-2"
   
5.         .Value = .Value
   
6.     End With
   
7. End If
   
8. End Sub

复制代码

跳转到最佳答案楼层

baksy

函数

dsmch

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column = 3 Then
   
3.     With Range("a3:a" & Target.Row)
   
4.         .FormulaArray = "=row()-2"
   
5.         .Value = .Value
   
6.     End With
   
7. End If
   
8. End Sub

复制代码

安全网

dsmch 发表于 2016-4-9 11:53

这个如果工作薄是设置共享的，就运行出错