vba - 获取Excel表格中第一个单元格的行号和列号

Question

我在我的代码中使用了很多表格我的表在我的工作表中的某个地方。我知道我可以使用以下代码转到第一个单元格:

Worksheets("sheet").ListObjects("table").Range.Cells(1, 1).Activate

但我想将行号和列号存储在 2 个整数中，即。如果表的第一个单元格是 C4，则列 = 3 且行 = 4。

Worksheets("sheet").ListObjects("table").Row and Column are not working unfortunately

Answer 1

这将打印表格第一个单元格的行和列:

Public Sub TestMe()

    Dim tbl As ListObject
    Set tbl = Worksheets(1).ListObjects("Table1")
    Debug.Print tbl.Range.Cells(1, 1).Row
    Debug.Print tbl.Range.Cells(1, 1).Column

    'As a bonus:
    Debug.Print tbl.Range.Rows.Count        'total number of rows
    Debug.Print tbl.Range.Columns.Count     'total number of columns

End Sub

---

非常肮脏的方式，使用你的代码，激活 Cells(1,1):

Debug.Print ActiveCell.Row
Debug.Print ActiveCell.Column