计算找到的字符串

时间:2016-10-06 15:49:06

标签: excel vba

这是一张参考图片,有助于展示我所谈论的内容。

http://imgur.com/a/L2Jyb

在我的For Next循环中,我有以下代码。

Dim Counter As Long

For Counter = 0 To ActiveSheet.Rows(1).Cells.Find("QQQ").Offset(0, 1).End(xlUp).Row

这是假设要查看第1行,直到找到" QQQ"并将列中已用单元格的数量计算到右边。我不确定如何告诉excel如何Count偏移列。

我使用Find的原因是因为每个工作表都有一个不同的列,标准将在其中。例如:在上面的图片中列恰好是Q.它可能是不同的基于表格。

1 个答案:

答案 0 :(得分:1)

Dim Counter As Long

With ActiveSheet
    For Counter = 0 To .Cells(.Rows.Count, .Rows(1).Cells.Find("QQQ").Offset(,1).Column).End(xlUp).Row
    ' rest of your counter loop code


End With