excel - 如何以三组为一组循环行？

Question

我有一个样本的 3 个字段。
我可以让宏显示一组三个样本的结果。
如何循环下面的 3 个样本，等等？

Sub Data()    
    
    If Range("H33").Value <= 40 And Range("H34").Value > 42 And Range("H35").Value > 42 Then
         Range("J33").Value = "Present"
         Range("K33").Value = "SARS-CoV-2 DETECTED"
     Else:
         Range("K33").Value = "SARS-CoV-2 not detected"
         Range("J33").Value = "Absent"
        
    End If

End Sub

Answer 1

你可以做这样的事情来保持简单:

Sub Data()

Dim cell As Range, i As Long

For Each cell In Range("G1:G20") 'Your column of the sample names
    If cell.Value = "Sample" Then 'If equals sample. Otherwise you could do: If cell.Value <> "" Then
        i = cell.Row
        If Range("H" & i).Value <= 40 And Range("H" & i + 1).Value > 42 And Range("H" & i + 2).Value > 42 Then
            Range("J" & i).Value = "Present"
            Range("K" & i).Value = "SARS-CoV-2 DETECTED"
        Else
            Range("K" & i).Value = "SARS-CoV-2 not detected"
            Range("J" & i).Value = "Absent"
        End If
    End If
Next

End Sub