Excel VBA编码：需要创建一个循环，用于在一列中标识数据填充，并在另一列中返回指定值

'在单元格A2:A101中为B2:B101中包含数据的单元格创建一个值“1”，然后在单元格A102:A201中为单元格B102:B201中创建一个值“2”，该单元格B102:B201中包含无限大的数据，依此类推。

最接近无限大的是10485个完整的100个单元格集，因为工作表中只有1048576行。假设您真的需要一直到底部，一个简单的for循环就可以做到这一点：

Range("A1").Select
For i = 1 To 1048500
    If ActiveCell.Offset(i, 1) <> "" Then
        ActiveCell.Offset(i, 0).Value = Int(i / 100) + 1
    End If
Next 

范围（“A1”）。选择
对于i=1至1048500
如果ActiveCell.Offset（i，1）“，则
ActiveCell.Offset（i，0）.Value=Int（i/100）+1
如果结束
下一个

请包括您的努力。此外，对于具有固定行数的Excel，infinity不是一个选项。是否要转到工作表底部重复此模式？你可以使用For循环。效果很好！谢谢你的帮助！更进一步说，如果我在第1行中应用了标签，a如何调整代码以开始第2行的计数，然后计算100行？