在excel里如何用vba实现如下图所示的顺序录入，其中（）表示空白单元格，里面的数字代表填入内容的顺序

Sub aa() Dim i, j, qs, s, ss As Integer For i = 1 To 5 If Cells(i, 1) "" Then qs = 1 Else qs = Rows(i).End(xlToRight).Column End If s = 1 For j = qs To 100 If Cells(i, j) = "" Then