Excel 怎么样用VBA数组方法依序标出序号

VBA

下面是一个使用VBA填充序号的示例代码：vbSub InsertSerialNumbers()Dim i As LongFor i = 2 To Cells(VisibleCells.Count, 2).End(xlUp).Row Cells(i, 1) = iNextEnd Sub在这个示例代码中，我们使用了循环来遍历单元格范围，并将序号填充到每个单元格的第一个列中。首先，我们定义了一个名为“i”的变量来跟踪当前遍历的行数，并使用一个名为“k”的变量来累加每个单元格的序号。然后，我们使用一个For循环来遍历整个工作表范围，从第二行开始（即VisibleCells.Count属性），直到最后一行（即.Cells(xlUp).Row属性）。在循环内部，我们把i设为当前行数，并将该行第一个列的值设为i。最后，在完成所有循环后，我们可以看到整个工作表已经被成功地填充了序号。请注意：以上代码仅适用于excel 2007及更高版本。