求教

ljc6

我想引用另一个表的数据来判断，可是得出的结果是错的，请高手指教，谢谢
Sub mymax()
Dim i%, j%, k%, arr, brr, d As Object
[r:r] = ""
     brr = Sheet2.Range("c1:c" & Sheet2.[c65536].End(xlUp).Row)
     arr = Sheet1.Range("a4:q" & [a65536].End(xlUp).Row)
With Sheet1
       Set d = CreateObject("scripting.dictionary")
      For i = 2 To UBound(arr)
        d(arr(i, 4)) = d(arr(i, 4)) + arr(i, 7)
    Next
    For i = 2 To UBound(arr)
          arr(i, 17) = d(arr(i, 4))
       Next
   .Range("q4").Resize(i, 1) = Application.Index(arr, 0, 17)

.Range("a4:q" & [a65536].End(xlUp).Row).Sort key1:=Range("g4"), Order1:=xlDescending, Header:=xlYes
.Range("a4:q" & [a65536].End(xlUp).Row).Sort key1:=Range("d4"), Order1:=xlAscending, Header:=xlYes
For i = 2 To UBound(arr)
    j = i - 1

If Cells(i, 4) = Cells(j, 4) Then Cells(i, 17) = ""

   Next
   End With
For i = 5 To UBound(arr)
For k = 2 To UBound(brr)
If Sheet1.Cells(i, 6) <> "克" Then   '如果 F 列单位不是“克”
a = 10                              '则 a = 10
ElseIf arr(i, 4) = brr(k, 1) Then '否则如果 D 列名称 = sheet2.[C2:C4]中的名称 则执行
a = 10                           'a = 10                这一步得出的是错误的结果
Else                             '否则
a = 1000                         '否则 a ＝ 1000
End If
mx = Application.RoundUp(Sheet1.Cells(i, 17) / a, 0) * a
Sheet1.Cells(i, 18) = Application.Max(mx, 0)
Next k, i
End Sub

liulang0808

建议楼主结合附件内容，说明具体需求
代码可以执行，如果得不到楼主需求的结果，就看看逻辑上是否有问题吧

microyip

得不到正确结果，应该是设定的条件是错了，但具体何为正确，无从考究

wj2368

附件没有问题

wj2368

microyip 发表于 2018-9-7 08:07
得不到正确结果，应该是设定的条件是错了，但具体何为正确，无从考究

是不是这样的，你原来的是替换了

microyip

wj2368 发表于 2018-9-7 08:34
是不是这样的，你原来的是替换了

不知道是不是这样的，我也是路过而已

ljc6

If Sheet1.Cells(i, 6) <> "克" Then   '如果 F 列单位不是“克”
a = 10                              '则 a = 10
ElseIf arr(i, 4) = brr(k, 1) Then '否则如果 D 列名称 = sheet2.[C2:C4]中的名称 则执行
a = 10                           'a = 10                这一步得出的是错误的结果
Else                             '否则
a = 1000                         '否则 a ＝ 1000
End If
标红的代码哪里错了吗，并不能得到正确的结果
我在附件里有说明想得到的结果了，
麻烦各位高手了