vba - 计算行数时出现“对象不支持属性或方法”错误

Question

以下代码生成 Object does not support this property or method错误:

With CellsTab
    NumOfProdCells = .Range(.Cells(.Match(CurrentStartRow,.Range("MIRCellColumn"), 0), 4), 
    .Cells(.Match(CurrentStartRow,.Range("MIRCellColumn"), 0), 4).End(xlDown)).Rows.Count 
End With

CellsTab是一个工作表， NumOfProdCell s 是 long 类型， CurrentStartRow也是整数， MIRCellColumn是工作表中的一个命名范围 CellsTab .

Answer 1

失败是因为 .match ..match是一个工作簿函数，但您正在使用它，就好像它是工作表的一种方法。而是使用:

With CellsTab
    NumOfProdCells = _
        .Range(.Cells(Application.WorksheetFunction.Match(CurrentStartRow, _
        .Range("MIRCellColumn"), 0), 4), _
        .Cells(Application.WorksheetFunction.Match(CurrentStartRow, _
        .Range("MIRCellColumn"), 0), 4).End(xlDown)).Rows.Count
End With