作者：乔山办公网日期：
返回目录：excel表格制作
Sub 填写zd序回号答()
Range("A:A") = ""
Dim i As Integer
If Cells(1, 2) <> "" And Cells(1, 3) <> "" Then
For i = 1 To Cells(1, 3)
Cells(i, 1) = Cells(1, 2) + i - 1
Next
End If
End Sub
数组公式也可以
你要VBA?
也可以
把实际的行列号标注出来
建议使用数组公式完成
问题：百总共多少行? 怎么1行、度68行、132行、256行，这些行知没有规律啊，其余还道有那些行啊？
下面的回VBA能把你指出来的部分收集到答一起：
Sub collect()
For i = 1 To 5
Cells(1, 12 + i) = Cells(1, i)
Cells(2, 12 + i) = Cells(68, i)
Cells(3, 12 + i) = Cells(132, i)
Cells(4, 12 + i) = Cells(256, i)
Next i
End Sub
C1粘贴百这个数组公度式，按“问Ctrl+Shift+回车”结答束输入，版下拉：权
=IF(SUM((LEFT($A$1:$A$5000,LEN(A1))=TEXT(A1,"@"))*((LEN($A$1:$A$5000)-LEN(SUBSTITUTE($A$1:$A$5000,".","")))=(LEN(A1)-LEN(SUBSTITUTE(A1,".","")))+1)*$B$1:$B$5000)<>0,SUM((LEFT($A$1:$A$5000,LEN(A1))=TEXT(A1,"@"))*((LEN($A$1:$A$5000)-LEN(SUBSTITUTE($A$1:$A$5000,".","")))=(LEN(A1)-LEN(SUBSTITUTE(A1,".","")))+1)*$B$1:$B$5000),B1)