自动填写序号

龍膽草

如图，红色框内是要根据绿色框内内容自动填写序号，有内容编号，无内容仅有公式不编号。
难点：绿色框内部分不显示内容，但是存在公式。

袁勇

1. =IF(E6<>"",ROW(A1),"")

复制代码

丢丢表格

d6
=IF(F6="","",COUNTIF(F$6:F6,"*?"))

libo5563

https://haokan.baidu.com/v?pd=wi ... 1560845626092508897

袁勇

把代码修改一下，自带序号。

1. Private Sub Worksheet_Activate()
   
2. Range("E4:E105").ClearContents
   
3. Dim a, i As Integer
   
4. Application.ScreenUpdating = False
   
5. i = ActiveWorkbook.Sheets.Count
   
6. For a = 2 To i
   
7.     Cells(a + 4, 4) = a - 1
   
8.     Cells(a + 4, 5).Value = Sheets(a).Name
   
9. Next
   
10. Application.ScreenUpdating = True
    
11. End Sub

复制代码

龍膽草

袁勇 发表于 2019-6-20 16:52
把代码修改一下，自带序号。

非常感谢大神的帮助！向你学习