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

Question

'在B2：B101中包含数据的单元格中，在A2：A101单元格中创建值“ 1”，然后在B102：B201中包含数据的单元格A102：A201中创建值2，以此类推，直到无穷大

Answer 1

由于工作表中只有1,048,576行，因此最接近无限的是10,485套100个单元的完整集合。假设您确实需要一直走到底，那么简单的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