计算find的string旁边列中使用的单元格的数量

这里是一个参考图片来帮助显示我在说什么。

View post on imgur.com

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

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

这是假设要查看第1行，直到find“QQQ”，并将列中使用的单元格的数量closures在右侧。 我不知道如何告诉Excel如何Count偏移列。

我使用Find的原因是因为每张表格都有一个不同的标准列。例如：在上面的图片中，列恰好是Q.它可能根据表单不同而不同。

Answer 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