当一个单元格匹配值时，vba会复制一些特定的单元格，但有时单元格是相同的列

Question

我遇到的问题是，当我使用if else语句时，我可以复制表中的值并粘贴到另一张表中，

如果该值与表1和2中具有相同列c的值匹配（与附加的示例链接中的相同），则只将表中的一个匹配值单元格复制到另一个表单。

如何将其他匹配值复制到另一张表？

Please view the example here.和Expect output以及This is Problem output

实际上现在我唯一的问题是，当我使用if else语句来执行此操作时，它只复制第一个条件，即匹配值，如列c第一个黄色值，并且它不会复制第二个颜色匹配的单元格值在列c.thanks。

enter code here //Sub tab()

Dim a 
Dim b
a = 2


For b = 3 To 25                             

If Sheet1.Cells(XX,XX)'max' = 5 And Sheet1.Cells(XX,XX)'min' = 2 Then

If Sheet1.Cells(XX,XX)'total' > Sheet1.Cells(XX,XX)'max' Or Sheet1.Cells(XX, XX)'TOTAL' < Sheet1.Cells(XX, XX)'min' Then
        Sheet2.Cells(XX,XX) = Sheet1.Cells(XX,XX).Value  
                      ""

 a= a + 1     
    End If

ElseIf Sheet1.Cells(xx, xx)'max' = 10 And Sheet1.Cells(xx,xx)'min' = 7 Then

    If Sheet1.Cells(XX,XX)'total' > Sheet1.Cells(XX,XX)'max' Or Sheet1.Cells(XX, XX)'TOTAL' < Sheet1.Cells(XX, XX)'min' Then
        Sheet2.Cells(XX,XX) = Sheet1.Cells(XX,XX).Value  
                    ""
a= a+ 1    
End If
Next b
End Sub