[已解决]【excel助手】老师！请进！

lenovo0312

筛选最新登记的数据，按名称编码 商品编码筛选.rar (12.22 KB, 下载次数: 5)

2016-1-7 19:53 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

excel助手

2016-1-7 20:20

Sub 按钮4_Click()
    Dim d
    Dim i, j
    Set d = CreateObject("Scripting.Dictionary")
    For i = 11 To 5 Step -1
   
        If InStr("赠出赠入", Cells(i, 8)) = 0 And Not (d.exists(Cells(i, 19) & Cells(i, 21))) And Cells(i, 19) = Cells(3, 4) Then
            j = Cells(65536, 4).End(xlUp).Row + 1
            Cells(j, 4) = Cells(i, 19)
            Cells(j, 5) = Cells(i, 21)
            Cells(j, 6) = Cells(i, 4)
            Cells(j, 7) = Cells(i, 5)
            Cells(j, 8) = Cells(i, 6)
            Cells(j, 9) = Cells(i, 7)
            Cells(j, 10) = Cells(i, 8)
            Cells(j, 11) = "=" & Cells(i, 10) & "/" & Cells(i, 23)
            
            d(Cells(i, 19) & Cells(i, 21)) = 1
        End If
    Next i
End Sub
筛选最新登记的数据，按名称编码 商品编码筛选.zip (14.2 KB, 下载次数: 8)

2016-1-7 20:20 上传

点击文件名下载附件

跳转到最佳答案楼层

excel助手

Sub 按钮4_Click()
    Dim d
    Dim i, j
    Set d = CreateObject("Scripting.Dictionary")
    For i = 11 To 5 Step -1
   
        If InStr("赠出赠入", Cells(i, 8)) = 0 And Not (d.exists(Cells(i, 19) & Cells(i, 21))) And Cells(i, 19) = Cells(3, 4) Then
            j = Cells(65536, 4).End(xlUp).Row + 1
            Cells(j, 4) = Cells(i, 19)
            Cells(j, 5) = Cells(i, 21)
            Cells(j, 6) = Cells(i, 4)
            Cells(j, 7) = Cells(i, 5)
            Cells(j, 8) = Cells(i, 6)
            Cells(j, 9) = Cells(i, 7)
            Cells(j, 10) = Cells(i, 8)
            Cells(j, 11) = "=" & Cells(i, 10) & "/" & Cells(i, 23)
            
            d(Cells(i, 19) & Cells(i, 21)) = 1
        End If
    Next i
End Sub
筛选最新登记的数据，按名称编码 商品编码筛选.zip (14.2 KB, 下载次数: 8)

2016-1-7 20:20 上传

点击文件名下载附件