Question

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

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

但是我想将行号和列号存储在2个整数中。如果表的第一个单元格为C4，则column = 3，row = 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

Answer 2

您快到了。您需要：

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

...以返回表格第一行中电子表格中的绝对行号。

很显然，返回列号的语法相同。

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

2 个答案: