表ListObject不限于表的行，而是统计整个表

我使用insert / table命令在excel中创build了两个命名表，并将它们命名为如下所示。 在Excel中，一切看起来都很好。 表House_details的行数是50，包括标题行和包括标题行的Sale_price_schedule 15的行数。

我的相关vba代码是

Set tblHouseDetails = Sheets("House details").ListObjects("House_details") Set tblSalePriceSchedule = Sheets("Sale price schedule").ListObjects("Sale_price_schedule") 'Find the product type, look for the relevant price and insert it into the appropriate house details column With tblHouseDetails.DataBodyRange For iCount = 2 To Rows.Count iTemp = Rows.Count strProductType = Cells(iCount, 5).Value 'The fifth columns is the product type dSaleDate = Cells(iCount, 3).Value 'The third column is the sale date 'Find the correct sale price in the SalePriceSchedule '---------------------------- dblSalePrice = -999 With tblSalePriceSchedule.DataBodyRange iTemp = Rows.Count For iCount2 = 2 To Rows.Count If Cells(iCount2, 3) = strProductType And Cells(iCount2, 1) <= dSaleDate And Cells(iCount2, 2) >= dSaleDate Then dblSalePrice = Cells(iCount2, 4) End If Next iCount2 End With '------------------------------ Cells(iCount, 6) = dblSalePrice Next iCount End With 

我的问题是，tblHouseDetails行数不是我在Excel中定义的50行，而是整个工作表（1048576）。

为什么我的Rows.Count不正确？

Answer 1

当单独使用“行”和“单元格”时，它们引用“ActiveSheet.Rows”和“ActiveSheet.Cells”。

如果你想引用“With.DataBodyRange”的范围，你需要在前面添加一个点（“.Rows”，“.Cells”）：

 Set tblHouseDetails = Sheets("House details").ListObjects("House_details") Set tblSalePriceSchedule = Sheets("Sale price schedule").ListObjects("Sale_price_schedule") 'Find the product type, look for the relevant price and insert it into the appropriate house details column With tblHouseDetails.DataBodyRange For iCount = 1 To .Rows.Count iTemp = .Rows.Count strProductType = .Cells(iCount, 5).Value 'The fifth columns is the product type dSaleDate = .Cells(iCount, 3).Value 'The third column is the sale date 'Find the correct sale price in the SalePriceSchedule '---------------------------- dblSalePrice = -999 With tblSalePriceSchedule.DataBodyRange iTemp = .Rows.Count For iCount2 = 1 To .Rows.Count If .Cells(iCount2, 3) = strProductType And .Cells(iCount2, 1) <= dSaleDate And .Cells(iCount2, 2) >= dSaleDate Then dblSalePrice = .Cells(iCount2, 4) End If Next iCount2 End With '------------------------------ .Cells(iCount, 6) = dblSalePrice Next iCount End With 

但更好的解决scheme是将行作为variables使用：

 Dim rowsA As Range, rowsB As Range Set rowsA = tblHouseDetails.DataBodyRange.Rows Set rowsB = tblSalePriceSchedule.DataBodyRange.Rows 'Find the product type, look for the relevant price and insert it into the appropriate house details column For i = 1 To rowsA.Count strProductType = rowsA.Cells(i, 5).Value 'The fifth columns is the product type dSaleDate = rowsA.Cells(i, 3).Value 'The third column is the sale date 'Find the correct sale price in the SalePriceSchedule dblSalePrice = -999 For j = 1 To rowsB.Count If rowsB.Cells(j, 3) = strProductType And rowsB.Cells(j, 1) <= dSaleDate And rowsB.Cells(j, 2) >= dSaleDate Then rowsA.Cells(i, 6) = rowsB.Cells(j, 4) End If Next Next 

如果你正在寻找的是一个高性能的解决scheme，我会使用数组中的值：

 Dim dataA(), dataB(), i&, j&, strProductType$, dSaleDate, dblSalePrice ' Get all the values in an array dataA = Sheets("House details").ListObjects("House_details").DataBodyRange.Value dataB = Sheets("Sale price schedule").ListObjects("Sale_price_schedule").DataBodyRange.Value For i = 0 To UBound(dataA) strProductType = dataA(i, 4) 'The fifth columns is the product type dSaleDate = dataA(i, 2) 'The third column is the sale date 'Find the correct sale price in the SalePriceSchedule dblSalePrice = -999 For j = 0 To UBound(dataB) If dataB(j, 2) = strProductType And dataB(j, 0) <= dSaleDate And dataB(j, 1) >= dSaleDate Then dataA(i, 5) = dataB(j, 3) End If Next Next ' Copy the values back to the sheet Sheets("House details").ListObjects("House_details").DataBodyRange.Value = dataA 

Answer 2

您正在House_details ListObject的.DataBodyRange属性中工作。 在With With End With语句中使用的所有引用都需要以句点（又名句号或. ）开头，以便传递父引用。

.Rows.Count需要是.Rows.Count ， Cells(iCount2, 3)需要.Cells(iCount2, 3)等。

一旦input嵌套的With … End With和Range.Cells和Range.Rows属性需要相同的语法，以将其父引用调整为Sale_price_schedule表，则Range.Parent属性将切换到Sale_price_schedule表。

所有Cells(...)和Rows.Count调用默认为ActiveSheet属性没有预处理周期。

  Set tblHouseDetails = Sheets("House details").ListObjects("House_details") Set tblSalePriceSchedule = Sheets("Sale price schedule").ListObjects("Sale_price_schedule") 'Find the product type, look for the relevant price and insert it into the appropriate house details column With tblHouseDetails.DataBodyRange For iCount = 2 To .Rows.Count iTemp = .Rows.Count strProductType = .Cells(iCount, 5).Value 'The fifth columns is the product type dSaleDate = .Cells(iCount, 3).Value 'The third column is the sale date 'Find the correct sale price in the SalePriceSchedule '---------------------------- dblSalePrice = -999 With tblSalePriceSchedule.DataBodyRange iTemp = .Rows.Count For iCount2 = 2 To .Rows.Count If .Cells(iCount2, 3) = strProductType And .Cells(iCount2, 1) <= dSaleDate And .Cells(iCount2, 2) >= dSaleDate Then dblSalePrice = .Cells(iCount2, 4) End If Next iCount2 End With '------------------------------ .Cells(iCount, 6) = dblSalePrice Next iCount End With 

在相关说明中，检索Range.Row属性将检索工作表上的实际行，并且必须通过.HeaderRowRange属性的行进行调整，以返回表中的行位置。