代码问题诊断（结果不对）

Justin-2016

代码问题诊断.zip (12.31 KB, 下载次数: 2)

2024-7-3 11:25 上传

点击文件名下载附件

Sub test()
    Dim arr, x%
    Dim dic
    Set dic = CreateObject("scripting.dictionary")
    With Sheet1
    arr = .[A1].CurrentRegion
    For x = 2 To UBound(arr)
        If Not dic.exists(arr(x, 2)) Then
            dic(arr(x, 2)) = arr(x, 4) - arr(x, 5)
            arr(x, 6) = dic(arr(x, 2))
        Else
            dic(arr(x, 2)) = dic(arr(x, 2)) - arr(x, 5)
            arr(x, 6) = dic(arr(x, 2))
        End If
    Next
    .[A1].Resize(UBound(arr), 6) = arr
    End With
End Sub

longwin

Sub test()
    Dim arr, x%
    Dim dic
    Set dic = CreateObject("scripting.dictionary")
    With Sheet1
    arr = .[a1].CurrentRegion
    For x = 2 To UBound(arr)
        If Not dic.exists(arr(x, 2)) Then
            dic(arr(x, 2)) = arr(x, 4) - arr(x, 5)
            arr(x, 6) = dic(arr(x, 2))
        Else
            dic(arr(x, 2)) = dic(arr(x, 2)) - arr(x, 5)
            arr(x, 6) = dic(arr(x, 2))
        End If
    Next
    .[A10].Resize(UBound(arr), 6) = arr
    End With
End Sub

ynzsvt

1. Sub test()
   
2.     Dim arr, x%
   
3.     Dim dic
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     With Sheet1
   
6.     arr = .[a1].CurrentRegion
   
7.     For x = 2 To UBound(arr)
   
8.         If Not dic.exists(arr(x, 2)) Then
   
9.             dic(arr(x, 2)) = arr(x, 4) - arr(x, 5)
   
10.             arr(x, 6) = dic(arr(x, 2))
    
11.         Else
    
12.             dic(arr(x, 2)) = dic(arr(x, 2)) - arr(x, 5)
    
13.             arr(x, 6) = dic(arr(x, 2))
    
14.         End If
    
15.     Next
    
16.     .[A11].Resize(UBound(arr), 6) = arr
    
17.     End With
    
18. End Sub

复制代码

ynzsvt

应该是x,2的，你好多写成x,1了。
另外输出位置应该是 A1而不是F列。

Justin-2016

ynzsvt 发表于 2024-7-3 11:40
应该是x,2的，你好多写成x,1了。
另外输出位置应该是 A1而不是F列。

找到问题了，谢谢！