[已解决]帮忙写个取数据的代码，谢谢！

fggf

帮忙写个取数据的代码，谢谢！详见附件中说明。

最佳答案

月排行榜 / 总排行榜

高

2021-3-2 15:51

见附件
或者试试这个代码，这个和你原代码更接近
Sub AA()

Range("B7:F200").ClearContents
For x = 2 To 6
n1 = 0
    For I = 4 To 200
    If Sheet2.Cells(I, 2) = Cells(6, x) Then
    n1 = n1 + 1
    Cells(n1 + 6, x) = Sheet2.Cells(I, 3)
    End If
    Next
Next x

End Sub

跳转到最佳答案楼层

高

见附件
或者试试这个代码，这个和你原代码更接近
Sub AA()

Range("B7:F200").ClearContents
For x = 2 To 6
n1 = 0
    For I = 4 To 200
    If Sheet2.Cells(I, 2) = Cells(6, x) Then
    n1 = n1 + 1
    Cells(n1 + 6, x) = Sheet2.Cells(I, 3)
    End If
    Next
Next x

End Sub