我试图用不同的工作表从行循环到列。在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