[已解决]请问下面代码含义

yangfx163

请问解释下面这句代码的意思：If Len(arr(i, j)) And Not d.exists(arr(i, j)) Then d(arr(i, j)) = ""

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-14 22:05

Sub t()
    Dim arr, i&, j%, d As Object
    arr = Sheets("总日课表").Range("C3").CurrentRegion.Value
    Set d = CreateObject("scripting.dictionary")
    For i = 4 To UBound(arr)
        For j = 4 To UBound(arr, 2) Step 2
            If Len(arr(i, j)) And Not d.exists(arr(i, j)) Then d(arr(i, j)) = ""
        Next
    Next
    Sheets("提取教师名单").Range("A2").Resize(d.Count) = Application.Transpose(d.keys)
End Sub


如果遍历到的值既不是空值，而且又未被字典记录过，那么字典记录该值。

跳转到最佳答案楼层

爱疯

Sub t()
    Dim arr, i&, j%, d As Object
    arr = Sheets("总日课表").Range("C3").CurrentRegion.Value
    Set d = CreateObject("scripting.dictionary")
    For i = 4 To UBound(arr)
        For j = 4 To UBound(arr, 2) Step 2
            If Len(arr(i, j)) And Not d.exists(arr(i, j)) Then d(arr(i, j)) = ""
        Next
    Next
    Sheets("提取教师名单").Range("A2").Resize(d.Count) = Application.Transpose(d.keys)
End Sub


如果遍历到的值既不是空值，而且又未被字典记录过，那么字典记录该值。

yangfx163

爱疯 发表于 2016-5-14 22:05
Sub t()
    Dim arr, i&, j%, d As Object
    arr = Sheets("总日课表").Range("C3").CurrentRegion.Va ...

Len(arr(i, j)) ，数组长度表示遍历的值不是空值；Not d.exists(arr(i, j)) 字典不存在表示未被字典记录过； d(arr(i, j)) = ""表示字典记录该值，是这样吗？

爱疯

arr(i, j)是数组arr里第i行第j列的元素。

Len(arr(i, j)) ，如果这个元素的值，长度为0，那么该值就是空值；否则不是空值。