行循环到列循环

Question

我试图用不同的工作表从行循环到列。在DATA工作表中检查两个语句，首先，我检查[Type]，然后检查[Series]。从[Type]范围和[Series]范围中获取值后，根据[Part]范围值的Result表将[Result]范围值复制到DATA。我想要的结果就是这样[Result]。

我正在尝试一些代码，但是无法正常工作。请帮助我修复代码。对于我的英语不好，我感到非常抱歉。

Option Explicit

Private Sub Result_Click()

Dim DATA As Worksheet: Set DATA = Worksheets("DATA")
Dim Result As Worksheet: Set Result = Worksheets("Result")

Dim i As Long
Dim j As Long: j = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row

Dim k As Long

For i = 3 To j

    With DATA
    
        If Cells(i, 2).Value = Worksheets("Result").Range("B4").Value Then
        
            If Cells(i, 3).Value = Worksheets("Result").Range("C2").Value Then
                                        
                    For k = 4 To 32
                        
                        Worksheets("Result").Cells(k, 3).Resize(, 4).Value = Cells(i, 5).Value
                        
                        i = i + 4
        
                    Next k
            End If
                
        End If
        
    End With

Next i

End Sub