Question

我有通过Matlab进行编码的经验，但从未做过VBA。我有一个每天下载的Excel文件，行数不一致。我想要使用的列标题是“Uptime”，“Team”和“Reason1”。数据直到第15行才会开始，而它结束的行每天都会变化。

我需要计算连续两行数据的正常运行时间值为0.0，团队的值不同以及Reason1的值相同的次数。

以下是我开始编写我在线查找代码的方法。

Dim Uptime As Integer, Team as Integer, Reason1 As Integer
Uptime=Range(I15:I). value   **values start in the 15th row**
Team=Range(H15:I)
Reason1=Range(N15:N)
i=15
n=0
Do While (B15:B) like "*DIMP*"        **Every row with data has DIMP in column B**
If Uptime like "0.0" and Team(i,H) <> Team((i-1),H) and Reason1(i,N) like Reason1((i-1),N)
Count=n+1

所以我希望这个循环遍历DIMP在B列中的每一行，然后终止，我需要添加什么代码才能终止

Answer 1

您可以使用下面的代码查找列中包含数据的最后一行。显然只需为您想要的列切换A，为工作表名称切换Sheet1。

 lastRow = Sheets("sheet1").Cells(Sheets("sheet1").Rows.Count, "A").End(xlUp).row

然后，您可以使用简单的for循环来遍历行

for i = 1 to lastRow
    'do something in here
next i

VBA循环计数

1 个答案: