Question

我有一张包含4列（姓名，年龄，姓氏，金额）的表格，有30个条目。标题为row1和30个条目。因此单元格（32,1）具有文本总数，并且金额总和在相应的金额列中可用。我已将数据命名为范围。我试图使用Ubound收集行号。我的条件是我应该得到行数，直到找到Total text（直到第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

道歉我没有声誉来分享工作表的图片。

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计数数组，直到具有特定文本的行

1 个答案: