excel - Excel 表格中第一个单元格的位置

Question

我经常使用 Excel 表格。它使得一个工作表中可以包含多个表。但我在 VBA 中遇到了一个问题，我不知道如何解决。

假设我的电子表格中有一个名为“tbl”的表。它包含以下数据:

id value
1  1000
1  2000
2  3000
2  4000

我有以下有效代码:

Sub test()
    Dim rng As Range
    Dim arr() As Variant
    Set rng = ActiveSheet.ListObjects("tbl").DataBodyRange
    arr = rng.Value
End Sub

此代码会将整个表放入arr中。但在某些情况下，我只想要表中的某些行。假设我想要第 4 行和第 5 行，即:

2  3000
2  4000

下面的代码就可以解决这个问题:

arr = Range("A4:B5")

但在某些情况下，我的电子表格中的不同位置有许多表。因此，我需要计算出表格中第一个单元格的位置(左上角)。如果它位于 K1，我需要同时获取列和行(K 和 1)。

有没有简单的方法可以做到这一点？

Answer 1

使用单元格():

Sub test()
Dim rng As Range
Dim arr() As Variant
Set rng = ActiveSheet.ListObjects("tbl").DataBodyRange
arr = ActiveSheet.Range(rng.Cells(3, 1), rng.Cells(4, 2)).Value    
End Sub