Excel VBA - Ubound 计数数组，直到包含特定文本的行

Question

我有一个 sheet 有 4 列（姓名、年龄、姓氏、金额）并且有 30 个条目。标题行 1 和 30 个条目。因此，单元格 (32,1) 具有文本总计，并且金额总和可在相应的金额列中使用。我已将数据命名为范围。我正在尝试使用 Ubound 收集行号。我的条件是我应该获取行数，直到找到总文本（只说到第 31 行）。

这是我的代码。

Option Explicit

Sub calculate()

Dim rowcount As Long
Dim rng As Range
Dim ws As Worksheet

ws = ThisWorkbook.Sheets("Sheet1")
rng = ws.Range("DataAmnt")

ws.Activate
rowcount = UBound(rng, 1)

End Sub

抱歉，我没有分享工作图片的声誉sheet。

Answer 1

下面的代码应该循环遍历每个单元格，并为您提供包含单词 total 的单元格所在的行。另一种方法可以是 Cells.Find 方法，如果范围较小，它会更快。

Option Explicit

Sub calculate()

Dim rowcount As Long
Dim rng As Range
Dim ws As Worksheet

ws = ThisWorkbook.Sheets("Sheet1")
rng = ws.Range("DataAmnt")

ws.Activate

for each cell in rng

    if cell.value = "Total text" then 
        rowcount = cell.row
        exit for
    end if

next cell

End Sub

Excel VBA - Ubound 计数数组，直到包含特定文本的行

Excel VBA - Ubound count array until row with specific text

excel

vba

excel-2007