VBA代码：列索引

Question

我有一个工作表，我从其他工作表导入一些行，我想在其中添加一个包含每行索引的列。此索引应递增（1,2,3等，直到导入最后一行）。 我更喜欢它将插入宏＆＃34; import＆＃34;。 有人可以帮助我。

Answer 1

我认为，

Worksheet.UsedRange正是您所寻找的。

Dim sh As Worksheet
Dim y As Long

Set sh = ActiveWorkbook.ActiveSheet     ' or whichever

For y = 1 To sh.UsedRange.Rows.Count
    ' Replace 5 by the column number you want the index in
    sh.Cells(y, 5) = y
Next y