需要对图一中“序号”列的“ 数字”行进行编序号，做成图二的样子（主材 行不要 序号）。先对图一进行筛选得到图三，图三里面怎么快速生成序号，下拉没有用。

有木有大神给指导下

'估计是这意思的吧
Option Explicit
Sub abc()
　Dim i, m, t
　For i = 2 To Cells(Rows.Count, "b").End(xlUp).Row
　　t = Trim(Cells(i, "b").Value)
　　If Len(t) Then
　　　If IsNumeric(Left(t, 1)) Then
　　　　m = m + 1
　　　　Cells(i, "a") = m
　　　Else
　　　　Cells(i, "a") = Empty
　　　End If
　　Else
　　　Cells(i, "a") = Empty
　　End If
　Next
End Sub

又吃掉了 ？