[已解决]请VBA大神帮忙

gjbily

如果图1中的"phonetype"字段能在图2中的”typeid"字段中找到，并且图1中对应phonetype行的uploaddate 大于 在图2中找到对应typeid对应的免解时间，那么 图1中的“是否需要解锁”列对应的行为“不需要” ，否则为空
在些先多谢好心的老师帮忙！
附件中带了我自己写的宏，但结果并不是我想要的结果

最佳答案

月排行榜 / 总排行榜

冥王

2015-6-9 21:42

Sub demo()
    Dim d As Object
    Dim arr, brr, i%, j%, crr(1 To 30000, 1 To 1)
    Set d = CreateObject("scripting.dictionary")
    With ThisWorkbook
        arr = .Sheets(1).Range("A1").CurrentRegion
        brr = .Sheets(2).Range("A1").CurrentRegion
        For i = LBound(brr, 1) + 1 To UBound(brr, 1)
            d(brr(i, 4)) = brr(i, 1)
        Next
        For j = LBound(arr, 1) + 1 To UBound(arr, 1)
            If d(arr(j, 2)) <> "" And arr(j, 1) > d(arr(j, 2)) Then
                crr(j - 1, 1) = "不需要"
            Else
                crr(j - 1, 1) = ""
            End If
        Next
        .Sheets(1).Cells(2, "L").Resize(UBound(arr, 1) - 1, 1) = crr
    End With
End Sub

跳转到最佳答案楼层

冥王

Sub demo()
    Dim d As Object
    Dim arr, brr, i%, j%, crr(1 To 30000, 1 To 1)
    Set d = CreateObject("scripting.dictionary")
    With ThisWorkbook
        arr = .Sheets(1).Range("A1").CurrentRegion
        brr = .Sheets(2).Range("A1").CurrentRegion
        For i = LBound(brr, 1) + 1 To UBound(brr, 1)
            d(brr(i, 4)) = brr(i, 1)
        Next
        For j = LBound(arr, 1) + 1 To UBound(arr, 1)
            If d(arr(j, 2)) <> "" And arr(j, 1) > d(arr(j, 2)) Then
                crr(j - 1, 1) = "不需要"
            Else
                crr(j - 1, 1) = ""
            End If
        Next
        .Sheets(1).Cells(2, "L").Resize(UBound(arr, 1) - 1, 1) = crr
    End With
End Sub

gjbily

冥王 发表于 2015-6-9 21:42

老师，这代码执行出来没结果啊

gjbily

gjbily 发表于 2015-6-10 09:59
老师，这代码执行出来没结果啊

这回可以了，非常感谢