在VBA（Visual Basic for Applications）中，你可以使用`ActiveCell.Row`屬性來獲取當(dāng)前活動單元格所在的行號。如果你想獲取特定單元格的行號，你可以使用該單元格的`Row`屬性。

以下是一個簡單的示例，演示如何提取特定單元格的行號：

```vba

Sub GetRowNumber()

' 假設(shè)我們要獲取單元格A1的行號

Dim cell As Range

Set cell = ThisWorkbook.Sheets("Sheet1").Range("A1")

' 輸出行號

MsgBox "The row number of cell A1 is: " & cell.Row

End Sub

```

在這個例子中，`ThisWorkbook.Sheets("Sheet1").Range("A1")`指定了工作簿中名為"Sheet1"的工作表上的A1單元格。`cell.Row`屬性返回該單元格的行號，然后通過`MsgBox`函數(shù)顯示出來。

如果你需要獲取整個范圍內(nèi)所有單元格的行號，你可以遍歷這個范圍：

```vba

Sub GetRowNumbers()

Dim cell As Range

Dim lastRow As Long

Dim i As Long

' 假設(shè)我們要獲取Sheet1中A列的行號

Set cell = ThisWorkbook.Sheets("Sheet1").Range("A1")

lastRow = cell.Worksheet.Cells(cell.Worksheet.Rows.Count, "A").End(xlUp).Row

' 遍歷A列中的所有單元格

For i = 1 To lastRow

' 輸出行號

Debug.Print ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Row

Next i

End Sub

```

在這個例子中，我們首先獲取A1單元格，然后使用`End(xlUp)`函數(shù)找到A列的最后一行。之后，我們使用一個`For`循環(huán)遍歷A列中的所有單元格，并使用`Debug.Print`輸出每個單元格的行號。`ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Row`用于獲取第i行單元格的行號。