VBA代碼：列索引

Question

我有一個工作表，我從其他工作表中導入一些行，並在其中添加一列包含每行的索引的列。該指數應該增加（1,2,3等，直到導入的最後一行）。 我更喜歡它會插入宏「導入」。 有人可以幫助我。

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