Question

首先让我先说我对编程很新，尤其是Excel VBA。我正在写一个很长的代码来帮助我优化我的一些日常任务。现在有一件事我还想不通，所以我只会粘贴这部分代码。

我想计算我正在使用的目标表中的活动行数（例如其中包含文本）并将该数字赋给变量（整数）。

你能告诉我怎么做吗？

以下是我认为可行的代码：

targetSheet.Range("A2").Select   
targetSheet.Range(Selection, Selection.End(xlDown)).Select    
Selection.Count

Dim count As Integer

count = Selection.Count

显然它不起作用，我不能在代码的延续中引用'count'（它给我一个错误）

如果你能帮助我，我将非常感激！

此致米哈伊尔

Answer 1

尝试以下代码：

Dim CellsCount As Long

With targetSheet
    .Range("A2:A" & .Range("A2").End(xlDown).Row).Select ' <-- if you must use Select

    CellsCount = Selection.Count
End With

但是，您不需要Select范围来计算单元格数量：

With targetSheet
    CellsCount = .Range("A2", .Range("A2").End(xlDown)).Cells.Count
End With

将带有文本的行数分配给变量

1 个答案: